Этот фрагмент кода не работает должным образом (VBScript) - PullRequest
Новая
       27

Этот фрагмент кода не работает должным образом (VBScript)

2 голосов
/ 17 августа 2011 
        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

1 Ответ

1 голос
/ 17 августа 2011

Здесь: 

internal_Time = CDate(FormatDateTime(value, 4))

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

internal_Time = FormatDateTime(value, 4)
...