Declare Function DateValue ( ByRef date_string As String ) As Double

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

date_string

Возвращает Date Serial(серийную дату) из строки даты

Строка даты должна быть в формате региональных настроек операционной системы.

DateValue( Date() ) будет работать корректно, только если региональные параметры указывают краткий формат даты используемый в QB (mm-dd-yyyy). Рассмотрите возможность использования функции Now в выражении Fix(Now()) для получения текущей даты как серийной даты.

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

#include "vbcompat.bi"

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

Print "Enter first date: ";
Line Input s1

If IsDate( s1 ) = 0 Then
  Print "not a date"
  End
End If

Print "Enter second date: ";
Line Input s2

If IsDate( s2 ) = 0 Then
  Print "not a date"
  End
End If

'' Преобразование строк в серийную дату
v1 = DateValue( s1 )
v2 = DateValue( s2 )

Print "Number of days between dates is " & Abs( v2 - v1 )

• В QB не существует. Эта функция появилась в PDS и VBDOS
  
  

• Date Serials
  
• DateSerial
  
• TimeValue