vb 怎么样的语句判断时间大小。

Question

比如数据库中有一个固定的时间数值。利用VB中输入的时间数值对比。如果l输入的时间比指定的时间多出1小时间20，则显示为+1小时20分反之为负

Answer 1

dim iH as integer
dim iM as integer
dim iS as integer
dim sA as string
dim sB as string
sa=数据库日期
sb=vb输入日子
ih=datediff(“h”,sa,sb) '得到小时
im=abs(datediff(“n”,sa,sb) mod 60) '得到分钟数
if ih>0 then
msgbox "+" & ih & “小时” & im "分钟"
else
msgbox ih & “小时” & im & "分钟"
endif

Answer 2

如果数据是日期型的，可以直接进行比较大小。
日期的差可以用DateDiff 函数或DateAdd 函数

DateDiff 函数示例
本示例使用 DateDiff 函数来显示某个日期与今日相差几天。

Dim TheDate As Date ' 声明变量。
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg
DateAdd 函数示例
本示例先取得一个日期，再用 DateAdd 函数显示未来数月后的日期。

Dim FirstDate As Date ' 声明变量。
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m" ' "m"指定以“月份”作为间隔。
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg