TIL

Today I Leaned. 無理せず。できるときに。自分のペースで。

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

Date型のToOADateを使い、変換する

Dim today As Date = DateTime.Today

Console.WriteLine(today)
Console.WriteLine(today.ToOADate)

出力結果

2017/09/13 0:00:00
42991

参考文献

C#:Excelの日付シリアル値を扱う | 非IT企業に勤める中年サラリーマンのIT日記