VB.Net by API/System/DateTime

DateTime.DayOfWeek

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim DateInfo As New DateTime(Now.Ticks)
       Console.WriteLine("Date: " & DateInfo.Month & "/" & _
          DateInfo.Day & "/" & DateInfo.Year)
       Console.WriteLine("Date: " & DateInfo.ToLongDateString())
       Console.WriteLine("Today is: " & DateInfo.DayOfWeek)
       Console.WriteLine("Days in April, 2002: " & DateInfo.DaysInMonth(2002, 4))
   End Sub

End Module

 </source>

DateTime.IsLeapYear

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim Dt As DateTime = Now()

       If (Dt.IsLeapYear(Dt.Year)) Then
           Console.WriteLine("This is a leap year")
       Else
           Console.WriteLine("This is not a leap year")
       End If
   End Sub

End Module

 </source>

DateTime.Second

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
      Dim currentTime as System.DateTime = System.DateTime.Now
      Console.WriteLine("currentTime Year :" & currentTime.Year)
      Console.WriteLine("currentTime Month:" &  currentTime.Month)
      Console.WriteLine("currentTime Date:" & currentTime.Date)
      Console.WriteLine("currentTime Hour:" & currentTime.Hour)
      Console.WriteLine("currentTime Minute:" & currentTime.Minute)
      Console.WriteLine("currentTime Second:" & currentTime.Second)
   End Sub

End Class

 </source>

DateTime.Subtract

<source lang="vbnet"> public class Test

  public Shared Sub Main
       Dim start_time As DateTime
       Dim stop_time As DateTime
       Dim elapsed_time As TimeSpan
       Dim num_items As Integer = 10000
       Dim array1(0 To num_items - 1) As Integer
       start_time = Now
       For i As Integer = 0 To num_items - 1
           array1(i) = i
       Next i
       stop_time = Now
       elapsed_time = stop_time.Subtract(start_time)
       Console.WriteLine(elapsed_time.TotalSeconds())

       Erase array1
  End Sub
  

End class

 </source>

DateTime.ToUniversalTime()

<source lang="vbnet"> public class Test

  public Shared Sub Main
       Dim D As DateTime
       D = Now()
   
       Console.WriteLine(D.ToUniversalTime().GetType().Name)
   
       Console.WriteLine("UTC-LocalTime=" + D.ToUniversalTime().Subtract(D).ToString())
   
       Console.WriteLine("Ticks since 12:00AM January 1, 1 CE="+ Now().Ticks().ToString())
  End Sub

End class

 </source>

DateTime.UtcNow()

<source lang="vbnet">

Public Class MainClass

  Public Shared Sub Main()
       "Date Time examples
       Dim dteNow As Date = Now()
       Dim dteToday As Date = Today()
       Dim dteGMT As DateTime = DateTime.UtcNow()
       Console.WriteLine(dteNow)
       Console.WriteLine(dteToday)
       Console.WriteLine(dteGMT)
       
  End Sub

End Class

 </source>

DateTime.Year

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
      Dim currentTime as System.DateTime = System.DateTime.Now
      Console.WriteLine("currentTime Year :" & currentTime.Year)
      Console.WriteLine("currentTime Month:" &  currentTime.Month)
      Console.WriteLine("currentTime Date:" & currentTime.Date)
      Console.WriteLine("currentTime Hour:" & currentTime.Hour)
      Console.WriteLine("currentTime Minute:" & currentTime.Minute)
      Console.WriteLine("currentTime Second:" & currentTime.Second)
   End Sub

End Class

 </source>

New DateTime

<source lang="vbnet">

public class Test

  public Shared Sub Main
   Dim D As New DateTime(10000333333333333)
   Console.WriteLine("10000 ticks is " + D.Date())
  End Sub

End class

 </source>