[已解决]在vba里用文本框时间怎么相加减

gaizi321 · 发表于 2013-5-10 16:47

我在VBA里有三个文本框，textbox1,textbox2,textbox3,其中前两个是用来写入时间的，（小时/分钟）
怎么写一段程序让textbox3直接得到前面textbox1,textbox2时间相减。

最佳答案

hwc2ycy

2013-5-10 18:10

时间差的格式还是要用hh:mm格式，不然会有错误的。
Me.TextBox3.Text = Format(TimeValue(Me.TextBox1.Text) - TimeValue(Me.TextBox2.Text), "hh:mm")

hwc2ycy · 发表于 2013-5-10 17:48

如果是标准的时候格式的话，用TIMEVALUE函数转换
textbox3.text=format(timevalue(textbox1.text)-timevalue(textbox2.text),"hh:mm")

hwc2ycy · 发表于 2013-5-10 18:04

TimeValue演示.rar (15.56 KB, 下载次数: 97)

hwc2ycy · 发表于 2013-5-10 18:09

在时间1，时间2的编辑框中输入有效的时间格式后，方可进入另一个编辑框中，两人编辑框中都输入有效的时间数量后，就会在时间差中显示出时间1与时间2的时间差。

hwc2ycy · 发表于 2013-5-10 18:10

时间差的格式还是要用hh:mm格式，不然会有错误的。
Me.TextBox3.Text = Format(TimeValue(Me.TextBox1.Text) - TimeValue(Me.TextBox2.Text), "hh:mm")

		自动登录	找回密码
密码			注册