// 將日期2005-02-30轉為"200502"
Function YearMonth(DateArg)
Dim lYear, lMonth
If DateArg = Null Or CStr(DateArg) = "" Then
YearMonth = ""
Else
lYear = Year(DateArg)
lMonth = Month(DateArg)
YearMonth = CStr(lYear) + Right("0" + CStr(lMonth), 2)
End If
End Function
// 將數字2030轉為"20:30"
Function ConvertToTime(Arg)
Dim lHour, lMinute
lHour = CStr(Left(Arg, 2))
lMinute = CStr(Right(Arg, 2))
If lHour > "24" Or lHour < "0" Or lMinute > "60" Or lMinute < "0" Then
ConvertToTime = ""
Else
ConvertToTime = IIf(lHour = Null Or lHour = "", "", lHour + ":" + lMinute)
End If
End Function
// 計算兩個時間的差
Function TimeDiff(BeginArg, EndArg)
Dim lHour, lMinute
lMinute = DateDiff("n", BeginArg, EndArg)
lHour = Int(lMinute / 60)
lMinute = lMinute - lHour * 60
TimeDiff = CStr(lHour + lMinute / 60)
End Function