Discussion :

[L'aigle de Carthage]

Salut à tous, cette fonction acceptes 2 paramètres "date" et "durée" et me permet de déterminer une date finale aprés avoir calculer "date+durée", et dans le msgbox(date_enlevement), j'obtiens le résultat exact--->Tout est bon mais quand je veut afficher le résultat dans un Label, j'aurais=> 00:00:00 ???? alors comment pourrais-je résoudre le problème? , je veut avoir une date jj/mm/annee dans le label.

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
Function enlevementplatre(dat As Date, duree As String) As Date
 
Dim date_enlevement As String
Dim jour As String
 
Dim mo As String
Dim an As String
Dim datf As String
Dim i, debut, fin As Integer
datf = Month(dat) & "/" & Day(dat) & "/" & Year(dat)
 
 
                jour = Day(dat) + duree
                mois = Month(dat)
                annee = Year(dat)
 
        '****************************************Date***************
   While (jour > 31)
        '-------------
        If (mois = 1) Then
               mo = 2
               jour = jour - 31
 
            End If
       If (mois = 2) Then
                       If annee Mod 4 = 0 Then
                           mo = 3
                           jour = jour - 29
                        Else
                           mo = 3
                           jour = jour - 28
                  End If
                  End If
 
            If (mois = 3) Then
                   mo = 4
                   jour = jour - 31
 
            End If
            If (mois = 4) Then
                   mo = 5
                   jour = jour - 30
                  End If
           If (mois = 5) Then
                   mo = 6
                   jour = jour - 31
            End If
            If (mois = 6) Then
                   mo = 7
                   jour = jour - 30
                    End If
            If (mois = 7) Then
                   mo = 8
                   jour = jour - 31
                   End If
            If (mois = 8) Then
                   mo = 9
                   jour = jour - 31
                   End If
           If (mois = 9) Then
                   mo = 10
                   jour = jour - 30
                   End If
           If (mois = 10) Then
                   mo = 11
                   jour = jour - 31
                   End If
          If (mois = 11) Then
                  mo = 12
                   jour = jour - 30
                   End If
           If (mois = 12) Then
                  mo = 1
                   jour = jour - 31
                   an = annee + 1
                   End If
    mois = mo
   annee = an
 
        '----------------
 
        Wend
 
    date_enlevement = jour & "/" & mois & "/" & annee
    MsgBox (date_enlevement)
 
 
 
End Function

Help pleaseeeeee

[ProgElecT]

Code :

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

Format(enlevementplatre, "dddd dd mmmm yyyy")

Motif de l'edition
l'aigle de Carthage, Inscrit le mardi 02 mai 2006, Total message: 42, discussions ouvertes: 20, Nbr.de TAGs utilisés: 1, moyenne: 5/100, ma partitipation jusqua ce post: 2

On ne doit par regreter se que l'on donne (son temps par exemple), mais des fois la pilulle est dur a avaler, un gas qui post avec

Help pleaseeeeee

et qui se barre sans même informer si s'est bon pour lui, dur.
Un peu decouragé ProgElecT sur ce coup.

[L'aigle de Carthage]

merci beaucoup pour l'aide, mais je voudrais vous signaler que votre ligne de code n'as pas résolu mon problème Mais est ce que vous pouvez vérifier mon code (du début jusqu'à la fin....) car j'ai un soupçon dans ma declaration des variables(jour, mois et an), en plus , est ce que la fonction retourne un String ou bien Date.??

merci pour votre coopération

[OhMonBato]

Si ta fonction s'appelle "enlevementplatre" faudrait peut etre ecrire

enlevementplatre = date_enlevement sinon tu ne lui affecte aucune valeur.

[zazaraignée]

Si ta fonction s'appelle "enlevementplatre" faudrait peut etre ecrire

enlevementplatre = date_enlevement sinon tu ne lui affecte aucune valeur.

Pour compléter le commentaire de OhMonBato, tu ajoute sa ligne juste avant End Function.

[Delbeke]

Vb est équipé de fonctions de calcul de date

Il serait plus simple de remplacer toute ta procédure par quelque chose comme

Code :

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

Label1.caption = Format(DateAdd("d",Durée,Dat),"dd/mm/yyyy")

Si tu utilises cette manière de faire, il faudra modifier la déclaration de la variable durée pour la passer en Double

[L'aigle de Carthage]

Merci pour vous tous, je vais essayé les 2 méthodes