Mega Code Archive

 

Categories / VB.Net by API / System

 

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