Delphi的日期时间格式
1、日期時間格式化為字符串
? edit2.text:=formatdatetime( 'yyyy年mm月dd日hh點nn分ss秒',now);
2、將程序初始化為指定的日期時間格式(在程序初始化時處理)
? System.SysUtils.FormatSettings.DateSeparator ? := '-';
? System.SysUtils.FormatSettings.ShortDateFormat := 'yyyy-mm-dd';
? System.SysUtils.FormatSettings.LongDateFormat ?:= 'yyyy-mm-dd';
? System.SysUtils.FormatSettings.LongTimeFormat ?:= 'HH:mm:ss';
3、日期時間/字符串互相轉換函數
//Desc: 本地化格式
function LocalDTSettings: TFormatSettings;
begin
? Result := TFormatSettings.Create('en-US');
? //default config ?
? with Result do
? begin
? ? ShortDateFormat:='yyyy-MM-dd';
? ? DateSeparator ?:='-';
? ? LongTimeFormat :='hh:mm:ss';
? ? TimeSeparator ?:=':';
? end;
end;
//Desc: 轉換為日期型
class function TDateTimeHelper.Str2Date(const nStr: string): TDate;
begin
? try
? ? Result := StrToDate(nStr, LocalDTSettings);
? except
? ? Result := Date();
? end;
end;
//Desc: 日期轉字符串
class function TDateTimeHelper.Date2Str(const nDate: TDateTime;
? const nSeparator: Boolean): string;
begin
? if nSeparator then
? ? ? ?Result := FormatDateTime('YYYY-MM-DD', nDate)
? else Result := FormatDateTime('YYYYMMDD', nDate);
end;
//Desc: 轉換為時間型
class function TDateTimeHelper.Str2Time(const nStr: string): TTime;
begin
? try
? ? Result := StrToTime(nStr, LocalDTSettings);
? except
? ? Result := Time();
? end;
end;
class function TDateTimeHelper.Time2Str(const nTime: TDateTime;
? const nSeparator,nMSec: Boolean): string;
begin
? if nSeparator then
? begin
? ? Result := 'HH:MM:SS';
? ? if nMSec then
? ? ? Result := Result + ':ZZZ';
? ? //Milliseconds
? end else
? begin
? ? Result := 'HHMMSS';
? ? if nMSec then
? ? ? Result := Result + 'ZZZ';
? ? //Milliseconds
? end;
? Result := FormatDateTime(Result, nTime);
end;
class function TDateTimeHelper.Str2DateTime(const nStr: string): TDateTime;
begin
? try
? ? Result := StrToDateTime(nStr, LocalDTSettings);
? except
? ? Result := Now();
? end;
end;
//Desc: 日期轉字符串
class function TDateTimeHelper.DateTime2Str(const nDT: TDateTime): string;
begin
? Result := FormatDateTime('yyyy-mm-dd hh:mm:ss', nDT);
end;
總結
以上是生活随笔為你收集整理的Delphi的日期时间格式的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 电脑桌面便签软件怎么通过便签快捷键快速云
- 下一篇: 中文技术网站排名