爲什麼總是給我當前時間

If internal_isTurnedOn And Right(LCase(internal_CurrentUser), 8) = "lastname" Then  
     Dim value: value = CDate(InputBox("enter the date and time (hh:mm)", "please", FormatDateTime(Time, 4)))  
     ' validate the input here  
     internal_Time = CDate(value) 
    Else 
     internal_Time = CDate(Time) 
    End If

我得到輸入框，無論輸入什麼值，它都給我當前時間。我希望默認保持當前時間（顯示），但如果用戶將其更改爲另一個值，那麼我想改變的值爲什麼總是給我當前時間

更新到CODE

If internal_isTurnedOn And Right(LCase(internal_CurrentUser), 8) = "lastname" Then 
     Dim value 
     value = CDate(InputBox("Please enter the time (hh:mm)", "Time Input", FormatDateTime(Now, 4)))    
     internal_Time = CDate(FormatDateTime(value, 4)) 
    Else 
     internal_Time = FormatDateTime(Time, 4) 
    End If

不過現在我正在正確的時間我已輸入，但它添加了一些額外的不需要的東西，如秒和上午/下午。無論如何，只需要以軍事形式獲得時間？

來源

2011-08-16 Cocoa Dev

爲了獲得軍事時間，將第四行更改爲：internal_Time = FormatDatetime（CDate（value），4） – PaulStock

嗯，我試過你的代碼，只要我有提示，我可以設置時間。你確定它不會在你的代碼的某個地方重置嗎？

只是可以肯定，你可以把這樣的權結束後，如果：

msgbox(internal_Time)

要返回的時間，只是軍用時間，沒有AM/PM，使用此：

internal_Time = FormatDatetime(CDate(value), 4)

來源

2011-08-16 19:15:54 PaulStock

我確定它沒有被重置。我更新了我的代碼。 –

可能是你的條件如果internal_isTurnedOn和右（LCASE（internal_CurrentUser），8）= 「姓氏」將返回false始終清潔香港的條件

來源

2011-08-16 19:19:55

我調試它，我得到的InputBox。這是一個很好的猜測，但必須有別的東西。我打賭它與FormatDateTime（時間，4） –

有關，然後可能檢查你的其他部分代碼是重置internal_time變量 – 2011-08-16 19:26:03

爲什麼總是給我當前時間

回答

相關問題