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

[Ryuuku]

Ah un long pourquoi pas, je n'y avait pas pensé.
Je vais essayer ça de suite (oui pardon le retard de réponse, faut bien que je mange *burp* oups pardon )

Après essai :
Et bien non ça déconne toujours

j'utilise ma fonction pour afficher dans un formulaire le nombre de jours d'ancienneté.

j'ai donc en gros :
Ancienneté.Text = Ancienneté(Client.date1)

Allez pour préciser complètement, voilà ce que j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Option Explicit
 
Private Type Client
    nom As String * 15
    prénom As String * 15
    adresse As String * 30
    tél As String * 14
    date1 As Date
End Type
 
Dim IndiceClient As Integer
 
Private Function CalculAncienneté(ByVal d As Date)
    Dim NbrA As Integer, NbrM As Integer, NbrJ As Integer
    Dim TotalJours As Long
 
    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
 
Private Sub Afficher()
    Dim Cl As Client
    Dim Num As Integer
    Dim NbrEléments As Integer
 
    Num = FreeFile
    Open "Fichier des clients" For Random As #Num Len = Len(Cl)
    If LOF(Num) > 0 Then
        Get #Num, IndiceClient, Cl
        Seek #Num, Seek(Num) - 1
        nom.Text = Cl.nom
        prénom.Text = Cl.prénom
        adresse.Text = Cl.adresse
        tél.Text = Cl.tél
        date1.Text = Cl.date1
        ancienneté.Text = CalculAncienneté(Cl.date1)
    End If
    NbrEléments = LOF(Num) / Len(Cl)
    Close #Num
    ActivationBoutons (NbrEléments)
End Sub

Les dates sont écrit sous cette forme : 01/12/1998 (par exemple)

Je précise que j'ai apporté les corrections de types de variables, mais rien n'y fait l'erreur reste la même au même endroit :s

[Vld44]

et en utilisant datediff comme le suggère Delbeke ?

[Ryuuku]

et en utilisant datediff comme le suggère Delbeke ?

C'est à dire? Ecrire comme ceci?

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Function CalculAncienneté(ByVal d As Date)
    Dim NbrA As String, NbrM As String, NbrJ As String
 
NbrM = DateDiff("m",d,Date)
NbrA = NbrM \12
NbrM = NbrM-NbrA
NbrJ = NbrM * 30
 
    CalculAncienneté = NbrA & " ans, " & NbrM & " mois et " & NbrJ & " jours"
End Function

C'est ça? J'avoue avoir du mal à comprendre datediff

Heu bah non, et mon nombre de jour le calcul comment? S'il y a des jours qui restent?

Désolé, mais ma fonction me semble pourtant correct (voir meilleur en changeant les typages, ça rend plus logique il est vrai). Alors qu'est ce que c'est que cette erreure qui (à mon avis de newb^^) n'a rien à foutre là

D'autant que pour ProgElecT, ça semble fonctionner

[ProgElecT]

J'ai fait un copier/coller de ta fonction plus sa

Code :

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

1
2
3
4
5
Private Sub AfficherBis()
    Dim Cl As Client
    Cl.date1 = "01/12/1998"
    ancienneté.Text = CalculAncienneté(Cl.date1)
End Sub

essais avec ce Sub AfficherBis pour voire

[Ryuuku]

J'ai fait un copier/coller de ta fonction plud sa

Code :

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

1
2
3
4
5
Private Sub AfficherBis()
    Dim Cl As Client
    Cl.date1 = "01/12/1998"
    ancienneté.Text = CalculAncienneté(Cl.date1)
End Sub

essais avec ce Sub AfficherBis pour voire

Ca reviens au même non?
Le soucis c'est que dans mon exo je dois saisir la date via le formulaire et ce que tu me propose reviens exactement au même Ceci dit je vais essayer quand même en saisissant la date directement par programmation, mais ça m'avancera pas dans mon problème...

Je pige pas du tout pourquoi VB me fait une crise par que je cherche à calculer le nombre de jours en deux date (bref en faisant une différence). Ca doit forcément marcher non?

[Edit]
En saisissant par programmation la date, ça fonctionne... J'y pige plus du tout rien...

J'ai essayé un truc du genre :
CalculAncienneté("01/12/1998") et le calcul se fait nikel.
Alors pourquoi ça déconne quand je saisi à l'identique la date via mon formulaire "graphique"

[ProgElecT]

si Private Sub AfficherBis() fonctionne, c'est que la recuperation de la date du fichier est pas retournée dans le bon type, voilà pourquoi je te demande de faire l'essais, chez sa fonctionne, si pas chez toi, là .............??

[ProgElecT]

met un espion sur Cl.date1 ligne ->
Seek #Num, Seek(Num) - 1
nom.Text = Cl.nom
prénom.Text = Cl.prénom
adresse.Text = Cl.adresse
tél.Text = Cl.tél
date1.Text = Cl.date1 'un point darret ICI
Avec l'espion, il t'indiquera le type de recuperation, sa peut être interressant

[Ryuuku]

si Private Sub AfficherBis() fonctionne, c'est que la recuperation de la date du fichier est pas retournée dans le bon type, voilà pourquoi je te demande de faire l'essais, chez sa fonctionne, si pas chez toi, là .............??

Je vais pété un plomb J'y comprend plus rien, c'est pourtant censé marché, j'y comprend plus rien
Alors c'est quoi qui déconne? l'enregistrement dans le fichier? Le fait d'aller chercher la date dans le fichier qui déconne

[Edit] BOn j'ai recommencé à 0, j'ai tout réécrit (mon fichier client et ma fonction) de A à Z et aller comprendre... Ca marche maintenant, j'ai pourtant réécrit à l'identique

[Vld44]

ton pc / le calendrier du formulaire est programmé français ?

Ca peut être con, mais si ta date est retournée en version de je ne sais où il va pas apprécier (genre il comprends "25° mois de l'anneé" au lieu de 25° jour du mois ...)

[Ryuuku]

ton pc / le calendrier du formulaire est programmé français ?

Ca peut être con, mais si ta date est retournée en version de je ne sais où il va pas apprécier (genre il comprends "25° mois de l'anneé" au lieu de 25° jour du mois ...)

Le genre de connerie que j'ai dû réparer en réécrivant le fichier... Y a vraiment des jours où la programmation et moi (déjà que je suis pas bon à grand chose) ça passe pas.