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

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

解决方案 »

  1.   

    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 '得到相隔天数
      

  2.   

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

  3.   

    '记得给分啊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" 就行了