程式判定時間的問題 - Excel程式區

[發問] 程式判定時間的問題

1^# 跳轉到 »

發表於 2011-6-17 14:56 | 顯示全部帖子

Sub timenow()
d = Time
d = TimeValue(Format(d, "h:m:s"))
x = TimeValue("08:01:57")
If d >= x Then
MsgBox Date
Else: MsgBox Date - 1
End If
End Sub

GinBow

2^#

發表於 2011-6-17 16:17 | 顯示全部帖子

權限不夠不能看.. 如果是要判斷過去一段期間資料
因該就會有日期和時間儲存格就用迴圈
把d改成是你資料上的時間至於date就是你資料的日期

GinBow

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。