有谁知道从一个Double型的变量中分离出年月日时间信息，不能使用VB的函数

[ltpao]

同上

[ltpao]

提供C源程序也行

[Chice_wxg]

dim y as double
如果这样：
a=20000102 '2000年01月02日
那么就简单了
debug.print "Year:";a\10000,"Month:";(a mod 1000)\100,"Day:";(a mod 100000)

[ltpao]

比如 37109.8708912037 经转换后的日期和时间为2001-8-6 20:53:57

[ltpao]

难道没人知道?

[ltpao]

UP

[一川烟草123]

ltpao:
本月首席专家的问题当然不是人人都知的啦..呵呵,我也有兴趣,研究一下

[xdd1125]

Date 变量以Double 类型存储，并且以Double类型操作。Date 变量以IEEE 64位浮点数存储，表示日期可以从100年1月1日 到9999年12月31日 变化，时间从0:00:00 到23:59:59。任何可辨别的有文字记载的年份都可以赋值给Date 变量。当其他数据类型转换位Date类型，小数点左边的值表示日期信息，小数点右边的值表示时间。 午夜是0，中午是0.5。负数表示1899年12月30日以前的日期。

希望对你有个提示作用

[Un1]

?format$(cdate(0),"yyyy/m/d hh:mm:ss")
1899-12-30 00:00:00
?cdate(1)
1899-12-31
?cdate(2)
1900-1-1
?cdate(3)
1900-1-2
?cdate(37109)
2001-8-6

明白没？

[ltpao]

To:xdd1125 你说的我都知道
To:Un1 日期是以1899-12-30 为基准，整数部分表示与此相隔的天数，是吗，那么时间部分呢？

[ltpao]

Un1在吗

[songyangk]

小数部分除以1/24，结果是小时，余数部分再除以60是分钟，再余部分再除60是秒。剩下的可能是毫秒。

[ltpao]

To：songyangk，你的思路是对的，应该是小数部分乘以24，结果是小时，结果的小数部分再乘以60是分钟，结果的小数部分再乘以60是秒，结果的小数部分再乘以1000是毫秒。
多谢，给分