'Version 4.0
function DateValidVB(strDate)
DateValidVB = False
if IsDate(strDate) then
DateValidVB = True
end if
end function
function TodayVB()
TodayVB = Date()
end function
function StrToDateVB(strDate)
StrToDateVB = CDate(strDate)
end function
function DaysBetweenDatesVB(dt1, dt2)
DaysBetweenDatesVB = dt1 - dt2
end function