Imports System
Public Class Test
Public Shared Sub Main()
dim EndDate as new datetime
EndDate = convert.todatetime("10/08/2014")
dim BillStart as new datetime
Dim TrialNextMonthDate As DateTime = DateAdd(DateInterval.Month, 1, EndDate)
BillStart = DateSerial(TrialNextMonthDate.Year, TrialNextMonthDate.Month, 1)
console.writeline(trialnextmonthdate.tostring)
console.writeline(billstart.tostring)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlkaW0gRW5kRGF0ZSBhcyBuZXcgZGF0ZXRpbWUKCQlFbmREYXRlID0gY29udmVydC50b2RhdGV0aW1lKCIxMC8wOC8yMDE0IikKCQlkaW0gQmlsbFN0YXJ0IGFzIG5ldyBkYXRldGltZQoJCURpbSBUcmlhbE5leHRNb250aERhdGUgQXMgRGF0ZVRpbWUgPSBEYXRlQWRkKERhdGVJbnRlcnZhbC5Nb250aCwgMSwgRW5kRGF0ZSkKICAgICAgICBCaWxsU3RhcnQgPSBEYXRlU2VyaWFsKFRyaWFsTmV4dE1vbnRoRGF0ZS5ZZWFyLCBUcmlhbE5leHRNb250aERhdGUuTW9udGgsIDEpCiAgICAgICAgY29uc29sZS53cml0ZWxpbmUodHJpYWxuZXh0bW9udGhkYXRlLnRvc3RyaW5nKQogICAgICAgIGNvbnNvbGUud3JpdGVsaW5lKGJpbGxzdGFydC50b3N0cmluZykKCUVuZCBTdWIKRW5kIENsYXNz