首页 > Windows开发 > 详细

Delphi的DateToStr StrToDate格式灵活用法

时间:2016-01-06 11:27:38      阅读:716      评论:0      收藏:0      [点我收藏+]
Delphi的DateToStr StrToDate格式灵活用法
2008-04-09 10:19

procedure TForm1.Button1Click(Sender: TObject);
var
   ADate: String;
   ADate2: TDate;
   AFormat, AFormat2: TFormatSettings;
begin
   AFormat.ShortDateFormat := ‘ee/mm/dd‘;
   AFormat.DateSeparator := ‘/‘;
   ADate := ‘94/05/15‘;
   ADate2 := StrToDate( ADate, AFormat );
   AFormat2.ShortDateFormat := ‘yyyy/mm/dd‘;
   AFormat2.DateSeparator := ‘/‘;
   ShowMessage( DateToStr( StrToDate( ADate, AFormat ), AFormat2 ) );
end;

其中,最重要的就是TFormatSettings这个类.

可以设置AFormat.shortDateFormat:=‘yyyymmdd‘

DateToStr(ADate,Aformat)得到字符串就是类似20080409的字符了.

如果是‘yymmdd‘则为080409的字符

Delphi的DateToStr StrToDate格式灵活用法

原文:http://www.cnblogs.com/qi123/p/5104715.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!