请各位帮帮一个刚学步的
在中如何把“日期”转换为数值，如：把“2010年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
是否有其他函数可用，请赐教，谢谢！