Fonction JourSemestre

[Claudy]

Bonjour,
la fonction = jour() existe bien pour donner le numéro du jour dans le mois.
Je voudrais faire une fonction personnalisée (JourSemestre) en vba, pour donner le numéro du jour dans le semestre.
Exemple := JourSemestre(03/02/2011) me donnerait 34.
Merci d'avance,
Claudy

 

[Dranreb]

Re : Fonction JourSemestre

Bonjour.
ceci semble faire l'affaire:

Function JourSemestre(ByVal D As Date) As Long
JourSemestre = D - DateSerial(Year(D), IIf(Month(D) > 6, 7, 1), 0)
End Function

Mais un formule aurait été presque aussi simple.
À+

 

[Arpette]

Re : Fonction JourSemestre

Bonjour Claudy, Dranreb,
la fonction est celle-ci
@+

=AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());1;0)

 

[Dranreb]

Re : Fonction JourSemestre

Bonjour Arpette,
ben non, ça ça donne le numéro du jour d'aujourdhui dans l'année en cours et pas le jour d'une date passée en argument dans son semestre !

=A1-DATE(ANNEE(A1);SI(MOIS(A1)>6;7;1);0)

À+

 

[Claudy]

Re : Fonction JourSemestre

Ok, merci à vous deux et bonne journée,
Claudy

 

[Hippolite]

Re : Fonction JourSemestre

Bonjour,
avec une simple formule, date en A1 :

=SI(A1<DATE(ANNEE(A1);7;1); A1-DATE(ANNEE(A1);1;1)+1; A1 - DATE(ANNEE(A1);7;1)+1)

A+

Edit : Bonjour à tous
quel tir groupé et que de variantes !

 

[Arpette]

Re : Fonction JourSemestre

Re,
merci de la correction, je n'avais pas lu la question jusqu'au bout.
@+

 

[hoerwind]

Re : Fonction JourSemestre

Bonjour,

Une formule : =A1-DATE(ANNEE(A1);PLANCHER(MOIS(A1-1);6)+1;1)+1