Generic and nongeneric versions of the CompareTo method for DateTime value : Date Time Function « Date Time « VB.Net

1. VB.Net
2. Date Time
3. Date Time Function

Generic and nongeneric versions of the CompareTo method for DateTime value

  
 
Imports System

Class Sample
   Public Shared Sub Main()
      Try
      
         Dim a1 As DateTime = DateTime.Now,  a2 As DateTime = DateTime.Now
         Show(a1, a2, a1.CompareTo(a2), a1.CompareTo(CObj(a2)))
      Catch e As Exception
         Console.WriteLine(e)
      End Try
   End Sub

   Public Shared Sub Show(var1 As [Object], var2 As [Object], resultGeneric As Integer, resultNonGeneric As Integer)
      Console.WriteLine(var1)
      Console.WriteLine(var2)
      If resultGeneric = resultNonGeneric Then
         If resultGeneric < 0 Then
            Console.WriteLine("less than")
         ElseIf resultGeneric > 0 Then
            Console.WriteLine("greater than")
         Else
            Console.WriteLine("equal to")
         End If
         
      End If
   End Sub
End Class

   
    
  

Related examples in the same category

1.	Date Time related Function
2.	Years Between Dates
3.	Next Working Day
4.	Parse(String) method returns a DateTime value whose Kind property is DateTimeKind..::.Unspecified
5.	Parse(String) parses date and time values using the formatting conventions of the en-US culture