在程序如何设定系统的日期格式为：yyyy-MM-DD HH:MM?

Question

我在写一些有关日期处理的程序时，有时会因客户的日期格式不同而出现很多问题，请各位大侠帮小弟解决这个问题，感激不尽！！！

Answer 1

Edit1.Text := FormatDateTime('yyyy-mm-dd hh:nn', Now());
Edit1.Text := FormatDateTime('yyyy-MM-dd hh:mm', Now());

Answer 2

设置程序的日期解析格式可以找下面的方法来做。在程序初始化时：
ShortDateFormat := 'yyyy.mm.dd';
这样一来你的StrToDate就可以按照新的格式来工作了。但是实际上个人并不推荐这么做。

Answer 3

我也推荐这种Edit1.Text := FormatDateTime('yyyy-mm-dd hh:mm', Now());

Answer 4

用API函数SetLocaleInfo
具体看帮助好了
使用例子以前的操作猛料里有

Answer 5

To Goxu(裤子) 我试了一下猛料里的例子，没反应。

Answer 6

SetLocaleInfo(GetSystemDefaultLCID,LOCALE_SSHORTDATE,'yyyy-MM-dd');
SetLocaleInfo(GetSystemDefaultLCID,LOCALE_SDATE,'-');
SendMessageA(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);

Answer 7

TO:WWWWA(aaaa)
   因为我想从日期字符串中取得时间值，所以要设定是YYYY-MM-DD HH:MM
   所以时间格式又如何呢？

Answer 8

如果有一个日期字符串,想取出时间的话，可以这样
uses DateUtils;
  eDateTime := StrToDateTime(strDateTime);
  eTime := TimeOf(eDateTime);
  ShowMessage(TimeToStr(eTime));