Этот фрагмент кода не работает должным образом (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 AM

Answer 1

Здесь:

internal_Time = CDate(FormatDateTime(value, 4))

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

internal_Time = FormatDateTime(value, 4)