日期能转换成数字么?! 如题dateTimeToInt//------这样转不行 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 strtoint(formatdatetime('yymmdd',now)) 这样一个日期-另一个日期把结果变成int存到表里! 日期时间类型是以天为单位的,所以是Double型。DateTimeToFloat即可。 procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); 功能 将Delphir的日期时间类型参数DateTime分解为年、月、日返回至Year、 Month、 Day中。procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word); 功能 将Delphir的日期时间类型参数DateTime分解为时、分、秒、毫秒返回至Hour、 Min、 Sec、 Msec中。 var time1,time2,time3:TDatetime;h,m,s:integer;begintime3:=time1-time2;decodetime(time3,h,m,s);result:=h*3600+m*60+s;end; to : heixiu1980(heixiu1980DateTimeToFloat这样不行! sandraphh(我在云端) 转换后变成1899:12:30分 procedure DecodeDate(Date: TDateTime; var Year, Month, Day: int); procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: int); 还有一个EncodeDate,把int 组成datetime,和上面两个相反,你查下帮助,得出的值你要处理一下,时分秒什么的要分开存吧。怎么会成1899:12:30这样啊? 怎么样修改Tstring中某个位置的内容 【求助】delphi编译时出现错误! IE中通过js调用com操作客户端软件的问题 求Tcp长连接server端程序的方案。(分不够加分) 100分!懂C 的高手来拿吧! 简单问题,大家都来! 怎么下载? ******急急急急急急!!!怎么得到stringGrid中被选中的行???up有分********* 没事,散分,来者****有分**** 不看别后悔!!!!!!!! 我好害怕, 听说DELPHI的EXE很容易被反编译过来,高手给解答一下吧:( 小但不好解决的问题
一个日期-另一个日期把结果变成int存到表里!
DateTimeToFloat即可。
功能 将Delphir的日期时间类型参数DateTime分解为年、月、日返回至Year、 Month、 Day中。procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word); 功能 将Delphir的日期时间类型参数DateTime分解为时、分、秒、毫秒返回至Hour、 Min、 Sec、 Msec中。
time1,time2,time3:TDatetime;h,m,s:integer;begintime3:=time1-time2;decodetime(time3,h,m,s);result:=h*3600+m*60+s;end;
DateTimeToFloat这样不行!
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: int); 还有一个EncodeDate,把int 组成datetime,和上面两个相反,你查下帮助,得出的值你要处理一下,时分秒什么的要分开存吧。怎么会成1899:12:30这样啊?