D dddd Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-09 #2 time1:string; time1:=FormatDateTime('yyyymmdd', date);
D Dick Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-09 #3 如果Delphi自己的构件，设置时间格式为Long格式，可以显示4位年份
D DNChen Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-10 #4 最简单的方法，是在tapplication初始化完成以后，设置一个环境变量就可以了，具体是哪个我忘了，西西，抱歉抱歉，你可以在关于datetime的函数里找到吧。 初始话的时候，会读取控制面板中关于时间的设置，其中有个设置就是时间格式，而你在程序中要做的，就是把这个用户设置所映射到你程序中的哪个变量改了，
最简单的方法，是在tapplication初始化完成以后，设置一个环境变量就可以了，具体是哪个我忘了，西西，抱歉抱歉，你可以在关于datetime的函数里找到吧。 初始话的时候，会读取控制面板中关于时间的设置，其中有个设置就是时间格式，而你在程序中要做的，就是把这个用户设置所映射到你程序中的哪个变量改了，
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-10 #5 全局变量 ShortDateFormat LongDateFormat
S swj Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-10 #6 在窗体form1上放一标签label1 在form1的oncreate事件上加如下代码: label1.caption:=FormatDateTime('yyyy-mm-dd',date); 其中'yyyy'为年份4位，mm为月份（1月份为01， 如果只有一个m则一月份为1),'-'也可以为'.'等其他符号.
在窗体form1上放一标签label1 在form1的oncreate事件上加如下代码: label1.caption:=FormatDateTime('yyyy-mm-dd',date); 其中'yyyy'为年份4位，mm为月份（1月份为01， 如果只有一个m则一月份为1),'-'也可以为'.'等其他符号.
T toychen Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-07 #7 如果我用的是DBEDIT中从数据库中提取的，将怎样显示呢？
刘 刘雪良 Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-30 #8 procedure TForm1.Button1Click(Sender: TObject); var yaer,month,day:word; begin decodedate(new,year,month,day); // year:2000 // month :3 // day:30 end;
procedure TForm1.Button1Click(Sender: TObject); var yaer,month,day:word; begin decodedate(new,year,month,day); // year:2000 // month :3 // day:30 end;
黄 黄耀彰 Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-07 #10 在时区设置里可选择是最简单的方法。日期数自动就会按你的设定格式。 想都不用想。
R rixin Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-07 #11 說的對, 直接在你的window98/nt中改: 控制台->區域設定->日期
