strtime 12 hour clock

JackDanIce

Well-known Member

Joined

Feb 3, 2010

Messages

9,922

Office Version

1. 365

Platform

1. Windows

• Jun 29, 2011

• #2

Try:

Code:

Dim strTime As String
strTime = Format$(Now(), "[$-409]h:mm:ss AM/PM;@")

 

Upvote 0

Scott Huish

MrExcel MVP

Joined

Mar 17, 2004

Messages

20,634

Office Version

1. 365

Platform

1. Windows

• Jun 29, 2011

• #3

Code:

strTime=Format(Now, "Long Time")

 

Upvote 0

J

Jaye7

Well-known Member

Joined

Jul 7, 2010

Messages

1,069

• Jun 29, 2011

• #4

Both scripts work well except they both have the am or pm on the end of the time, If I remove the am/pm from the script it reverts back to i.e. 13.00,

I would like the 13:00:01 to be 1:00:01 (no am or pm)

 

Upvote 0

Scott Huish

MrExcel MVP

Joined

Mar 17, 2004

Messages

20,634

Office Version

1. 365

Platform

1. Windows

• Jun 30, 2011

• #5

Code:

Sub test()
Dim strTime As String, dblTime As Double
dblTime = Time
If dblTime > 0.5 Then dblTime = dblTime - 0.5
strTime = Format(dblTime, "h:mm:ss")
MsgBox strTime
End Sub

Note that this will convert all times to AM times, which is the only way to do what you want, and still have it be a time.

 

Upvote 0

Rick Rothstein

MrExcel MVP

Joined

Apr 18, 2011

Messages

38,525

Office Version

1. 365

Platform

1. Windows

• Jun 30, 2011

• #6

Consider doing what you want this way...

Code:

Dim strTime As String
strTime = Split(Format$(Now, "h:mm:ss am/pm"))(0)

 

Upvote 0

J

Jaye7

Well-known Member

Joined

Jul 7, 2010

Messages

1,069

• Jun 30, 2011

• #7

I have gone with Rick's solution, thanks Rick,

With your script is there a way to isolate just the minutes and seconds, I tried removing hh but the time was not right.

Code:

Dim strTime As String
strTime = Split(Format$(Now, "h:mm:ss am/pm"))(0)

 

Upvote 0