function IsValid_Date(dt)
 IsValid_Date = IsDate(dt)
 End Function

Function VBparseDate(ByVal dt)
If IsDate(dt) then
VBparseDate = Cstr(CDate(dt))
Else
VBparseDate = null
End If
End Function

function DaysAdd(Increment)
DaysAdd = cstr(DateAdd("d", Increment, Date()))
end function

function Today()
Today= Date()
end function

Function FormatJavaScriptDate(DateSt)
Dim Ar, yr, Month, day, newDate, Ttime
Ar = Split(DateSt, " ")
Month = Ar(1): day = Ar(2): Ttime = Ar(3): yr = Ar(5)
If Ttime = "00:00:00" Then Ttime = "" Else Ttime = " " & Ttime
FormatJavaScriptDate = CDate(Month & "-" & day & "-" & yr & Ttime)
End Function