Serial date conversion to semi string data.

Re: Serial date conversion to semi string data.

You can use custom format. Select the whole column. Right click go to format cells then number then select custom and type this in the custom box.

[COLOR="Navy"]mmddyyyy"_"hhmmss AM/PM[/COLOR]

Re: Serial date conversion to semi string data.

Can it be recorded a regular macro?

Re: Serial date conversion to semi string data.

One way using CDate.

MsgBox Format(CDate(38842.8287152778), "mmddyyyy_hhmmss AM/PM")

Re: Serial date conversion to semi string data.

You can try this

Function ConvertTime(ByRef strValue As String) As String


If strValue <> "" Then
    ConvertTime = Format$(strValue, "mmddyyyy_hhmmssAM/PM")
End If


End Function
Sub Test()
Dim str As String


str = ConvertTime("38842.8287152778")


Debug.Print str
End Sub

you can pass in a cell value and it should do what you want

Re: Serial date conversion to semi string data.

It is probably overkill, but if you wanted to use a function with Insomniacs suggestion of CDate() it is simple enough to change my original one;

Function ConvertTime(ByRef dtValue As Date) As String


If IsDate(dtValue) Then
    ConvertTime = Format$(dtValue, "mmddyyyy_hhmmssAM/PM")
End If


End Function