is a date

[trevix]

How about this:

function IsDate pDate, pSysDate

if pSysDate then

put char 3 of the short system dateformat into tDelimiter

else

put char 3 of the short dateformat into tDelimiter

end if

if tDelimiter is in pDate and pDate is a date then return true

return false

end IsDate

trevix