24 hour time format (1 Viewer)

[rfcomm2k]

How do I make the output of the following code appear as 24 hour time?

stSQL = "UPDATE [" & CiscoTableName & "] SET [" & CiscoTableName & "].dateTimeConnect1 = dateserial(1970,1,1) + [" & CiscoTableName & "]![dateTimeConnect]/86400-4/24;"

 

[MSAccessRookie]

How do I make the output of the following code appear as 24 hour time?

stSQL = "UPDATE [" & CiscoTableName & "] SET [" & CiscoTableName & "].dateTimeConnect1 = dateserial(1970,1,1) + [" & CiscoTableName & "]![dateTimeConnect]/86400-4/24;"

The Format() Command is what you will need to insert in the appropriate place to display the Military Time.

Ex: Format(Now(), "hh:nn") returns 16:15 and Format(Now(), "hhnn") returns 1615

 

[rfcomm2k]

OK, that seems logical, but where would the appropriate place be to put that code? I tried this:

stSQL = "UPDATE [" & CiscoTableName & "] SET [" & CiscoTableName & "].dateTimeConnect1 = dateserial(1970,1,1) + [" & CiscoTableName & "]![dateTimeConnect]/86400-4/24 format([" & CiscoTableName & "]![dateTimeConnect], hh:nn);"

This gave me an error 'expected end of line'

 

[gemma-the-husky]

i am confused about how the time is stored
if it is stored in a vba data time variable

then try
format (mytime, "short time")
format (mytime, "medium time")
format (mytime, "long time")

see if one of those gets what you want

--------
if not, then try using dateserial and other functions to assign it to a normal datetime variable, then carry on with standard time formatting commands

 

[rfcomm2k]

Solved it like this:

stSQL = "UPDATE [" & CiscoTableName & "] SET [" & CiscoTableName & "].dateTimeConnect1 = format(dateserial(1970,1,1) + [" & CiscoTableName & "]![dateTimeConnect]/86400-4/24,'mm/dd/yy Hh:Nn:Ss');"