Date and military (short) time format?

[shart00]

Hi,
I'm struggling with getting this format to work withing VB. Can you help?

Here's a snip of the code which displays current date and time, username, and a comments section.

InsertNote = Now & ": " & Environ$("username&quot & " - " & mymemo & vbCrLf

The code above makes the date and time look like 06/18/03 1:30:55 PM. I would prefer to see 6/18/03 13:30. Any help would be appreciated.

Thanks, Shawn

 

[mpastore]

format(Now,"mm/dd/yy hh:mm:ss&quot

Mike Pastore

Hats off to (Roy) Harper

 

[jrbarnett]

Shawn,

The Now() function returns the date/time as per the control panel, which uses international settings.

Try using instead:

InsertNote = Format(Now(),"m/dd/yy hh:mm:ss&quot & ": " & Environ$("username&quot & " - " & mymemo & vbCrLf

I should point out that the Environ function with username is only implemented out of the box on Windows NT/2000/XP so this code will fail if run on Win9x systems (and possibly WinME as well, have not tested).
There are a number of threads around that detail how to obtain the Windows network username via API calls which are more reliable if you use the older systems.

John

 

[StarPassing]

Try:

InsertNote =format(now,"mm/dd/yyyy hh:nn&quot & ": " & Environ$("username&quot & " - " & mymemo & vbCrLf

to get 06/18/2003 15:54

of use format(now,"m/d/yy hh:nn&quot to get 6/18/03 15:55

 

[shart00]

Great!!! It worked. I was close but my syntax was off. Thanks all.

Shawn

 

[poconoski]

Another way to do this for year format ->

nts = Format(nts, "mm/dd/yyyy hh:mm:ss")