VB.Net/Development/Date Time

Assign a value according to the current day of the week.

<source lang="vbnet">

Module Module1

   Sub Main()
       If (Weekday(Now) = vbSaturday) Or (Weekday(Now) = vbSunday) Then
           System.Console.WriteLine("weekend")
       Else
           System.Console.WriteLine("working day")
       End If
   End Sub

End Module

 </source>

Date Time Detail: Long Date String, day of week, days in month

<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>

Date time: Now, Today and UTC Now

<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>

Display the various properties for a Date

<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>

Finding the Last Day of the Month

<source lang="vbnet"> Module MainModule

   Public Function LastDayOfMonth(ByVal MonthYear As String) As Integer
       Return DatePart("d ", DateAdd("d ", -1, DateAdd("m ", 1, DateAdd("d ", -DatePart("d ", MonthYear) + 1, MonthYear))))
   End Function

End Module

 </source>

Get Date Time Now

<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>

Is Leap Year

<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>