System VB.Net by API

  1. Home
  2. VB.Net by API
  3. System
  4. Date ToOADate
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