DateValuefunction

Returns a Date Serial from a string

Date and Time Functionsfunctiondocumented

Syntax

Declare Function DateValue ( ByRef date_string As String ) As Long

Parameters

Name		Description
`date_string`		the string to convert to a date serial

Return value

Returns a Date Serial from a date string.

Description

The date string must be in the format set in the regional settings of the Operating System.

DateValue( Date() ) will work correctly only if the regional settings specify the same short date format QB used (mm-dd-yyyy). Consider using the Now function in the expression Fix(Now()) to obtain the current date as a date serial.

The compiler will not recognize this function unless vbcompat.bi or datetime.bi is included.

Remarks

Usage



#include "vbcompat.bi"

result = DateValue( date_string )

Differences from QB

Did not exist in QB. This function appeared in PDS and VBDOS

Example

#include "vbcompat.bi"



Dim As Long 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



'' convert the strings to date serials

v1 = DateValue( s1 )

v2 = DateValue( s2 )



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

Reference

Documented in KeyPgDateValue.html