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

imzues

請教一下各位大大
有辦法讓程式判定昨天8點過後到今天早上8點這段的時間，日期判定為今天的日期

ex:2011/6/16  08:01:57am判定輸出的資料是6/17
    2011/6/17  00:00:30am判定輸出的資料是6/17
在麻煩各位幫忙協助解決

ginbow

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

imzues

感謝大大
我可能敘述的不夠清楚，我把檔案附上去

ginbow

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

Hsieh

回復 3# imzues

1. Sub nn()
   
2. For Each a In Range([C2], [C65536].End(xlUp))
   
3. d = CDate(Int(a))
   
4. s = a - d
   
5. x = CDbl(TimeValue("08:00:00"))
   
6. t = IIf(s > x, 1, 0)
   
7. a.Offset(, 1) = d + t
   
8. Next
   
9. End Sub

複製代碼

imzues

可以請大大稍微解釋一下這幾行語法嗎？
d = CDate(Int(a))

s = a - d

x = CDbl(TimeValue("08:00:00"))

t = IIf(s > x, 1, 0)