IsDate
测试字符串是否可以转换为日期序列号
#include "vbcompat.bi"
result = IsDate( stringdate )
stringdate
日期字符串必须是在OS的区域设置中设置的格式，被视为有效日期。
IsDate(Date)仅在区域设置指定与QB使用的相同日期格式时才返回非零（-1）。
编译器将不会识别此函数，除非包含vbcompat.bi或datetime.bi.
语法
用法
#include "vbcompat.bi"
result = IsDate( stringdate )
参数
stringdate
要测试的字符串
返回值
说明
日期字符串必须是在OS的区域设置中设置的格式，被视为有效日期。
IsDate(Date)仅在区域设置指定与QB使用的相同日期格式时才返回非零（-1）。
编译器将不会识别此函数，除非包含vbcompat.bi或datetime.bi.
例子
#include "vbcompat.bi"
Dim s As String, d As Integer
Do
Print
Print "输入日期："
Line Input s
If s = "" Then Exit Do
If IsDate( s ) = 0 Then
Print "'"; s; "“不是有效的日期"
Else
d = DateValue( s )
Print "年="; Year( d )
Print "月="; Month( d )
Print "天="; Day( d )
End If
Loop
Dim s As String, d As Integer
Do
Print "输入日期："
Line Input s
If s = "" Then Exit Do
If IsDate( s ) = 0 Then
Print "'"; s; "“不是有效的日期"
Else
d = DateValue( s )
Print "年="; Year( d )
Print "月="; Month( d )
Print "天="; Day( d )
End If
Loop
与QB差别
- 新的FreeBASIC
参考