社区
Delphi
帖子详情
菜鸟问题:两个时间类型变量怎样求出它们之间相差的天数?
csdncjp
2003-10-09 10:24:39
同上。
...全文
66
8
打赏
收藏
菜鸟问题:两个时间类型变量怎样求出它们之间相差的天数?
同上。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
mxk19791116
2003-10-09
打赏
举报
回复
首部 function FloatToDateTime(const Value: Extended): TDateTime; $[SysUtils.pas
功能 返回浮点数转换成日期时间类型
说明 如果浮点数超出范围将触发异常
参考 function System.Int
例子 Edit2.Text := DateTimeToStr(FloatToDateTime(StrToFloatDef(Edit1.Text, 0)));
这个是把你所说的REAL类型,转为日期类型的。
mxk19791116
2003-10-09
打赏
举报
回复
首部 function FormatDateTime(const Format: string; DateTime: TDateTime): string; $[SysUtils.pas
功能 返回用指定的格式Format来格式化日期时间DateTime
说明 FormatDateTime('YYYY"年"MM"月"DD"日"', StrToDate('2002-03-09')) = '2002年03月09日'
参考 function SysUtils.DateTimeToString
例子 Edit2.Text := FormatDateTime(Edit1.Text, Now);
取得后,转为整型,然后 一减就 OK了。
csdncjp2
2003-10-09
打赏
举报
回复
real怎样转换成int或者string?
da_yu
2003-10-09
打赏
举报
回复
//取得两个日期之间跨越的天数(原始日期为整型,格式为YYYYMMDD)
function GetInsertNum(LastDay,NextDay: Integer): Integer;
Var
StrLen: Integer; // 字串长度
LastStr,NextStr,Separator: String; // 年月日分隔符
begin
Separator := '-'; // 年月日分隔符
LastStr := IntToStr(LastDay); // 取得上一天日期值
NextStr := IntToStr(NextDay); // 取得下一天日期值
StrLen := Length(LastStr);
Insert(Separator,LastStr,StrLen-3); // 插入年月日分隔符
StrLen := Length(LastStr);
Insert(Separator,LastStr,StrLen-1);
StrLen := Length(NextStr);
Insert(Separator,NextStr,StrLen-3);
StrLen := Length(NextStr);
Insert(Separator,NextStr,StrLen-1);
Result := trunc(StrToDate(NextStr) - StrToDate(LastStr));// 取得两交易日间跨越的天数
end;
Little2000
2003-10-09
打赏
举报
回复
DaysBetween(Datetime1,Datetime2);
要引用DateUtils单元
IORILI
2003-10-09
打赏
举报
回复
VARIABLES:
Year1, Month1, Day1,
Year2, Month2, Day2,
YearResult, MonthResult, DayResult: Word;
TDay1, TDay2, DateDiff: TDateTime;
CODE:
TDay1 := EncodeDate(Year1, Month1, Day1);
TDay2 := EncodeDate(Year2, Month2, Day2);
DateDiff := TDay2 - TDay1; {assuming TDay2 is later than TDay1}
DecodeDate(DateDiff, YearResult, MonthResult, DayResult);
dulei115
2003-10-09
打赏
举报
回复
Trunc(Datetime1)-Trunc(Datetime2)
或者函数daysbetween(Datetime1,Datetime2)
z_hongbao
2003-10-09
打赏
举报
回复
var
d: real;
begin
d := DateTimePicker2.DateTime-DateTimePicker1.DateTime;
caption := FormatFloat('###',d) + '天';
end;
php mysql
菜
鸟
_PHP 和 MySQL 基础教程(四)
PHP 和 MySQL 基础教程(四)发布
时间
:2016-06-17 来源: 点击:次MySQL 中的 SQL对于 MySQL ,第一件你必须牢记的是它的每一行命令都是用分号 (;) 作为结束的,但……没有完全绝对的事,在这儿也是一样。前面我曾经讲到,当一行 MySQL 被插入在 PHP 代码中时,最好把后面的分号省略掉,例如:mysql_query ("INSERT INTO table...
菜
鸟
的mysql踩坑之路
笔者以前一直使用的oracle,现在换了新公司,使用的是mysql,刚开始用的时候真的各种不习惯,最近刚好有
时间
,整理一下最近使用mysql遇到的一些
问题
。 1.MySQL中NULL和空字符串的区别以及注意点: 有一次行转列的时候,我想使用ifnull()函数把空字段全部转换成’null’字符串方便我做处理,结果发现只有部分空字段变成了null字符串,我百思不得其解,仔细看了一下数据发现表中有些空...
C语言小测试
本博文为本人平时学习时自己写的测试代码(部分借鉴他人)。有时候有看不懂或不确定的代码,需要用这些基础性的小测试来验证确认。算法不一定是最好的,但管用。每天一点新发现,持续更新中。。。 测试平台:Ideone/ Code::Bolcks / C在线工具|
菜
鸟
工具 1. 把一个更大位数的数赋值给比它位数小的
变量
,会发生什么? 1 #include <stdio...
小
菜
鸟
之数据库
数据库复习提纲之文字版(这个只是自己整理文案,答案是查的,勿喷,谢谢,希望给别人一些帮助) 1、Oracle和SQL server2005的区别 Oracle数据库:Oracle Database,又名Oracle RDBMS,或简称Oracle。是甲骨文公司的一款关系数据库管理系统。 它是在数据库领域一直处于领先地位的产品。可以说Oracle数据库系统是目前世界上流行的关系...
EXCEL难题一网打尽 无意间看到的 转过来 自己看看
引用
问题
我在excel中想实现这么一个功能,如单元格D12有一个数据是4,现在我想引用A4的数据,但4是由D12提供的,即如何实现A4=A(D12)。也就是,在Excel中,A7单元,能否实现把后面的数字用算式来代替,如A(3+4),或者是单元格的嵌套,A(D12),恳请高手解答。解答:①=indirect("a"&d12)②我的想法:借一个单元格如B4用,键入="A"&D12 在需引用的单
Delphi
5,391
社区成员
262,736
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章