Imports System
Public Class Test
Public Shared Sub Main()
Console.WriteLine(DateSerial(Year(CType("2014-09-30", DateTime)), Month(CType("2014-09-30", DateTime)) + 1, 0))
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlDb25zb2xlLldyaXRlTGluZShEYXRlU2VyaWFsKFllYXIoQ1R5cGUoIjIwMTQtMDktMzAiLCBEYXRlVGltZSkpLCBNb250aChDVHlwZSgiMjAxNC0wOS0zMCIsIERhdGVUaW1lKSkgKyAxLCAwKSkKCUVuZCBTdWIKRW5kIENsYXNz