Imports System
Public Class Test
Public Shared Sub Main()
Dim intDay As Integer
intDay = Date.Now.Day
Console.WriteLine(intDay)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KIApQdWJsaWMgQ2xhc3MgVGVzdAogICBQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkgCiAgICAgICAgRGltIGludERheSBBcyBJbnRlZ2VyCiAgICAgICAgaW50RGF5ID0gRGF0ZS5Ob3cuRGF5CiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoaW50RGF5KQogICBFbmQgU3ViCkVuZCBDbGFzcw==