Jour julien, date julienne

Commenter

Contenu du snippet

fonction qui retourne le numéro du jour de l'année.
Peut-être trop simple... mais n'était pas évident.
Cet exemple utilise une fenêtre VB avec 2 zones texte et un bouton.

Source / Exemple : 


Private Sub Command1_Click()

On Error Resume Next    ' si format non valide

Text2.Text = ""
' Inscrire dans text1 une date valide
Text2.Text = JourJulien(Text1.Text)
End Sub

' *************************************************
Function JourJulien(dDate As Date) As Integer
Dim oDate As Date

oDate = Left(dDate, 4) & "/01/01"   ' premier jour de l'année
JourJulien = dDate - oDate + 1      ' Le résultat ;)

End Function
' *************************************************

Conclusion :


Le résultat est bon pour toute année, même les années de 366 jours.
Valide pour les formats reconnus , "aaaa/mm/jj", "jj/mm/aaaa" ...
L'idée de base soustraire les dates... ;)
Si cela vous a aidé, svp me l'indiquer. Merci

A voir également

S'inscrire maintenant

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.

Du même auteur (dpouliot)