winVariant 函式庫 風禹科技驗證有限公司 網站 提供 .Net 原始碼

MyFormatDate 函數

說明

將 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系統控制台內預設之完整的字串格式,如同直接使用函數 MyVariantToString2004/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,星期六為 72
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