VBA enter time into a cell in format HH:MM am/pm

[Oliver Dewar]

Hi All,

I need to enter the current time into a cell using VBA in this format:

HH:MM am/pm - so no seconds.

eg

10:10 am

At the moment I'm using:

range("A1").value = Time

and am getting the annoyingly precise seconds in the cell as well.

This time will be added to a string of text in the cell so I cannot simply format the cell.

Any help you can give me will be greatly appreciated.

 

[grizz]

try format your cell --- custom / h:mm AM/PM

 

[Oliver Dewar]

Thanks Grizz,

unfortunately the time is going to be part of a string of text in the cell so I can't do that.

 

[grizz]

try this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("A1")
.Value = Time
.NumberFormat = "h:mm AM/PM"
End With
End Sub

 

[Oliver Dewar]

Thanks Grizz... that's helping me to get my thoughts straight.

You know what I think I really need to do?

Create a function called Time2 that puts the time in, in the format described above.

I've never written a function before, how would I do it?

 

[Oliver Dewar]

Thanks Grizz,

I'm going to put my question in as a new post, as my question has now changed so much.

Regards,

Oliver