UC知道问个VB高手两个时间相减的问题,急!
来源：百度知道 编辑：UC知道 时间：2024/06/02 18:12:22
比如在程序开始:
text1.text=time
在程序结束:
text2.text=time
我想用text2.text-text1.text,即测出这两个语句间的时间差,如何实现呢?
问题是我不知道text1和text2是多少啊
text1.text=time
在程序结束:
text2.text=time
我想用text2.text-text1.text,即测出这两个语句间的时间差,如何实现呢?
问题是我不知道text1和text2是多少啊
哈哈楼下的青蛙,我又捉到你了
你这样根本算不出来啊
还是要这样
dim a as date
dim b as date
a=cdate(text1.text)
b=cdate(text2.text)
text3.text=datediff("s",a,b)
这样text3.text就会显示2个时间之间相差的秒数
好吧,青蛙,你的算的出来
但是你有没有想过你的a和b都是直接赋值,而楼主要求的是将TEXT控件中的STR类型数据间的时间差算出来,你不给CDATE了怎么算?
如果像你说的那样,不要把饭喂到嘴边,那你直接告诉他用DATEDIFF函数就行了,至于函数怎么用,参数怎么写，你让他自己去查资料啊,干什么还写那么多代码,- -、
dim a as date
dim b as date
a=cdate(text1.text)
b=cdate(text2.text)
text3.text=datediff("s",a,b)
这样text3.text就会显示2个时间之间相差的秒数
看好下面的话 该说的都说了！~
定义2个date的变量 把text的值给2个变量 然后用datediff函数就得到了！~
Private Sub Command1_Click()Dim tm As Datetm = NowMsgBox "点击关闭此提示框."Dim str As Stringstr = CDate(Now - tm)MsgBox "关闭提示框时间为:"