Revision [11570]

This is an old revision of KeyPgIsDate made by JeffMarshall on 2007-11-10 01:13:08.

 

ISDATE


Tests if a string can be converted to a ProPgDates Date Serial

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 ProPgDates 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(KeyPgDate 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 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


Differences from QB:
See also:
Back to Date and Time Functions
Valid XHTML :: Valid CSS: :: Powered by WikkaWiki



sf.net phatcode