此代码段未按预期工作（VBScript）

Question

        Dim value
        value = CDate(InputBox("Please enter the time (hh:mm)", "Time Input", FormatDateTime(Now, 4)))          
        ' validate the input here
        WScript.Echo value
        internal_Time = CDate(FormatDateTime(value, 4))

我期待时间是08:24或13:12，但它出现在上午8:26:12

Answer 1

下面：

internal_Time = CDate(FormatDateTime(value, 4))

您的格式化为字符串但随后转换回日期，因此格式化将丢失并且值将转换为包含AM / PM的VB日期值，如果用于显示，则只存储字符串：

internal_Time = FormatDateTime(value, 4)