返回列表 上一主題 發帖

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

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-6-17 14:06 | 只看該作者

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

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

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

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
6#
發表於 2011-6-17 17:10 | 只看該作者
可以請大大稍微解釋一下這幾行語法嗎？
d = CDate(Int(a))

s = a - d

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

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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-6-17 17:00 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

ginbow

帖子
28 
主題
4 
精華
0 
積分
54 
點名
0  
作業系統
windows xp pro 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2010-5-5 
最後登錄
2016-6-8 
4#
發表於 2011-6-17 16:17 | 只看該作者
權限不夠不能看.. 如果是要判斷過去一段期間資料
因該就會有日期 和時間儲存格 就用迴圈
把d改成是你資料上的時間 至於date就是你資料的日期
GinBow

TOP

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
3#
發表於 2011-6-17 15:25 | 只看該作者
感謝大大
我可能敘述的不夠清楚，我把檔案附上去

日期.zip (3.97 KB)

TOP

ginbow

帖子
28 
主題
4 
精華
0 
積分
54 
點名
0  
作業系統
windows xp pro 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2010-5-5 
最後登錄
2016-6-8 
2#
發表於 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

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
返回列表 上一主題