Horatio,
Merci pour ton aide mais entre temps j’ai trouvé une solution. Mais la fonction « CDate() » me servira également dans mon travail.
Merci et A+, Martin
PS. Ma solution
Function Convert_Date_In_Number(Date_Value As String) As Double
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Autor: Martin
'Date: 26/07/04
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Description:
'This function will:
' -return the coresponding number
' if Date_Value="" then returns: 0
' if Date_Value has an unknown format then returns: -1
' if Date_Value has an known format then returns: a number with digits > 0
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'Check date input
If Date_Value = "" Then
Convert_Date_In_Number = 0
Exit Function
End If
'Convert date into a number
On Error GoTo ErrorHandling
Convert_Date_In_Number = DateValue(Date_Value) + TimeValue(Date_Value)
Exit Function
'Error handling
ErrorHandling:
Convert_Date_In_Number = -1
End Function