Convertir une date (Texte) en un nombre

[Martin]

Bonjours le forum,

Je souhaiterai convertir une date en format texte en un nombre en VBA. Existe-t-il un e fonction prédéfinit??

Merci d’avance est A+, Martin

 

[Lord Nelson]

Salut Martin,

Tu devrais être satisfait de CDate :

Dim Num As Long
Num = CDate("15-03-1952")
MsgBox CStr(Num)

Tu obtiens le nombre de jours écoulés depuis le 31/12/1899.

A+
Horatio

 

[Martin]

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