ISDATE
- Source: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgIsDate
- Last revised: 2022-03-25
Tests if a string can be converted to a Date Serial
Syntax
` declare function IsDate ( byref stringdate as const string ) as long
`
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.
Examples
start GeSHi
vb
#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
Loopend GeSHi
Differences from QB
- New to FreeBASIC
See also
- Date Serials
DateSerialTimeValueDateValue
Back to DocToc