VB关于时间间隔问题

来源：百度知道编辑：UC知道时间：2024/06/08 14:50:57

我是一个vb的初学者，最近这两天让一个计算时间间隔的问题给难住了怎么也不知道怎么做。。。
比如我想计算当前时间到 11：50：20 这个时间的剩余时间怎么算呢？也相当于一个倒计时程序
或者说是从当前时间到2012年6月6号19点30分50秒的剩余时间怎么算呢？
结果显示成“剩余x年x月x天x小时x分钟x秒钟”
希望高手赐予解决方法，小弟感激不尽呀~~

其实非常简单，声明一个日期型函数就可以了，用未来的一个日期减去当前的日期就是中间的时间间隔。。

Dim DatNow As Date, Y As Integer

Private Sub Timer1_Timer()
DatNow = #6/6/2012 7:30:50 PM# - Now
Y = 2012 - Val(Year(Now))
Print "距离 2012年6月6号下午7点30分50秒还有 " & Y & "年" & _
Month(DatNow) & "月" & _
Day(DatNow) & "天" & _
Hour(DatNow) & "小时" _
; Minute(DatNow) & "分钟" _
; Second(DatNow) & "秒钟"
End Sub

'获取系统时间
a = Format(Now, "yyyy") '年
b = Format(Now, "mm") '月
c = Format(Now, "dd") '日
d = Format(Now, "hh") '时
e = Format(Now, "mm") '分
f = Format(Now, "ss") '秒
'再去相应减法

Text1.Text = CDate(Time() - CDate("11:50:20"))
上面这个没有比较大小，只是两个时间差的绝对值。

有一个函数可以直接计算时间间隔. DateDiff 函数
vb 计算时间间隔 vb 发送时间间隔请问,关于设置时间间隔的源文件问题~~~~ 关于服用紧急避孕药的时间间隔问题 (100分)C#编程问题,关于时间间隔的关于GRE和TOEFL考试时间间隔问题狂犬疫苗时间间隔问题关于VB时间范围的问题 vb编程：怎么求两个事件间的时间间隔？关于月经间隔的问题？