借朋友帐号提个简单问题（不帐号主人高程黑龙江省第一）

[rbjojo]

在三个text里输入三个数据作为年月日
怎么在程序中把三个数据引用、组合为一个日期型数据啊？
我要把他和另外一个这样的数据进行减运算
指教！！！

[zsgzsgzsg]

Dim MyDate1, MyDate2, MyDate3
'函数DateSerial(year, month, day)
MyDate1 = DateSerial(val(text1),val(text2),val(text3))
MyDate2 = DateSerial(val(text11),val(text12),val(text13))
MyDate3 = MyDate1-MyDate2 '得到相隔天数

[Rozre]

up

[szqlovesly]

为什么要用TEXT呢?用DateTimePicker控件多好，不用输入，不用转换。强烈建议使用DateTimePicker。

[csdngoodnight]

'记得给分啊

dim dt as date
dim i as integer
dt = cdate(text1.text & "-" & text2.text & "-" & text3.text)

'此日期与今天的间隔
i = datediff("d",date,dt)
'"d" 以日为间隔单位
'若以年、月或星期为单位，则改为："y" "m" "w" 就行了