VB.Net by API/System/Now

Now.DayOfWeek

<source lang="vbnet"> 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

 </source>

Now.Ticks

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim ticksBefore As Long
       Dim ticksAfter As Long
       Dim tickSeconds As Double
       ticksBefore = Now.Ticks
       MsgBox("Press OK to see elapsed seconds")
       ticksAfter = Now.Ticks
       tickSeconds = (ticksAfter - ticksBefore) / 10000000.0
       Console.WriteLine("Elapsed seconds: " & tickSeconds.ToString())
   End Sub

End Class

 </source>

Now.ToLongTimeString

<source lang="vbnet">

Public Class Tester

   Public Shared Sub Main
       Console.WriteLine(Now.ToLongTimeString)
   End Sub

End Class

 </source>

Now.ToString

<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Imports System.Diagnostics Imports System.Drawing.Printing Imports System.ruponentModel

Public Class MainClass

   Shared Sub Main()
       Console.WriteLine(Now.ToString("h:mm:ss tt"))
   End Sub
   

End Class

 </source>

Now.ToUniversalTime

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim phaseDay As Double
       Dim result As String
       phaseDay = MoonPhase(Now.ToUniversalTime)
       result = "UTC is now: " & _
          Now.ToUniversalTime.ToString("u") & vbNewLine & vbNewLine
       If (phaseDay < 0) Then
           result &= "Approx days until new moon: " & _
              (-phaseDay).ToString("F1")
       Else
           result &= "Approx days since new moon: " & _
              phaseDay.ToString("F1")
       End If
       Console.WriteLine(result)
   End Sub
   Public Shared Function MoonPhase(ByVal dateUtc As Date) As Double
       Dim days As Double = dateUtc.Subtract(#1/1/1600#).TotalDays
       Dim cycles As Double = days * 0.03386319 - 12.5
       Return Math.IEEERemainder(cycles, 1.0) * 29.53059
   End Function

End Class

 </source>