這段代碼是無法正常運行（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分，但它顯示爲上午08點26分12秒

Answer 1

這裏：

internal_Time = CDate(FormatDateTime(value, 4)) 

你格式化爲字符串但隨後轉換回日期，所以格式丟失和值轉換爲VB日期值，包括AM/PM，如果它顯示然後就存儲字符串：

internal_Time = FormatDateTime(value, 4)