Delphi的时间与字符串函数代码示例

  1. SysUtils.StrToDate();
  2. SysUtils.StrToDateDef();
  3. SysUtils.TryStrToDate();
  4. SysUtils.StrToTime();
  5. SysUtils.StrToTimeDef();
  6. SysUtils.TryStrToTime();
  7. SysUtils.StrToDateTime();
  8. SysUtils.StrToDateTimeDef();
  9. SysUtils.TryStrToDateTime();
  10. SysUtils.DateToStr();
  11. SysUtils.TimeToStr();
  12. SysUtils.DateTimeToStr();
  13. SysUtils.DateTimeToString();
  14. SysUtils.FormatDateTime();
  15. SysUtils.FormatDateTime(); 函数参见:
  16. unit Unit1;
  17. interface
  18. uses
  19.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  20.  Dialogs;
  21. type
  22.  TForm1 = class(TForm)
  23.   procedure FormCreate(Sender: TObject);
  24.  end;
  25. var
  26.  Form1: TForm1;
  27. implementation
  28. {$R *.dfm}
  29. uses DateUtils;
  30. procedure TForm1.FormCreate(Sender: TObject);
  31. var
  32.  d: TDateTime;
  33.  str: string;
  34.  fmt: TFormatSettings;
  35. begin
  36.  d := StrToDateTime('2009-5-21 11:22:33');
  37.  str := DateTimeToStr(d);
  38.  ShowMessage(str); // 2009-5-21 11:22:33
  39.  GetLocaleFormatSettings(GetThreadLocale, fmt);
  40.  fmt.DateSeparator := '/';
  41.  fmt.TimeSeparator := '_';
  42.  fmt.ShortDateFormat := 'dd/mm/yyyy';
  43.  fmt.ShortTimeFormat := 'hh:mm:ss';
  44.  str := DateTimeToStr(d, fmt);
  45.  ShowMessage(str); // 21/05/2009 11_22_33
  46.  DateTimeToString(str, 'yyyy 年 m 月 d 日 h 点 m 分 s 秒', d);
  47.  ShowMessage(str); //2009 年 5 月 21 日 11 点 22 分 33 秒
  48. end;
  49. end.
上一篇:HashTable(散列表)


下一篇:RedisRepository封装—Redis发布订阅以及StackExchange.Redis中的使用