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

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

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

在电子表格中日期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
是否有其他函数可用，请赐教，谢谢！

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