Fonction trimestres

[C@thy]

Bonjour le forum,

je cherche à écrire une fonction qui calculerait le nombre de trimestres travaillés depuis une date d'entrée en fonctions (c'est le cas de le dire!!).

J'ai fait une recherche sur le forum, â pa trouvé...

Quelqu'un aurait-il une idée?

Merci à vous.

Biz et bonne journée😎,

C@thy

 

[tototiti2008]

Re : Fonction trimestres

Bonjour C@thy,

Ce sont les trimestres qui comptent pour la retraite ?
Si oui, il y a une règle particulière ? je ne la connais pas

peut-être

=DATEDIF(A1;AUJOURDHUI();"m")/3

 

[Victor21]

Re : Fonction trimestres

Bonjour, C@thy.

Quelles sont les règles de calcul ?
Une arrivée en cours de trimestre civil valide-t-elle un trimestre ?
Un départ en cours de trimestre valide-t-elle un trimestre ?
Ne doit-on compter que les trimestres complets ?
Ne faut-il que compter les mois complets et diviser par 3 ?
...

Beaucoup de questions avant de pouvoir vous aider .

Cordialement,

 

[C@thy]

Re : Fonction trimestres

Merci vous deux.

Oui tototiti, ce sont les trimestres qui comptent pour la retraite.

Quelles sont les règles de calcul ?

Bonne question...

autant qu'il me semble, tout trimestre travaillé, même incomplet, compte.

Par ailleurs, il me faudrait une macro-fonction, pas une formule.

Merci boyz Biz

Edit : pendant que j'y suis 😱: une fois calculé le nombre de trimestres effectués, il faudrait, à partir d'un nombre de trimestres à effectuer (fourni dans une cellule ex. : 164) calculer le nombre de trimestres restant et donc... la date de départ (formule ou fonction, peu importe)

C@thy

 

[Victor21]

Re : Fonction trimestres

Quelqu'un qui travaillerait un jour dans le trimestre ?

 

[C@thy]

Re : Fonction trimestres

on va dire ça... même un jour suffirait..

C@thy

 

[Everlast03]

Re : Fonction trimestres

Bonjour,

Dis moi si le fichier te convient, à modifier suivant ce que tu veux...

Bonne journée.

 

[JCGL]

Re : Fonction trimestres

Bonjour à tous,

Une fonction :

Function TrimW(Deb As Date, Fin As Date)
TrimW = Int(DateDiff("m", Deb, Fin) / 3)
End Function

A+ à tous

 

[tototiti2008]

Re : Fonction trimestres

Bonjour Victor, Bonjour Everlast, Bonjour JCGL,
Re,

Ce que je ne comprend pas c'est la plus-value de passer par une fonction VBA par rapport à une formule...

 

[C@thy]

Re : Fonction trimestres

Merci à vous, vous êtes des chouchous.

tototiti, moui...., c'est vrai... c'est plus court!!!

Edit : Dis-donc, evelast03, je n'ai pas commencé à travailler en 1912!!!🙂 Non mais!!!😛

C@thy

 

[Staple1600]

Re : Fonction trimestres

Bonjour à tous

Histoire de saluer Tibo
Voir ici sa formule courte également
https://www.excel-downloads.com/threads/trimestre.85293/

 

[C@thy]

Re : Fonction trimestres

Merci Staple,
j'en profite pour saluer également l'ami Tibo,
mais telle n'était pas ma question,
calculer le numéro du trimestre, ça je sais faire :

Public Function Trimes(MaDate As Date) As Variant
If MaDate > 0 Then Trimes = Choose(Month(MaDate), 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4)
End Function

Public Function Trimest(MaDate As variant) As Variant
If MaDate > 0 Then Trimest = Int((Month(MaDate) + 2) \ 3)
End Function

Biz

C@thy

 

[job75]

Re : Fonction trimestres

Bonjour le fil,

Cette fonction macro détermine le nombre de trimestres civils :

Function Trimestres%(deb As Date, fin As Date)
Dim i As Byte, dat As Date, date1 As Date, date2 As Date
'date de début du trimestre civil
For i = 0 To 3
  dat = DateSerial(Year(deb), 3 * i + 1, 1)
  If dat < deb Then date1 = dat Else Exit For
Next
'date de fin du trimestre civil + 1
For i = 1 To 4
  dat = DateSerial(Year(fin), 3 * i + 1, 1)
  If dat > fin Then date2 = dat: Exit For
Next
Trimestres = DateDiff("q", date1, date2)
End Function

Fichier joint.

A+

 

[C@thy]

Re : Fonction trimestres

Merci job75 ça peut servir aussi

Bises

C@thy

 

[Everlast03]

Re : Fonction trimestres

C'était juste un test C@thy ! Rooooh :-D