Retourner le numéro de trimestre d'une date

[Toug]

Bonsoir,
J'essaie de coder une sous fonction qui retourne le numéro du trimestre de la date qui lui est passée en paramètre. Cela ne fonctionne pas mais je ne comprend pas pourquoi. J'ai une erreur qui dit que un tableau est attendu lors de l'appel de la fonction

Voici mon code:

Function trimestre(dates)

mois = CInt(Format(dates, "mm"))

If mois = 1 Or mois = 2 Or mois = 3 Then trimestre = 1
If mois = 4 Or mois = 5 Or mois = 6 Then trimestre = 2
If mois = 7 Or mois = 8 Or mois = 9 Then trimestre = 3
If mois = 10 Or mois = 11 Or mois = 12 Then trimestre = 4

End Function

Sub test()
Dim debut As Date
Dim trimestre As Integer

debut = InputBox("Date?")
trimestre = trimestre(debut)
MsgBox trimestre
End Sub

 

[Toug]

Re : Retourner le numéro de trimestre d'une date

J'ai trouvé, il ne fallait que j'utilise une variable trimestre avec une fonction qui s'appelle trimestre.

Merci quand même à tous.

 

[Tibo]

Re : Retourner le numéro de trimestre d'une date

Bonjour,

Pour le fun, le trimestre peut se calculer ainsi :

=ENT((MOIS(date)-1)/3)+1

Formule que je te laisse adapter en VBA

@+