Now.DayOfWeek
Module Module1 Sub Main() Dim DayOfWeek As Integer DayOfWeek = Now.DayOfWeek Select Case DayOfWeek Case 1 Console.WriteLine("Sunday") Case 2 Console.WriteLine("Monday") Case 3 Console.WriteLine("Tuesday") Case 4 Console.WriteLine("Wednesday") Case 5 Console.WriteLine("Thursday") Case 6 Console.WriteLine("Friday") Case 7 Console.WriteLine("Saturday") End Select End Sub End Module
1. | Now.Ticks | ||
2. | Now.ToLongTimeString | ||
3. | Now.ToString | ||
4. | Now.ToUniversalTime |