Discussion :

[Ryuuku]

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.

[Vld44]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(ByVal d As Date)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim TotalJours As Integer

[Delbeke]

Tu peux aussi utiliser datediff

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
NbMois = DateDiff("m",DteNaissance,Date)
NbAns = NbMois \12
NbMois = NbMois-NbAns

Note : j'ai remarqué des problemes avec DateDiff quand on demande une difference en années : DateDiff("y",DteNaissance,Date)

[Ryuuku]

Ben quoi????

Pourtant mon code devrais fonctionner, non?
C'est quoi cette erreur

[Phifi]

-> Tu essaies d'affecter une variable de type Date à une variable de type Integer

[ProgElecT]

L'appel à ta fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label1 = CalculAncienneté(CDate("13/04/1956"))

Pour moi, ta fonction donne le bon resultat.
Peux tu nous donner un exemple de l'appel a cette fonction qui te genère une erreur.

[Vld44]

attend, corrige d'abord les fautes de typage ...


NbrM = TotalJours \ 30

String := double ?

cf ma signature xD

[ProgElecT]

attend, corrige d'abord les fautes de typage ...

J'allais y venir,

Dim NbrA As String, NbrM As String, NbrJ As String
Dim TotalJours As Integer
Label1 = CalculAncienneté(13 / 4 / 1956) 'erreur

alors que

Dim NbrA As Integer, NbrM As Integer, NbrJ As Integer
Dim TotalJours As Long
Label1 = CalculAncienneté(13 / 4 / 1956) pas d'erreur