VBA對日期時間操作

1,把Double轉換為時間
dim x as double
Dim y As Date
x=0.354166666666667
y = VBA.Format(x, "[$-en-US]h:mm AM/PM;@") 'y=#8:30:00 AM#

2,把三個整形數字合成時間
y = VBA.TimeSerial(8, 30, 0) 'y=#8:30:00 AM#

3,把三個整形數字合成日期
y== VBA.DateSerial(2020, 1, 4) 'y=#2020/1/4#