Text String to Date
On Apr 10, 1:32 pm, Bigfoot17
wrote:
I have been reading many many posts regarding this topic, but of course none
seems to be exactly what I am looking to do. So..
I have an InputBox getting a string and it has been doing what I want. I
want the user to give me a 6 digit date that I incorporate into a filename
later on.
FileDate = InputBox("Enter the 6 digit date of file" & vbLf & "(Example:
031208)", "Date of SCR Data")
BUT at the same time I'd like the input to go into one of the cells as a
date "m/d/yy". What I have been getting is a date "6/10/85" which I
understand is the date equivalent for day #31208. What I'd like to see is
"03/12/08" or "3/12/08".
Any help is appreciated.
Hi, do this helps?:
Sub InputDate()
Dim FileDate As String, dDate As Date
FileDate = InputBox("Enter the 6 digit date of file" & vbLf &
"(Example:031208)", "Date of SCR Data")
If Len(FileDate) < 6 Then
MsgBox "invalid date"
Exit Sub
End If
dDate = DateSerial(Mid(FileDate, 5, 2), Mid(FileDate, 1, 2),
Mid(FileDate, 3, 2))
With Range("c5")
.Value = dDate
.NumberFormat = "m/dd/yy"
End With
End Sub
HTH
Jaime Vasquez
|