Function IsahDate( Days: Integer ): String
Description
Adds a number of days to the current date.
Parameters
Example
Sub Main()
MsgBox IsahDate( 14 )
MsgBox
End Sub