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

[delphi] view plaincopyprint?

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.