如何从timeValue函数中删除秒

Question

我打算在没有秒的情况下打印时间早上6点。使用TimeValue，它包括秒。如果没有包括秒数，那么这样做吗？

  CurrentTime = TimeValue("6:00 am")

Answer 1

将内置FormatDateTime与vbShortTime一起使用：

CurrentTime = FormatDateTime("6:00:31 am", vbShortTime)

Answer 2

使用RegExp从日期的字符串表示中删除有问题的秒数：

>> Set r = New RegExp
>> r.Pattern = ":\d\d "
>> dtCurrentTime = TimeValue("6:00 PM")
>> sCurrentTime = CStr(dtCurrentTime)
>> sCurrentTime = r.Replace(sCurrentTime, " ")
>> WScript.Echo qq(sCurrentTime)
>>
"6:00 PM"

Answer 3

dtCurrentTime = TimeValue("6:00 PM")
sCurrentTime = CStr(dtCurrentTime)
sCurrentTime=Replace (sCurrentTime,":00:00 PM",":00 PM")
MsgBox sCurrentTime

Answer 4

我有同样的问题。但是我使用Mid，Left和Right函数来解决它。

ThisTime = TimeValue(YourTime)

TimeSpace = InStr(1,ThisTime," ")

ThisShortTime = Left(ThisTime,TimeSpace-4) & Right(ThisTime,3)

InStr在时间内寻找空间。

Left在时间的左侧减去第二秒。

Right拾取时间的最后3个字符，例如“ AM”或“ PM”。