时间与字符串
作者:互联网
时间与字符串
SysUtils.StrToDate(); SysUtils.StrToDateDef(); SysUtils.TryStrToDate(); SysUtils.StrToTime(); SysUtils.StrToTimeDef(); SysUtils.TryStrToTime(); SysUtils.StrToDateTime(); SysUtils.StrToDateTimeDef(); SysUtils.TryStrToDateTime(); SysUtils.DateToStr(); SysUtils.TimeToStr(); SysUtils.DateTimeToStr(); SysUtils.DateTimeToString(); SysUtils.FormatDateTime();
SysUtils.FormatDateTime(); 函数参见:
http://www.cnblogs.com/del/archive/2007/12/19/1005205.html
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses DateUtils; procedure TForm1.FormCreate(Sender: TObject); var d: TDateTime; str: string; fmt: TFormatSettings; begin d := StrToDateTime('2009-5-21 11:22:33'); str := DateTimeToStr(d); ShowMessage(str); // 2009-5-21 11:22:33 GetLocaleFormatSettings(GetThreadLocale, fmt); fmt.DateSeparator := '/'; fmt.TimeSeparator := '_'; fmt.ShortDateFormat := 'dd/mm/yyyy'; fmt.ShortTimeFormat := 'hh:mm:ss'; str := DateTimeToStr(d, fmt); ShowMessage(str); // 21/05/2009 11_22_33 DateTimeToString(str, 'yyyy 年 m 月 d 日 h 点 m 分 s 秒', d); ShowMessage(str); //2009 年 5 月 21 日 11 点 22 分 33 秒 end; end.posted on 2009-05-21 23:18 万一 阅读(4075) 评论(4) 编辑 收藏
标签:21,22,fmt,SysUtils,时间,str,字符串,2009 来源: https://blog.51cto.com/u_14617575/2745691