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

Question

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

Answer 1

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

Answer 2

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日以前的日期。希望对你有个提示作用

Answer 3

?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 明白没？

Answer 4

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

Answer 5

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