借朋友帐号提个简单问题(不帐号主人高程黑龙江省第一) 在三个text里输入三个数据作为年月日怎么在程序中把三个数据引用、组合为一个日期型数据啊?我要把他和另外一个这样的数据进行减运算指教!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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 '得到相隔天数 为什么要用TEXT呢?用DateTimePicker控件多好,不用输入,不用转换。强烈建议使用DateTimePicker。 '记得给分啊dim dt as datedim i as integerdt = cdate(text1.text & "-" & text2.text & "-" & text3.text)'此日期与今天的间隔i = datediff("d",date,dt)'"d" 以日为间隔单位'若以年、月或星期为单位,则改为:"y" "m" "w" 就行了 数据类型的小疑问 程序退出时删除控件 如何调用Des加密:Des_EnCode 高分询问vb6.0的下载地址,,很高,很高哦~~~~~ 如何获取QQ登陆窗口的句柄,希望大家帮助! 联想同禧130多媒体键盘的功能键和手写板在win2000下没法用,如何解决? 求用vb编写的鼠标自动点机器 如何获取鼠标在整个屏幕中的坐标位置 VB高手请进:请教两个关于UserControl的问题。 怎样改变菜单拦字体的大小?请详细写明,不胜感激! 在COMBOX里面怎么加上颜色啊? 我的文件减小了
'函数DateSerial(year, month, day)
MyDate1 = DateSerial(val(text1),val(text2),val(text3))
MyDate2 = DateSerial(val(text11),val(text12),val(text13))
MyDate3 = MyDate1-MyDate2 '得到相隔天数
dim i as integer
dt = cdate(text1.text & "-" & text2.text & "-" & text3.text)'此日期与今天的间隔
i = datediff("d",date,dt)
'"d" 以日为间隔单位
'若以年、月或星期为单位,则改为:"y" "m" "w" 就行了