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.

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

Thank you this was very helpful. You not only showed me how to resolve this
problem but tightened the code by dealing with invalid input. Thanks.

"JaimeVasquez" wrote:

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

format the number to insert the slashes

=Format(031208,"00/00/00")

"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.