type mismatch error when using CDate

[bcoates]

When the following script is run i get a type mismatch error at the line where i call the CDate function.

dim duedate
dim diff

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\duedate.txt", 1)


strtemp = objFile.readline

duedate = CDate(strtemp)
diff = datediff("d", Date(), duedate)

the input file contains the date : 02/29/2005 i have tried to enclose the date with ## and "" but to no avail. Any suggestions

 

[EBGreen]

Is a date the only thing on every single line in the file?

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[PHV]

What is the real value of strtemp ?
[tt]MsgBox "strtemp='" & strtemp & "'"[/tt]

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[bcoates]

The date is the only thing in the file and the value of strtemp is 2/29/2005

 

[PHV]

Are you aware that 2005 was'nt a lap year and thus feb 29th, 2005 is NOT a valid date ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[bcoates]

wow i guess that was my bonehead play of the day, thanks for the help

 

[PHV]

A workaround:
a = Split(strtemp, "/")
' convert 2005-02-29 to 2005-03-01
duedate = DateSerial(a(2), a(0), a(1))


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Sheco]

The IsDate() function can be helpful in preventing this sort of error.

strtemp = objFile.readline
If IsDate(strtemp) Then
duedate = CDate(strtemp)
Else
MsgBox "Invalid date value: " & strtemp
End If