VB.netで日付をシリアル値に変換

Dim today As Date = DateTime.Today

Console.WriteLine(today.ToOADate)

整数部が年月日、小数部が時間になる