Vbscript 如何从timeValue函数中删除秒数

我想打印出早上6点的时间，没有秒数。使用时间值，它包括秒数。有没有办法在不包括秒数的情况下做到这一点

  CurrentTime = TimeValue("6:00 am")

---

使用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"

与

vbShortTime一起使用内置的

：

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

---

我也有同样的问题。但我用中间、左边和右边的函数来解决它

ThisTime = TimeValue(YourTime)

TimeSpace = InStr(1,ThisTime," ")

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

InStr

查找时间内的空间

Left

拾取时间的左侧，减去秒

Right

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

ThisTime = TimeValue(YourTime)

TimeSpace = InStr(1,ThisTime," ")

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