Voici la fonction suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Function CalculAncienneté(ByVal d As Date)
    Dim NbrA As String, NbrM As String, NbrJ As String
    Dim TotalJours As Integer
 
    TotalJours = Date - d
    NbrA = TotalJours \ 365
    TotalJours = TotalJours Mod 365
    NbrM = TotalJours \ 30
    NbrJ = TotalJours Mod 30
    CalculAncienneté = NbrA & " ans, " & NbrM & " mois et " & NbrJ & " jours"
End Function
Le but de cette fonction est d'afficher l'ancienneté d'un client à partir de sa date d'entrée.
Pourtant quand j'exécute ma fonction, j'obitens une erreur me disant qu'il y a "un dépassement de capacité" et me surligne "TotalJours = Date-d"...
J'ai beau chercher je vois (une fois de plus j'avoue) où est l'erreur, ma fonction me semble bonne pourtant.
Alors pourquoi? Si vous avec une idée ou qu'il vous faut des précisions.