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

2022-02-06 11:00:50

  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中的使用