ISDATE

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgIsDate
• 最后更新: 2022-03-25

---

测试字符串是否可以转换为日期序列

语法

declare function IsDate ( byref stringdate as const string ) as long

用法

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

参数

stringdate

要测试的字符串

返回值

若日期字符串可以转换为日期序列则返回非零值（-1），否则返回零（0）。

说明

日期字符串必须采用操作系统区域设置中设置的格式才被视为有效日期。

仅当区域设置指定了与 QB 使用相同的日期格式时，IsDate(Date) 才会返回非零值（-1）。

除非包含 vbcompat.bi 或 datetime.bi，否则编译器不会识别此函数。

示例

start GeSHi

#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

end GeSHi

与 QB 的差异

• FreeBASIC 新增

另请参阅

• 日期序列
• DateSerial
• TimeValue
• DateValue

返回 目录