IsDatefunction

Tests if a string can be converted to a Date Serial

Syntax

Declare Function IsDate ( ByRef stringdate As Const String ) As Long

Parameters

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.

Remarks

Usage


#include "vbcompat.bi"
result = IsDate( stringdate )


Differences from QB

• New to FreeBASIC
  
  

See also

• Date Serials
  
• DateSerial
  
• TimeValue
  
• DateValue
  
  

Example

#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

Reference

• Documented in KeyPgIsDate.html