Scripting 此代码段不是';t按预期工作(VBScript)

Scripting 此代码段不是';t按预期工作(VBScript),scripting,vbscript,Scripting,Vbscript,我预计时间是08:24或13:12,但现在是上午8:26:12 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 = CD

我预计时间是08:24或13:12,但现在是上午8:26:12

        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))
将格式设置为字符串,然后再转换回日期,因此格式将丢失,并且该值将转换为包含AM/PM的VB日期值,如果用于显示,则仅存储该字符串:

internal_Time = CDate(FormatDateTime(value, 4))
internal_Time = FormatDateTime(value, 4)