delphi中有没有取得日期DATE的年、月和日的函数?谢谢各位。一定送分!(20分)

  • 主题发起人 主题发起人 joyzw
  • 开始时间 开始时间
J

joyzw

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi中有没有取得日期DATE的年、月和日的函数?谢谢各位。一定送分!
 
decodedate(date,year,month,day)
 
帮助中一大堆[:p]
 
var s:string;
year,month,day:string;
begin
s:=datetostr(date);
year:=copy(s,1,4);
month:=copy(s,6,2);
day:=copy(s,9,2);
end;
 
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
 
拜托先看看基础书再说
 
decodedate(date,year,month,day)
 
year:=copy(datetostr(date),1,4);
month:=copy(datetostr(date),6,2);
day:=copy(datetostr(date),9,2);

 
kao,怪不得5415大骂特骂。这种问题。不如以前回答了多少遍了。多少参考资料都有
 
year:=formatdatetime('YYYY',date);
Month:=Formatdatetime('MM',date);
Day:=Formatdatetime('DD',date);
Hour:=Formatdatetime('HH',date);
Min:=Formatdatetime('ss',date);
....
 
后退
顶部