求助..日期相減

Question

我取電腦日期要如何讓日期相減
例：2005/12/24 上午 01:44
2005/12/24 下午 01:44
該如何相減 我要求時差多少

如果我存到SQL資料庫的話
2005/12/24 上午 01:44 資料庫欄位1
2005/12/24 下午 01:44 資料庫欄位2
相減..還是W.J.S. 的方法ㄇ??

Answer 1

Private Sub Command1_Click()
Dim H, M, S, X
'求出總秒數
S = DateDiff("s", #12/24/2005 1:44:00 AM#, #12/24/2005 1:44:00 PM#)
'換算成時分秒
X = Sgn(S): S = Abs(S)
H = S \ 3600
M = (S - H * 3600) \ 60
S = S - H * 3600 - M * 60
Print "共"; X * H; "時"; M; "分"; S ; "秒"
End Sub

Answer 2

如果存到SQL Server 資料庫

語法 DATEDIFF ( datepart , startdate , enddate )
datepart :是你要求的差,是何種單位

例如:
select DateDiff(minute,資料庫欄位1, 資料庫欄位2) from TableName

是指定要以"分鐘"的那一個部份要用來計算差異的參數