是否将数字与日期的相互转换？(50分)

bihai · 2002-07-11

如题，已经有了StrtoDate，但如果有只是一个数字呢？是否可以转换的日期型？
比如： 1 --> 1900/1/1

YoungSun · 2002-07-11

这样可以，不过最后的日期是1899-12-30 1:00:00
showmessage(datetimetostr(strtodatetime('1')));

twos · 2002-07-11

这种转化，最好是自己写函数。
这样才能符合你的要求

bihai · 2002-07-11

To:YoungSun
你的写法只适合于时间，也就是说，只能在24小时内有效，所以并不理想。

To:twos
我也想写出这个函数，但不知道具体的做法。：(

0738 · 2002-07-11

日期本身在Delphi中就是用Double类型保存的，直接操作就可以了，不需要再转换了吧
例如： DateToStr(1)='1899-12-31'

bihai · 2002-07-12

To:0738
谢谢你的提示(之前也知道日期是用Double类型保存的，但却忽略了一些问题)，我刚测试过了，把日期看成是float就成了。

冷血修罗 · 2002-08-05

请问：我如何将两个日期时间相减得出相差的时间，如1天，而不是1899-12-31之类的。
谢谢。