如何将Tdatetime转换为Integer类型？

newloop 2001-07-24 04:13:48

我需要用日期控制For循环，但For的循环变量是有序类型，如何将int(date1-date2)赋与Integer类型？

...全文

169 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

delphi_user 2001-07-24

打赏
举报

回复

i:=round(int(date1-date2))

chechy 2001-07-24

打赏
举报

回复

Round(Date1-Date2)
or
Trunc(Date1-Date2)

type //类型定义 TDate = TDateTime; TTime = TDateTime; { 中文数字大写组件 by lichaohui } TCnDigits = class(TComponent) private Fda: Boolean; procedure SetDA(const Value: Boolean); procedure SetCnUP...

//将秒转换为00:00:00的形式　iIndex : Integer; // StringGrid 中对应的行号　iStaus : Integer; //状态：0：停止；1：正在下载；　bStop : Boolean; 　bFinished : Boolean; //下载是否完成　bGetInfo :...

{* 用于读取时区注册表TZI（长度为44）的属性值，存储时区信息 *} PRegTZIInfo = ^TRegTZIInfo; TRegTZIInfo = record Bias: Longint; StandardBias: Longint; DaylightBias: Longint; StandardDate: ...

Variant 类型代码运行很慢，不仅数据类型转换如此，两个值为整数的Variant 变量相加也是如此。它们几乎跟Visual Basic这种解释性代码一样慢！为了比较Variant变量和整型变量的运行速度，请看例VSpeed 。程序中...

function DaysBetween(Date1, Date2: TDateTime): integer; {//得到两个日期相隔的天数} //▎============================================================▎// //▎===================③ 扩展的位操作函数 ====...

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章