Guest User

Untitled

a guest
Jul 20th, 2018
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. Dim value
  2. value = CDate(InputBox("Please enter the time (hh:mm)", "Time Input", FormatDateTime(Now, 4)))
  3. ' validate the input here
  4. WScript.Echo value
  5. internal_Time = CDate(FormatDateTime(value, 4))
  6.  
  7. internal_Time = CDate(FormatDateTime(value, 4))
  8.  
  9. internal_Time = FormatDateTime(value, 4)
Add Comment
Please, Sign In to add comment