简单问题100分
解决方案 »
- 请高手关注:关于delphi KEY 键值问题
- Variable required
- 六十万条记录输入数据库的问题
- idHTTP控件可以获得远程http主机的文件,但如何获得这个文件的创建时间呢?
- 使用第三方组件的问题
- 如何让这段程序在运行中把label的caption显示出来啊?
- 还是Treeview的问题
- 一个全局变量,在多个其他unit中用到,它所在的unit是否必须被其他unit在interface中uses?
- 怎样使messagedlg等函数显示的对话框的按键的Caption为中文呢?
- 自由软件,免费软件,共享软件三者有何不同??
- 所谓二进制编码到底是什么?TStream里面存放的是二进制编码?还是字节流???
- 开放--短信群发软件源代码!!!
var ss : TDateTime
其实Tdatetime是一个双精度的浮点数,它的小数点前表示天数:
如, ss := ss + 20 表示从ss开始向后20天,如果 ss = 234.567
它就表示 234.567天,当然是从公元0年开始计算的!
--------------------------------------------------------------------------------
时间处理的秘密
TDateTime类型实际上就是一个double(双精度数). 整数部分是日期小数部分是时间。例如var
DateTime : TDateTime;
Date : TDateTime;
Time : TDateTime;
begin
DateTime := now;
//获得日期
Date := Trunc( DateTime );
//获得时间
Time := Frac( DateTime );
end;日期运算
如果你想增加几天,只需要加一个天数就可以了var
DateTime : TDateTime;
begin
DateTime := now;
//七天以后
DateTime := DateTime + 7;
end;想要知道两个日期的差距,只需要互相减一下就可以了。var
StartTime, StopTime, Difference : TDateTime;
begin
Difference := StopTime - StartTime;
end;
Date1,Date2,Date3:TDate;
begin
Date1:=Date; //当天的日期
Date2:=Date1-7; //一周前的日期
Date3:=incmonth(Date1,-1); //一个月前的日期
Edit1.Text:=DateToStr(Date1);
Edit2.Text:=DateToStr(Date2);
Edit3.Text:=DateToStr(Date3);
end;注意TDate与TDateTime之间的区别:前者只有日期,后者是日期+时间
Date是Delphi常数,表示当天日期,是TDate类型;
Now也是Delphi常数,表示当天前日期+时间,是TDateTime类型;