이 코드가 작동하지 않습니다 예상대로 (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)) 

내가 8시 24분 또는 13시 12분으로 할 수있는 시간을 기대하고 있지만 여기에 오전 8시 26분 12초

Answer 1

로 나타나는 것 :

internal_Time = CDate(FormatDateTime(value, 4)) 

문자열에 대한 귀하의 형식하지만 다음 날짜로 다시 변환, 그래서 서식이 손실되고 값이 경우의 표시 후 단지, AM/PM을 포함하는 VB 날짜 값으로 변환됩니다 문자열을 저장하십시오 :

internal_Time = FormatDateTime(value, 4)