これはいつも私に現在の時間を与えているのですか

Question

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 

TO

UPDATEがしかし、今、私は正確な時刻を取得していますし、私が変更された値をしたいデフォルトは現在の時刻（表示）のままにしたいが、私は入力したが、秒やAM/PMのような不要なものを追加している。とにかくミリタリーフォーマットで時間を得るには？

Answer 1

私はあなたのコードを試しましたが、プロンプトが表示されている限り、私は時間を設定することができました。後であなたのコードのどこかでリセットされないと確信していますか？

念のために、あなたが終了した後、この権利のようなものを置くことができる場合：

internal_Time = FormatDatetime(CDate(value), 4) 

：

msgbox(internal_Time) 

これを使用し、AM/PMせず、単に軍事時間として時間を返すために、

Answer 2

おそらくあなたの条件 internal_isTurnedOnと右（LCASE（internal_CurrentUserが）、8）= "姓" falseを返すことになる場合には、常に はあなたの条件CHK