Function IsahValidDate( Date: String ): Date

Description

Replaces all characters other than 0 to 9 in date separators. It would, for instance, turn the date 12:12:2002 into the valid date 12-12-2002.

Example

Sub Main()

Dim DateAsString

Dim Date

DateAsString = IsahDateToStr( 1999, 10, 14 )

MsgBox DateAsString

Datum = IsahValidDate( DateAsString )

MsgBox Date

End Sub