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