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

rbjojo 2003-04-21 09:43:40

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

...全文

29 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

csdngoodnight 2003-04-27

打赏
举报

'记得给分啊

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" 就行了

szqlovesly 2003-04-27

打赏
举报

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

Rozre 2003-04-21

打赏
举报

zsgzsgzsg 2003-04-21

打赏
举报

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