IsDate
Tests if a string can be converted to a Date Serial
#include "vbcompat.bi"
result = IsDate( stringdate )
stringdate
Returns non-zero (-1) if the date string can be converted to a Date Serial, otherwise returns zero (0).
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.
Syntax
Usage
#include "vbcompat.bi"
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.
Example
#include "vbcompat.bi"
Dim s As String, d As Integer
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 Integer
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
Differences from QB
- New to FreeBASIC
See also