ISDATE
Tests if a string can be converted to a Date Serial
Syntax:
Usage:
#include "vbcompat.bi"
result = IsDate( stringdate )
result = IsDate( stringdate )
Parameters:
stringdate
the string to test
Return Value:
Returns non-zero (-1) if the date string can be converted to a Date Serial, otherwise returns zero (0).
Description:
Date strings must be in the format set in the regional settings of the OS to be considered valid dates.
IsDate(Date) will return non-zero (-1) only if the regional settings specify the same date format that QB used.
The compiler will not recognize this function unless vbcompat.bi or datetime.bi is included.
IsDate(Date) will return non-zero (-1) only if the regional settings specify the same date format that QB used.
The compiler will not recognize this function unless vbcompat.bi or datetime.bi is included.
Examples:
#include "vbcompat.bi"
Dim s As String, d As Long
Do
Print
Print "Enter a date: "
Line Input s
If s = "" Then Exit Do
If IsDate( s ) = 0 Then
Print "'"; s; "' is not a valid date"
Else
d = DateValue( s )
Print "year = "; Year( d )
Print "month = "; Month( d )
Print "day = "; Day( d )
End If
Loop
Dim s As String, d As Long
Do
Print "Enter a date: "
Line Input s
If s = "" Then Exit Do
If IsDate( s ) = 0 Then
Print "'"; s; "' is not a valid date"
Else
d = DateValue( s )
Print "year = "; Year( d )
Print "month = "; Month( d )
Print "day = "; Day( d )
End If
Loop
- New to FreeBASIC
See also:
Back to Date and Time Functions