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

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

stringdate

Возвращает ненулевое значение (-1) если строка с датой может быть преобразована в Date Serial(серийную дату), в противном случае возвращает ноль (0).

Строка с датой должна быть в формате, установленном в соответствии с региональными настройками ОС, чтобы считаться допустимой датой.

IsDate(Date) будет возвращать ненулевое значение (-1), только если региональные параметры указывают тот же формат даты, что используется в QB.

Компилятор не распознает эту функцию если не включен файл vbcompat.bi или datetime.bi.

#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

• Новое в FreeBASIC
  
  

• Date Serials
  
• DateSerial
  
• TimeValue
  
• DateValue