我有兩個字串陣列，其中包含以下順序的值：日期（年-月-日）和時間（小時-分鐘-秒）。
這是代碼：
sDateSplitArray1 = Split(sDate1, "-") ' sDateSplitArray1(1)=Year, ...(2)=Month, ...(3)=Day
sTimeSplitArray1 = Split(sTime1, "-") ' sTimeSplitArray1(1)=Hour, ...(2)=Minutes, ...(3)=Seconds
sDateSplitArray2 = Split(sDate2, "-")
sTimeSplitArray2 = Split(sTime2, "-")
現在如何計算兩者之間的絕對差異（以分鐘為單位）？我只想檢查兩者之間是否超過30分鐘。
uj5u.com熱心網友回復：
Function TimeStamp(ByVal sDate As String, ByVal sTime As String) As Date
' sDate = "yyyy-mm-dd"
' sTime = "hh-mm-ss"
Dim sD, sT
sD = Split(sDate, "-")
sT = Split(sTime, "-")
TimeStamp = DateSerial(sD(0), sD(1), sD(2)) TimeSerial(sT(0), sT(1), sT(2))
End Function
Function sDiff(sDate1, sTime1, sDate2, sTime2)
Const inMinutes = "n"
Dim d1, d2
d1 = TimeStamp(sDate1, sTime1)
d2 = TimeStamp(sDate2, sTime2)
sDiff = DateDiff(inMinutes, d1, d2)
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/470577.html
上一篇：VBAByRef如何在幕后作業？
下一篇：檢查宏是否使用VBA運行