Mega Code Archive

 

Categories / VB.Net Tutorial / Date Time

 

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 39213.5204361921