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.
Help pleaseeeeee
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
Partager