格式化輸出函數(2): FormatDateTime

var

　　s: string;

　　begin

　　//FormatDateTime 的參數1是 String 格式指令, 參數2是 TDateTime 類型的時間

　　s := FormatDateTime('c', Now); {返回: 2007-12-18 23:56:05}

　　{指令 c 表示用短格式顯示日期與時間}

　　s := FormatDateTime('d', Now); {返回: 19}

　　s := FormatDateTime('d', StrToDateTime('2008-1-1')); {返回: 1}

　　{d 表示日期}

　　s := FormatDateTime('dd', Now); {返回: 19}

　　s := FormatDateTime('dd', StrToDateTime('2008-1-1')); {返回: 01}

　　{d 表示雙位日期}

　　s := FormatDateTime('ddd', Now); {返回: 星期三}

　　s := FormatDateTime('dddd', Now); {返回: 星期三}

　　{ddd 與 dddd 表示星期; 可能對不同的語種會有區別}

　　s := FormatDateTime('ddddd', Now); {返回: 2007-12-19}

　　{ddddd 五個 d 表示短格式日期}

　　s := FormatDateTime('dddddd', Now); {返回: 2007年12月19日}

　　{dddddd 六個 d 表示長格式日期}

　　s := FormatDateTime('e', Now); {返回: 7}

　　{e 表示年, 1位}

　　s := FormatDateTime('ee', Now); {返回: 07}

　　{ee 表示年, 2位}

　　s := FormatDateTime('eee', Now); {返回: 2007}

　　s := FormatDateTime('eeee', Now); {返回: 2007}

　　{eee 與 eeee 返回4位數年}

　　s := FormatDateTime('m', Now); {返回: 12}

　　{m 表示月, 1位}

　　s := FormatDateTime('mm', StrToDateTime('2008-1-1')); {返回: 01}

　　{mm 表示月, 2位}

　　s := FormatDateTime('mmm', Now); {返回: 十二月}

　　s := FormatDateTime('mmmm', Now); {返回: 十二月}

　　{mmm 與 mmmm 表示長格式月}

　　s := FormatDateTime('y', Now); {返回: 07}

　　s := FormatDateTime('yy', Now); {返回: 07}

　　s := FormatDateTime('yyy', Now); {返回: 2007}

　　s := FormatDateTime('yyyy', Now); {返回: 2007}

　　{y yy yyy yyyy 表示年; 和 e 略有不同}

　　s := FormatDateTime('t', Now); {返回: 0:21}

　　s := FormatDateTime('tt', Now); {返回: 0:22:13}

　　{t tt 表示時間}

　　s := FormatDateTime('ampm', Now); {返回:　上午}

　　s := FormatDateTime('tampm', Now); {返回: 0:24 上午}

　　{ampm 表示上午、下午}

　　s := FormatDateTime('h', StrToDateTime('2007-12-30 9:58:06')); {返回: 9}

　　s := FormatDateTime('hh', StrToDateTime('2007-12-30 9:58:06')); {返回: 09}

　　{h hh 表示時}

　　s := FormatDateTime('n', StrToDateTime('2007-12-30 9:58:06')); {返回: 58}

　　s := FormatDateTime('nn', StrToDateTime('2007-12-30 9:58:06')); {返回: 58}

　　{n nn 表示分}

　　s := FormatDateTime('s', StrToDateTime('2007-12-30 9:58:06')); {返回: 6}

　　s := FormatDateTime('ss', StrToDateTime('2007-12-30 9:58:06')); {返回: 06}

　　{s ss 表示秒}

　　s := FormatDateTime('z', Now); {返回: 24}

　　s := FormatDateTime('zz', Now); {返回: 524}

　　s := FormatDateTime('zzz', Now); {返回: 524}

　　{z zz zzz 表示毫秒}

　　s := FormatDateTime('yymmdd', Now); {返回: 071219}

　　s := FormatDateTime('yy/mm/dd', Now); {返回: 07-12-19}

　　s := FormatDateTime('yy-mm-dd', Now); {返回: 07-12-19}

　　s := FormatDateTime('yy*mm*dd', Now); {返回: 07*12*19}

　　{使用分隔符, - 是默認的, / 是與 - 等效的, 假如我非要用 / 顯示呢?}

　　s := FormatDateTime('yy"/"mm"/"dd', Now); {返回: 07/12/19}

　　s := FormatDateTime('"當前時間是: "yyyy-m-d h:n:s:zz', Now);

　　{返回: 當前時間是: 2007-12-19 0:47:16:576}

　　{混入的字符串要包含在雙引號中}

　　ShowMessage(s);

　　end;