Date Format

[Guest]

I am trying to save a file with this code it worrks but I don't want to save
it
with the jobdate 10-18-2006. I want to shorten it to 10-18-06
The cell C10 is formatted to mm/dd/yy
I don't do any date calculations
oldjay

jobdate = Range("C10").Value '
jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate)
jobname = Range("D6")
jobemployee = Range("G3")
jobnumber = Range("D4")

jobsave = InputBox("Please enter TIME SHEET file name to save",
" Process Technology", "" & "C:\Time Sheets\" + jobnumber + jobemployee +
(Jobdate))
jobsave1 = jobsave + (".xls"

 

[Rawce]

jobdate = Month(Jobdate) & "-" & Day(Jobdate) & "-" & Year(Jobdate)

Try the following instead:

jobdate = Format(jobdate, "mm-dd-yy")

 

[Alan]

use


Dim jobdate as string

jobdate=format(range("C10").value,"mm/dd/yy")
jobname=Range("D6").value
.... etc

 

[Guest]

I replaced the code and now I get a Run time error "Type mismatch" at the
jobsave = InputBox line....

 

[Rawce]

Could be because you have jobdate and Jobdate. Make sure they're both
the same, or define one as jobdate and the other as jobdate2 and make
sure you're including the right one. Also, how have you declared
jobdate/Jobdate? I've used Variant for mine, just because declaring it
as a Date caused problems.

 

[Alan]

Correction:

Dim jobdate as string

jobdate=format(range("C10").value,"mm-dd-yy")

 

[Guest]

Thanks - The previous post indicated the code is case sensitiveJ

 

[Alan]

By using Option Explicit (to force declarations) and by delcaring the
variable name with a dim statement all variations of case you can think
of will auto correct and become unified.