Imports System
Public Class Test
Public Shared Sub Main()
Dim dt As DateTime = DateTime.Now
Console.WriteLine("Day:{0}", dt.Day)
Console.WriteLine("Month:{0}", dt.Month)
Console.WriteLine("Year:{0}", dt.Year)
Console.WriteLine("Hour:{0}", dt.Hour)
Console.WriteLine("Minute:{0}", dt.Minute)
Console.WriteLine("Second:{0}", dt.Second)
Console.WriteLine("Millisecond:{0}", dt.Millisecond)
End Sub
End Class
' run:
'
' Day:8
' Month:10
' Year:2020
' Hour:8
' Minute:28
' Second:58
' Millisecond:877
'