L luyaong Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #1 我写了edit1.text:=datetostr(now)，但edit1显示出来的是02-1-17，而我想象的是 2002-1-17。前面那个到哪去了？怎么让它出来？
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #2 var ; LT : TSYSTEMTIME; ; S :String; begin ; GetLocalTime(LT); ; S :=(IntToStr(LT.wMonth) + '-' + ; ; ; IntToStr(LT.wDay) + ;'-' + ; ; ; IntToStr(LT.wYear) + ' ' + ; ; ; IntToStr(LT.wHour) + ;':' + ; ; ; IntToStr(LT.wMinute) + ;':' + ; ; ; IntToStr(LT.wSecond)); ; ShowMessage(S); end;
var ; LT : TSYSTEMTIME; ; S :String; begin ; GetLocalTime(LT); ; S :=(IntToStr(LT.wMonth) + '-' + ; ; ; IntToStr(LT.wDay) + ;'-' + ; ; ; IntToStr(LT.wYear) + ' ' + ; ; ; IntToStr(LT.wHour) + ;':' + ; ; ; IntToStr(LT.wMinute) + ;':' + ; ; ; IntToStr(LT.wSecond)); ; ShowMessage(S); end;
D dhl2001 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #3 var astring:string; datatimetostring(astring,'yyyy-MM-DD',now); edit1.text:=astring;
X xf-wangyi Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #4 不会呀，我是D6，showmessage(datetostr(now))后2002/1/17
E e_hua Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #6 我也遇到过这种问题，这是因为系统时间的格式是yy-MM-dd的， 你到控制面版中区域里去把时间格式改为yyyy-MM-dd格式就行了 或者当你的程序初始化是用语句改也可以 SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,'yyyy-MM-dd'); SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,'yyyy-MM-dd');
我也遇到过这种问题，这是因为系统时间的格式是yy-MM-dd的， 你到控制面版中区域里去把时间格式改为yyyy-MM-dd格式就行了 或者当你的程序初始化是用语句改也可以 SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,'yyyy-MM-dd'); SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,'yyyy-MM-dd');
Y yzhshi Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #7 Edit1.Text:=FormatDateTime('yyyy-mm-dd',now);
邻 邻家小妹 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #8 这样可以出来啊，Edit1.Text:='20'+Datetostr(Now);
S sxbrf Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #9 FormatDateTime('yyyy-mm-dd', now);
K kmyan Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #10 呵呵，除了上面的以外，还有一种方法： ; ;设置--控制面板--区域选项---日期--短日期格式 ok了
S SoftBoy Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #11 在主form的oncreate里写 LongDateFormat := 'yyyy-mm-dd'; ShortDateFormat := 'yyyy-mm-dd'; 一劳永逸。
风 风中流云 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #13 edit1.text:=FormatDateTime('dd-mm-yyyy',now);
W wind2000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-17 #14 同意SoftBoy,我都是这样干的！：） procedure TForm1.FormCreate(Sender: TObject); begin ; DateSeparator := '-'; ; ShortDateFormat := 'yyyy-mm-dd'; ; LongDateFormat := 'yyyy-mm-dd'; ; TwoDigitYearCenturyWindow := 80; ; TimeSeparator := ':'; ; ShortTimeFormat := 'HH:MM:SS'; end;
同意SoftBoy,我都是这样干的！：） procedure TForm1.FormCreate(Sender: TObject); begin ; DateSeparator := '-'; ; ShortDateFormat := 'yyyy-mm-dd'; ; LongDateFormat := 'yyyy-mm-dd'; ; TwoDigitYearCenturyWindow := 80; ; TimeSeparator := ':'; ; ShortTimeFormat := 'HH:MM:SS'; end;
