Convertir cette Date en date normal
Bonjour,
Je veux un exemple de code .net qui permettra de convertir cette forme de date : 1040170677 en date normale.
Voici exemple de fonction mais ça ne marche pas :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Public Function DateJulienneVersDate(ByVal DateJulienne As Double) As String
On Error Resume Next
Dim vDateJulienne As Long
vDateJulienne = CLng(Fix(DateJulienne))
'------------------------------------------------
'
' Valeur mini : 01/01/0100 ou maxi 31/12/9999
'
'------------------------------------------------
If (vDateJulienne > 1757585) And (vDateJulienne < 5373484) Then
DateJulienneVersDate = Format(Date.FromOADate(vDateJulienne - 2415019), "dd/MM/yyyy")
Return DateJulienneVersDate
End If
End Function |
Cordialement.