Delphi怎么没有时间类型啊,如果我要求某一时间的前100天:如2004-10-21的前一百天,该怎么写程序?
解决方案 »
- win98下读取当前正在使用的即插即用设备(U盘)序列号
- 怎样成为DELPHI高手
- delphi 如何实现文件夹和文件的缩略图查看
- [新手]多表查询
- 如何限制EDIT控件格式符合日期格式
- 关于findfile()的问题,在线等!
- 请教:这样的ComboBox如何实现,帮忙啊,UP有分
- rave创建dataview时出现:"a component named dataview1 already exists."
- delphi 6中如何用database(主程序调用一个写好的dll文件时,dll中的database 和主体的database)
- 如何在程序中操作两个不同数据库中的表?
- 高分求解:如何在 automation 服务器中的写类属性和数组属性
- 300分求一实例,在线等。请大家帮帮忙。
dt1: TDateTimePicker;
dt2: TDateTimePicker;
dt2.Date:=dt1.Date-100;
----------------------------
怎么没有
var
a: TDatetime;//这个就是时间类型啊天数可以直接加减的如果是小时等
则要稍微转换
例如:
var
NewDate:TDateTime; //时间类型
begin
NewDate:=IncDay(Now,-100);
end;
strtodate('2004-10-21')-100
dt1: TDateTimePicker;
dt2: TDateTimePicker;
dt2.Date:=dt1.Date-100;
不行?
DM.ADOQryPublic.SQL.Clear;
DM.ADOQryPublic.SQL.Add(StrSql);
DM.ADOQryPublic.Open;
if DM.ADOQryPublic.Eof then exit;
OldDate:=DM.ADOQryPublic.FieldByName('B_TIME').AsDateTime;
NewDate:=DTDate.Date;
** IntDays:=OldDate-NewDate;
编译时,**一句报错:
Incompatible types:'Integer' and 'Extended'
请问如何解决?
请问如何把Extended转为最接近的Integer?