Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 991 fois - Téléchargée 37 fois
Public Function DateVersDateJulienne(ByVal vDate As String) As Long On Error Resume Next Dim s As String '------------------------------------------------ ' ' vDate est au format 31/12/2000 (dd/MM/yyyy) ' ' Valeur mini : 01/01/0100 ou maxi 31/12/9999 ' '------------------------------------------------ s = Format(CDate(vDate), "dd/MM/yyyy") If s <> "" Then DateVersDateJulienne = DateDiff("d", "0", s) + 2415019 If DateVersDateJulienne < 1757585 Then DateVersDateJulienne = 0 ElseIf DateVersDateJulienne > 5373484 Then DateVersDateJulienne = 0 End If End If End Function 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(CDate(vDateJulienne - 2415019), "dd/MM/yyyy") End If End Function Public Function HeureJulienneVersHeure(ByVal DateJulienne As Double) As String On Error Resume Next Dim Secondes As Long Dim mHeures As Integer Dim mMinutes As Integer Dim mSecondes As Integer Secondes = (86400 * (DateJulienne - Fix(DateJulienne))) mHeures = Int(Secondes / 3600) mMinutes = Int((Secondes - (3600 * mHeures)) / 60) mSecondes = Secondes - (3600 * mHeures) - (60 * mMinutes) HeureJulienneVersHeure = Format(mHeures, "00") & Format(mMinutes, "00") & Format(mSecondes, "00") End Function Public Function DateNowVersDateJulienne() As String On Error Resume Next Dim s As Date Dim mDate As String Dim ms As Long, mm As Long, mh As Long Dim mHorloge As String s = Now mDate = Format(s, "dd/MM/yyyy") mHorloge = Format(s, "Hh:Nn:Ss") ms = Second(mHorloge) mm = Minute(mHorloge) mh = Hour(mHorloge) DateNowVersDateJulienne = Trim("" & DateVersDateJulienne(mDate)) & "." & Trim("" & ((mh * 3600) + (mm * 60) + ms)) End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.