Этот фрагмент кода работает не так, как ожидалось (VBScript)

        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 утра

1 2
scripting vbscript

1 ответ:

Здесь: 

internal_Time = CDate(FormatDateTime(value, 4))

Ваше форматирование в строку , но затем преобразование обратно в дату , поэтому форматирование теряется и значение преобразуется в значение даты VB, которое включает AM/PM, если его для отображения, то просто сохраните строку: 

internal_Time = FormatDateTime(value, 4)
1