取得 Variant Date 之該周之日數 (1 ~ 7)
dDate | Real | 8 | 必須 | (無) | Variant Date 之倍精度數值 |
傳回整數
dDate = MyGetDateTime('2004/1/13 13:45:12') Write(*,*) MyGetWeekDay(dDate)
1, 2, 3, 4, 5, 6, 7 對應星期日、一、二、三、四、五、六
Intel Visual Fortran 7.0 以後 | wVariant.f90
winVariant 函式庫 | MyGetDateTime | MyFormat | MyFormatDateInteger
|