编程论坛 → VB.NET论坛

如何把日期转换为数值

xkx6328 发布于 2011-06-23 21:45， 1479 次点击

请各位帮帮一个刚学步的
在中如何把“日期”转换为数值，如：把“2010年6月23日”转换为数值“40717”

4 回复

冰镇柠檬汁儿2011-06-23 23:05

不知道2011 6 23这几个数是怎么计算得到40717的，什么算法？

fily13142011-06-24 16:49

这个简单，你可以把日期定义为从某年某天开始到现在所经过的天数，
这样就可以把当前日期转化为数值了

xkx63282011-06-24 21:50

在电子表格中日期2010年6月23日的计算值就是 40717天，是从1900年1月1日为第 1 天。
找到下面的方法，用DateDiff函数计算：
DateDiff(dateinterval, date1, date2)
用法：
Dim wD As Long = DateDiff(DateInterval.DayOfYear, #1/1/1900#, #6/23/2011#) + 2
是否有其他函数可用，请赐教，谢谢！

fily13142011-06-28 18:02

Dim dt1 As Date = Date.Parse("2010-1-1 0:0:1")
Dim days As Integer
days = (Now - dt1).TotalDays