將 Variant Date 之倍精度數值以指定字串格式轉換為字串
dDate | Real | 8 | 必須 | (無) | Variant Date 之倍精度數值 |
strFormat | Character*(*) | - | 必須 | (無) | 格式字串 |
傳回字串
dDate = MyGetDateTime('2004/1/13 13:45:12') Write(*,*) dDate ! 37999.5730555556 Write(*,*) MyFormatDate(dDate, 'ee/mm/dd') ! 93/01/13 Write(*,*) MyFormatDate(dDate, 'dddddd') ! 2004年1月13日 Write(*,*) MyFormatDate(dDate, 'yyyy-mm-dd hh:nn:ss AM/PM') ! 2004-01-13 01:45:12 PM Write(*,*) MyFormatDate(dDate, 'c') ! 2004/1/13 下午 01:45:12 Write(*,*) MyFormatDate(dDate, 'ww') ! 3 Write(*,*) MyFormatDate(dDate, 'q') ! 1 Write(*,*) MyFormatDate(dDate, 'y') ! 13
格式字串中關鍵字所代表的意義如下:
c | 系統控制台內預設之完整的字串格式,如同直接使用函數 MyVariantToString | 2004/1/13 下午 01:45:12 |
y | 該日為當年第幾日 (1~366) | 13 |
yy | 西元年份後兩位 | 04 |
yyyy | 西元年份完整位數 | 2004 |
ee | 系統控制台內預設地區年份完整位數,台灣地區為民國 | 93 |
m | 月份自由位數,若跟隨 h 則傳回分鐘自由位數 | 1、12 |
mm | 月份完整位數,若跟隨 h 則傳回分鐘完整位數 | 01、12 |
mmm | 月份縮寫 (Jan–Dec) | Jan |
mmmm | 月份完整單字 (January–December) | January |
d | 日期自由位數 | 2、28 |
dd | 日期完整位數 | 02、28 |
ddd | 星期縮寫 (Sun–Sat) | Sun |
dddd | 日期完整單字 (Sunday–Saturday) | Sunday |
ddddd | 系統控制台內預設短日期格式 | 1/13/04 |
dddddd | 系統控制台內預設長日期格式 | 2004年1月13日 |
h | 小時自由位數 | 3、21,不支援 AM/PM |
hh | 小時完整位數 | 03、21,不支援 AM/PM |
n | 分鐘自由位數 | 4、57 |
nn | 分鐘完整位數 | 04、57 |
s | 秒數自由位數 | 5、59 |
ss | 秒數完整位數 | 05、59 |
q | 一年的第幾季 (1 ~ 4) | 1 |
ttttt | 系統控制台內預設時間格式 | 下午 01:45:12 |
w | 一週的第幾天,星期日為 1,星期六為 7 | 2 |
ww | 一年的第幾週 (1 ~ 54) | 3 |
AM/PM am/pm A/M a/p | 使用 12 小時制,依輸入的大小寫或縮寫顯示 | PM、p |
AMPM | 使用 12 小時制,依系統控制台內預設時間格式顯示上下午 | 下午 |
Intel Visual Fortran 7.0 以後 | wVariant.f90
winVariant 函式庫 | MyGetDateTime | MyFormat | MyVariantToString
|