Format DateTime
来源:互联网 发布:中国物种信息数据库 编辑:程序博客网 时间:2024/05/11 02:29
uses Sysconst;
procedure TForm1.Button4Click(Sender: TObject);
Const
DefShortMonthNames: array[1..12] of String = (SShortMonthNameJan,
SShortMonthNameFeb, SShortMonthNameMar, SShortMonthNameApr,
SShortMonthNameMay, SShortMonthNameJun, SShortMonthNameJul,
SShortMonthNameAug, SShortMonthNameSep, SShortMonthNameOct,
SShortMonthNameNov, SShortMonthNameDec);
var
Year, Month, Day: Word;
ADate : Tdate;
begin
ADate := Now;
DecodeDate(ADate, Year, Month, Day);
Showmessage(Formatdatetime('yyyy/mmm/dd',ADate));
Showmessage(Format('%D/%S/%D',[Year,DefShortMonthNames[Month],Day]));
end;
procedure TForm1.Button4Click(Sender: TObject);
Const
DefShortMonthNames: array[1..12] of String = (SShortMonthNameJan,
SShortMonthNameFeb, SShortMonthNameMar, SShortMonthNameApr,
SShortMonthNameMay, SShortMonthNameJun, SShortMonthNameJul,
SShortMonthNameAug, SShortMonthNameSep, SShortMonthNameOct,
SShortMonthNameNov, SShortMonthNameDec);
var
Year, Month, Day: Word;
ADate : Tdate;
begin
ADate := Now;
DecodeDate(ADate, Year, Month, Day);
Showmessage(Formatdatetime('yyyy/mmm/dd',ADate));
Showmessage(Format('%D/%S/%D',[Year,DefShortMonthNames[Month],Day]));
end;
- Format DateTime
- Datetime format
- format in datetime
- C# datetime format
- DateTime format log
- DateTime的Format格式
- DateTime Format String
- datetime string format
- string.Format DateTime
- Tcl/TK -- DateTime Format
- T-SQL DateTime Format
- C# 时间格式 DateTime Format
- C# 时间格式 DateTime Format
- Datetime Format Elements in oracle
- C# 时间格式 DateTime Format
- String Format for DateTime [C#]
- How to format DateTime in PowerShell window
- How to format date/datetime in struts2
- Add web application project in VS 2005
- Java正则表达式详解
- J2ME学习札记1
- 在创建job的时候出现这个问题
- 房价引起的血案
- Format DateTime
- j2me的基本介绍⑷
- CMPP 移动接口
- j2me的基本介绍⑶
- C#开发:openfiledialog的使用
- C语言版的磁盘分片归并排序函数
- 红色的小叉 与 无法解析类型 java.lang.Object
- j2me的基本介绍⑵
- 用Java实现FTP服务器解决方案