How to convert date from text format to numeric number forma

[ssunchen]

Hi,

I am going to convert the date from text format to numeric number format. Like this:

08/22/1998 = 36029.

Could you teach me how to get it using VBA?

Thank you very much.

ssunchen

 

[Mark O'Brien]

Reasonably simple since VBA will take care of this conversion for you, here's an example:

<pre>
Public Sub main()

Dim oDate As Date
Dim iDate As Long

oDate = "08/22/1998"
iDate = oDate

MsgBox iDate

End Sub</pre>

oDate is the literal date, iDate is the date set as a long integer value.

HTH

 

[Jay Petrulis]

Hi,

This worked for me, after selecting the range you want to change.

Sub test()
Dim Rng As Range

For Each Rng In Selection

If IsNumeric(Rng) Then
Rng.NumberFormat = "General"
Else
On Error Resume Next
Rng = DateValue(Rng)
On Error GoTo 0
Rng.NumberFormat = "General"
End If
Next Rng
End Sub


Bye,
Jay

 

[MrDanielLG]

thanks... simple yet works great! you are the man!