VB.Net by API/System/Date

Date.AddDays

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       
       Dim rightNow As Date = Now
       Console.WriteLine("RightNow: " & rightNow.ToString)
       Console.WriteLine("RightNow.AddYears(2): " & rightNow.AddYears(2))
       Console.WriteLine("RightNow.AddMonths(3): " & rightNow.AddMonths(3))
       Console.WriteLine("RightNow.AddDays(4): " & rightNow.AddDays(4))
   End Sub

End Class

 </source>

Date.AddMilliseconds

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       
       Dim rightNow As Date = Now
       Console.WriteLine("RightNow: " & rightNow.ToString)
       " ----- Add time values.
       Console.WriteLine("RightNow.AddHours(5): " & rightNow.AddHours(5))
       Console.WriteLine("RightNow.AddMinutes(6): " & rightNow.AddMinutes(6))
       Console.WriteLine("RightNow.AddSeconds(7): " & rightNow.AddSeconds(7))
       Console.WriteLine("RightNow.AddMilliseconds(8000): " & rightNow.AddMilliseconds(8000))
   End Sub

End Class

 </source>

Date.AddMonths

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       
       Dim rightNow As Date = Now
       Console.WriteLine("RightNow: " & rightNow.ToString)
       Console.WriteLine("RightNow.AddYears(2): " & rightNow.AddYears(2))
       Console.WriteLine("RightNow.AddMonths(3): " & rightNow.AddMonths(3))
       Console.WriteLine("RightNow.AddDays(4): " & rightNow.AddDays(4))
   End Sub

End Class

 </source>

Date.AddYears

<source lang="vbnet">

public class Test

  public Shared Sub Main
       Dim Expiration As Date
       Dim NewExpiration As Date
       Expiration = #1/1/2005#
       Expiration.AddYears(3)
       NewExpiration = Expiration.AddYears(3)
       Console.WriteLine("The new expiration date is: " & NewExpiration)
  End Sub

End class

 </source>

Date.DayOfYear

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

   Shared Sub Main()
       Dim dteData As Date
       "Get the current date and time
       dteData = Now
       "Display the various properties
       System.Console.WriteLine("Month: " & dteData.Month)
       System.Console.WriteLine("Day: " & dteData.Day)
       System.Console.WriteLine("Year: " & dteData.Year)
       System.Console.WriteLine("Hour: " & dteData.Hour)
       System.Console.WriteLine("Minute: " & dteData.Minute)
       System.Console.WriteLine("Second: " & dteData.Second)
       System.Console.WriteLine("Day of week: " & dteData.DayOfWeek)
       System.Console.WriteLine("Day of year: " & dteData.DayOfYear)
   End Sub

End Class

 </source>

Date.Millisecond

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim rightNow As Date = Now
       Dim hourNow As Integer = rightNow.Hour
       Dim minuteNow As Integer = rightNow.Minute
       Dim secondNow As Integer = rightNow.Second
       Dim millisecondNow As Integer = rightNow.Millisecond
       Dim results As String = String.Format( _
          "Hour: {1}{0}Minute: {2}{0}Second: " & _
          "{3}{0}Millisecond: {4}", vbNewLine, _
          hourNow, minuteNow, secondNow, millisecondNow)
       Console.WriteLine(results)

   End Sub

End Class

 </source>

Date.op_Subtraction

<source lang="vbnet"> public class Test

  public Shared Sub Main
       Dim date1 As Date = #7/20/2004#
       Dim date2 As Date = #8/7/2004#
       Dim elapsed_time As TimeSpan
       elapsed_time = Date.op_Subtraction(date2, date1)
       Console.WriteLine(elapsed_time.Days.ToString)
  End Sub

End class

 </source>

Date.Parse

<source lang="vbnet">

Public Class Tester

   Public Shared Sub Main
       Dim testDate As String
       Dim results As New System.Text.StringBuilder
       " ----- Test an invalid date.
       testDate = "Febtember 43, 2007"
       If (IsDate(testDate) = True) Then _
          results.AppendLine(Date.Parse(testDate).ToString)
       Console.WriteLine(results.ToString())
   End Sub

End Class

 </source>

Date.ToLongDateString

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim rightNow As Date = Now
       Dim result As New System.Text.StringBuilder
       result.AppendLine("""Now""...")
       result.Append("ToString: ").AppendLine(rightNow.ToString)
       result.Append("ToLongDateString: ")
       result.AppendLine(rightNow.ToLongDateString)
       result.Append("ToShortDateString: ")
       result.AppendLine(rightNow.ToShortDateString)
       result.Append("ToLongTimeString: ")
       result.AppendLine(rightNow.ToLongTimeString)
       result.Append("ToShortTimeString: ")
       result.AppendLine(rightNow.ToShortTimeString)
       result.Append("ToUniversalTime: ")
       result.AppendLine(rightNow.ToUniversalTime)
       result.AppendLine()
       Console.WriteLine(result.ToString)
   End Sub

End Class

 </source>

Date.ToLongTimeString

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim rightNow As Date = Now
       Dim result As New System.Text.StringBuilder
       result.AppendLine("""Now""...")
       result.Append("ToString: ").AppendLine(rightNow.ToString)
       result.Append("ToLongDateString: ")
       result.AppendLine(rightNow.ToLongDateString)
       result.Append("ToShortDateString: ")
       result.AppendLine(rightNow.ToShortDateString)
       result.Append("ToLongTimeString: ")
       result.AppendLine(rightNow.ToLongTimeString)
       result.Append("ToShortTimeString: ")
       result.AppendLine(rightNow.ToShortTimeString)
       result.Append("ToUniversalTime: ")
       result.AppendLine(rightNow.ToUniversalTime)
       result.AppendLine()
       Console.WriteLine(result.ToString)
   End Sub

End Class

 </source>

Date.ToOADate

<source lang="vbnet"> public class Test

  public Shared Sub Main
       Dim D As Date = Now()
       Dim F As Double = D.ToOADate()
       Console.WriteLine(F)
  End Sub

End class

 </source>

Date.ToShortDateString

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim rightNow As Date = Now
       Dim result As New System.Text.StringBuilder
       result.AppendLine("""Now""...")
       result.Append("ToString: ").AppendLine(rightNow.ToString)
       result.Append("ToLongDateString: ")
       result.AppendLine(rightNow.ToLongDateString)
       result.Append("ToShortDateString: ")
       result.AppendLine(rightNow.ToShortDateString)
       result.Append("ToLongTimeString: ")
       result.AppendLine(rightNow.ToLongTimeString)
       result.Append("ToShortTimeString: ")
       result.AppendLine(rightNow.ToShortTimeString)
       result.Append("ToUniversalTime: ")
       result.AppendLine(rightNow.ToUniversalTime)
       result.AppendLine()
       Console.WriteLine(result.ToString)
   End Sub

End Class

 </source>

Date.ToShortTimeString

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim rightNow As Date = Now
       Dim result As New System.Text.StringBuilder
       result.AppendLine("""Now""...")
       result.Append("ToString: ").AppendLine(rightNow.ToString)
       result.Append("ToLongDateString: ")
       result.AppendLine(rightNow.ToLongDateString)
       result.Append("ToShortDateString: ")
       result.AppendLine(rightNow.ToShortDateString)
       result.Append("ToLongTimeString: ")
       result.AppendLine(rightNow.ToLongTimeString)
       result.Append("ToShortTimeString: ")
       result.AppendLine(rightNow.ToShortTimeString)
       result.Append("ToUniversalTime: ")
       result.AppendLine(rightNow.ToUniversalTime)
       result.AppendLine()
       Console.WriteLine(result.ToString)
   End Sub

End Class

 </source>

Date.ToString

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim rightNow As Date = Now
       Dim result As New System.Text.StringBuilder
       result.AppendLine("""Now""...")
       result.Append("ToString: ").AppendLine(rightNow.ToString)
       result.Append("ToLongDateString: ")
       result.AppendLine(rightNow.ToLongDateString)
       result.Append("ToShortDateString: ")
       result.AppendLine(rightNow.ToShortDateString)
       result.Append("ToLongTimeString: ")
       result.AppendLine(rightNow.ToLongTimeString)
       result.Append("ToShortTimeString: ")
       result.AppendLine(rightNow.ToShortTimeString)
       result.Append("ToUniversalTime: ")
       result.AppendLine(rightNow.ToUniversalTime)
       result.AppendLine()
       Console.WriteLine(result.ToString)
   End Sub

End Class

 </source>

Date.ToUniversalTime

<source lang="vbnet">

Public Class Tester

   Public Shared Sub Main
       Dim rightNow As Date = Now
       Dim result As New System.Text.StringBuilder
       result.AppendLine("""Now""...")
       result.Append("ToString: ").AppendLine(rightNow.ToString)
       result.Append("ToLongDateString: ")
       result.AppendLine(rightNow.ToLongDateString)
       result.Append("ToShortDateString: ")
       result.AppendLine(rightNow.ToShortDateString)
       result.Append("ToLongTimeString: ")
       result.AppendLine(rightNow.ToLongTimeString)
       result.Append("ToShortTimeString: ")
       result.AppendLine(rightNow.ToShortTimeString)
       result.Append("ToUniversalTime: ")
       result.AppendLine(rightNow.ToUniversalTime)
       result.AppendLine()
       Console.WriteLine(result.ToString)
   End Sub

End Class

 </source>

New Date(Int year, Int month, Int day)

<source lang="vbnet">

Public Class Tester

   Public Shared Sub Main
       Dim thirdOfJuly As Date = #7/3/1776 11:59:59 PM#
       Dim fourthOfJuly As New Date(1776, 7, 4)
       Dim inTheMorning As New Date(1776, 7, 4, 9, 45, 30)
       Console.WriteLine( _
          "The 3rd and 4th of July, 1776..." & _
          vbNewLine & vbNewLine & _
          "#7/3/1776 11:59:59 PM# ... " & _
          thirdOfJuly.ToString & vbNewLine & _
          "New Date(1776, 7, 4) ... " & _
          fourthOfJuly.ToString & vbNewLine & _
          "New Date(1776, 7, 4, 9, 45, 30) ... " & _
          inTheMorning.ToString)
   End Sub

End Class

 </source>

New Date(Int year, Int month, Int day, Int hour, Int minute)

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim thirdOfJuly As Date = #7/3/1776 11:59:59 PM#
       Dim fourthOfJuly As New Date(1776, 7, 4)
       Dim inTheMorning As New Date(1776, 7, 4, 9, 45, 30)
       Console.WriteLine( _
          "The 3rd and 4th of July, 1776..." & _
          vbNewLine & vbNewLine & _
          "#7/3/1776 11:59:59 PM# ... " & _
          thirdOfJuly.ToString & vbNewLine & _
          "New Date(1776, 7, 4) ... " & _
          fourthOfJuly.ToString & vbNewLine & _
          "New Date(1776, 7, 4, 9, 45, 30) ... " & _
          inTheMorning.ToString)
   End Sub

End Class

 </source>