Declare Function DateValue ( ByRef date_string As String ) As Double

#include "vbcompat.bi"
result = DateValue( date_string )

date_string

从日期字符串返回日期序列号.

日期字符串必须是操作系统区域设置中设置的格式。

只有当区域设置指定使用相同的短日期格式QB（mm-dd-yyyy）时，DateValue( Date() )才能正常工作。考虑使用表达式Fix(Now())中的Now函数来获取当前日期作为日期序列号。

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

#include "vbcompat.bi"

Dim As Integer v1, v2
Dim As String  s1, s2

Print "输入第一个日期：";
Line Input s1

If IsDate( s1 ) = 0 Then
  Print "不是约会"
  End
End If

Print "输入第二个日期：";
Line Input s2

If IsDate( s2 ) = 0 Then
  Print "不是约会"
  End
End If

''将字符串转换为日期序列号
v1 = DateValue( s1 )
v2 = DateValue( s2 )

Print "日期之间的天数是" & Abs( v2 - v1 )

• 在QB中不存在该函数出现在PDS和VBDOS中
  
  

• 日期序列号
  
• DateSerial
  
• TimeValue