救命!在Delphi中日期型为Double类型,如何从他的整数部分得到包含的年、月、日? 在Delphi中日期型为Double类型,整数部分保存的年月日,如何从他的整数部分得到包含的年、月、日?又如何从他的小数部分得到小时、分钟和秒?注意,不允许使用YearOf,Monthof()类的函数!也不允许使用isc_decode_timestamp之类的方法,我需要计算的过程。多谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month ' + IntToStr(Month) + ' of Year ' + IntToStr(Year); DecodeTime(Present, Hour, Min, Sec, MSec); Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour ' + IntToStr(Hour);end;年、月、日、小时、分钟和秒全有了。 DecodeDate(当前的时间, Year, Month, Day);这样的化 年月日就都有了 formatdatetime('yyyy',now);//年formatdatetime('mm',now);//月formatdatetime('dd',now);//日formatdatetime('hh',now);//时//formatdatetime('ss',now);//秒 其实double要转化为日期型号不难,如下:formatdatetime('YYYYMMDD',123.234);产生结果为19000502----1900年05月02日formatdatetime('YYYYMD',123.234);产生结果为190052----1900年5月2日也可以向upingking那样写 同意hiflower(花)的方法,楼主,就算日期自己去算,也有可能是不准的,因为类型为DOUBLE型。 treeview一次性显示大量数据库信息 实现多个库之间数据转移——ODAC高手请进 关于‘TUpDown’控件 一个小问题,帮忙看看; 哪里下载Delphi8(Delphi.Net)?谢谢 我也不知道怎么找到的这个地方…… 如何编程实现禁止指定程序的运行!请各位高手帮忙 找一个DbGrid控件,实现直接按列查找功能 delphi調用vb2005動態庫 有关用adoquery向excel里insert数据的问题 delphi7里带的indy的IDTCPClient控件的10061 如何设置AdvStringGrid的某一列为只读,某一列只能输入数字????????????????????
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;
年、月、日、小时、分钟和秒全有了。
这样的化 年月日就都有了
formatdatetime('mm',now);//月
formatdatetime('dd',now);//日
formatdatetime('hh',now);//时
//
formatdatetime('ss',now);//秒
formatdatetime('YYYYMMDD',123.234);
产生结果为19000502----1900年05月02日formatdatetime('YYYYMD',123.234);
产生结果为190052----1900年5月2日也可以向upingking那样写
就算日期自己去算,
也有可能是不准的,
因为类型为DOUBLE型。