vba Format(Now, "HH")問題

vba excel vba

msmplayv121068 2022-09-22 09:49:26 ‧ 1019 瀏覽

分享至

請問以下程式碼，Format(Now, "HH")明明是雙位數小時制，為何產出仍為H單位數小時，又該如何修正為"08"呢？非常感謝～～～

Sub TEST()
SVAL = Format(Now, "HH") - 1
SVAL = Format(Date, "YYYY/M/D") & " " & SVAL & ":00"
With ActiveWorkbook.SlicerCaches("Slicer_更新時間")
.ClearManualFilter
For Each oSlicerItem In .SlicerItems
If oSlicerItem.Name = SVAL Then
oSlicerItem.Selected = True
Else
oSlicerItem.Selected = False
End If
Next oSlicerItem
End With
End Sub

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

blanksoul12

iT邦研究生 5 級 ‧ 2022-09-22 10:25:37

最佳解答

SVAL = Format(Now, "HH") - 1
excel 會把這個當算術題,數學沒有 08 這回事
解決方法

SVAL = Format(TimeValue(Now) - TimeValue("1:00:00"), "HH")
SVAL = format(Format(Now, "HH") - 1,"00")

回應 5
分享
檢舉

看更多先前的回應...收起先前的回應...

msmplayv121068 iT邦新手 4 級 ‧ 2022-09-22 11:44:52 檢舉

blanksoul12 大感謝~~又解決我一個頭痛的難題~~哈

blanksoul12 iT邦研究生 5 級 ‧ 2022-09-22 11:56:57 檢舉

根據 rogeryao 的
SVAL = Format(DateAdd("h", -2, Now), "HH") 也不錯

blanksoul12 iT邦研究生 5 級 ‧ 2022-09-22 12:00:18 檢舉

不是IT部而且IT也不幫忙的話,學好 vba 可以幫妳省很多很多時間,可能不回公司也可以正常運行.

rogeryao iT邦超人 8 級 ‧ 2022-09-22 12:12:33 檢舉

可能要測一下當 Now = "2022-9-2 0:6:2"

blanksoul12 iT邦研究生 5 級 ‧ 2022-09-22 12:18:57 檢舉

看要求和一般運時間,如果是手動運行,應該可以不用確認日子問題,要看他自己了

登入發表回應

rogeryao

iT邦超人 8 級 ‧ 2022-09-22 10:28:26

Private Sub CommandButton1_Click()
Dim xNow As Date
Dim xHour As String

xNow = "2022-9-2 0:6:2"
xHour = Hour(DateAdd("h", -1, xNow))
MsgBox (String(2 - Len(xHour), "0") & xHour)
'
Cells(1, 1).NumberFormat = "@"
Cells(1, 1) = String(2 - Len(xHour), "0") & xHour

End Sub