短日期格式和长日期格式的转换问题！

Question

在程序开始加入以下代码LongDateFormat := 'yyy年MM月dd日' ;
ShortDateFormat := 'yyyy-MM-dd' ;

Answer 1

参考 formatdatetime 函数帮助

Answer 2

用  function FormatDateTime('YYYY-MM-DD',DD:TDate):String;
eg:
var
  DateStr:String;
  DD:TDate;
begin
  DD:=StrToDate('80-01-01');
  DateStr:=FormatDateTime('YYYY-MM-DD',DD);
  ShowMessage(DateStr);
end;

Answer 3

如何设置，使得接收到的就是'YYYY-MM-DD HH:MM:SS'格式？
我的程序在有些机子上是YY-MM-DD格式，不是是'YYYY-MM-DD HH:MM:SS'格式，
以至引发异常，该如何解决？

Answer 4

你可以设置LongTimeFormat、DateSeparator、TwoDigitYearCenturyWindow这些常量来控制，你也可以从系统的区域设置来控制

Answer 5

到WINDOWS的时间设置上去把时间格式改成长格式就OK了,就是每台机器都得改,稍微麻烦一点,不过这样不用改原代码 呵呵

Answer 6

uses段加入delphi隐藏的一个宏 commctrl;然后    DateTime_SetFormat(DateTimePicker1.Handle, 'yyyy-MM-dd hh:mm:ss');
就可以显示长日期了。