Date Time VB.Net Tutorial

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
39213.5204361921