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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
| Public Class Form1
Dim DateSelectionnee, Aujourdhui As Date
Dim JourSelectionne, MoisSelectionne, AnneeSelectionnee, Quantieme, NbJours, NbMois, Trimestre, NrSemaine As Integer
Dim PremierJourSemaine, DernierJourSemaine, PremierJourDuMois, DernierJourDuMois, DateAjoute As Date
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Indique la date actuelle
Aujourdhui = Date.Now
' Initialise la variable Dateselectionnee à la date d'aujourdhui
DateSelectionnee = CDate(Aujourdhui.ToString("dd/MM/yyyy"))
' Affichage auformat date jj/mm/aa hh:mm:ss
TB_Aujourdhui.Text = Aujourdhui
' Affichage au format jj/mm/aa
TB_AujourdhuiSimple.Text = Aujourdhui.ToString("dd/MM/yyyy")
' Affichage plus complet au format 'Lundi 2 août 2010'
TB_AujourdhuiComplet.Text = Aujourdhui.ToString("dddd d MMMM yyyy")
' Affiche la date du jour dans le text Box TB_AjouteJours
TB_AjouteJours.Text = Aujourdhui.ToString("dd/MM/yyyy")
' MsgBox("Sélectionnez une date sur le calendrier")
End Sub
Private Sub Calendrier_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles Calendrier.DateSelected
' Date sélectionnée au format date
DateSelectionnee = Calendrier.SelectionStart
' réactualise l'affichage du textbox (juste pour faire joli)
TB_AjouteJours.Text = DateSelectionnee
' calcul les jours en plus au cas ou !
Num_AjouteJours_ValueChanged(sender, e)
' Année sélectionnée au format "Entier"
AnneeSelectionnee = DateSelectionnee.Year
' Mois sélectionné au format "Entier"
MoisSelectionne = DateSelectionnee.Month
' Jour Sélectionné au format "Entier"
JourSelectionne = DateSelectionnee.Day
' détermine le quantième (le jour de l'année 1 à 365)
Quantieme = DateSelectionnee.DayOfYear
AfficherSelection()
Calculs()
End Sub
Private Sub AfficherSelection()
' Affichage des données
TB_DateSelectionnee.Text = DateSelectionnee
TB_AnneeSelectionnee.Text = AnneeSelectionnee
TB_MoisSelectionne.Text = MoisSelectionne
TB_JourSelectionne.Text = JourSelectionne
TB_Quantieme.Text = Quantieme
End Sub
Private Sub Calculs()
' Calcul du nombre de jours entre les deux dates
NbJours = DateDiff(DateInterval.Day, Aujourdhui, DateSelectionnee)
' Calcul du nombre de mois entre les deux dates
NbMois = DateDiff(DateInterval.Month, Aujourdhui, DateSelectionnee)
' Calcul du nombre de trimestres entre les deux dates
Trimestre = DateDiff(DateInterval.Quarter, Aujourdhui, DateSelectionnee)
' Détermine le numéro de semaine de la date sélectionnée
NrSemaine = DatePart(DateInterval.WeekOfYear, DateSelectionnee, FirstDayOfWeek.Monday)
' Détermine le premier jour de la semaine de la semaine (Ce sera toujours un lundi,
' il est possible de le programmer différemment bien entendu)
' Dans cet exemple le premier jour est un lundi. Il suffit de faire la différence entre
' 2 (le lundi) et le numéro du jour
Dim Différence As Short = 2 - DatePart(DateInterval.Weekday, DateSelectionnee)
' On ajoute (un chiffre négatif) pour retrouver la date du lundi de la semaine.
PremierJourSemaine = DateSelectionnee.AddDays(Différence)
'' Cet exemple peut être concatené comme cela :
'' PremierJourSemaine = DateSelectionnee.AddDays(2 - DatePart(DateInterval.Weekday, DateSelectionnee))
'' Je préfère décomposer un peu pour mieux comprendre.
' Détermine le dernier jour de la semaine.
' Dans cet exemple ce sera le dimanche (le jours N° 1)
DernierJourSemaine = DateSelectionnee.AddDays(8 - DatePart(DateInterval.Weekday, DateSelectionnee))
' détermine le premier jour du mois (format date)
PremierJourDuMois = CDate(1 & "/" & MoisSelectionne & "/" & AnneeSelectionnee)
' détermine le dernier jour du mois (format date)
DernierJourDuMois = CDate(Date.DaysInMonth(AnneeSelectionnee, MoisSelectionne) & "/" & MoisSelectionne & "/" & AnneeSelectionnee)
'Idem pour le premier et le dernier jour de l'année
TB_1Janv.Text = CDate("01/01/" & AnneeSelectionnee)
TB_31Dec.Text = CDate("31/12/" & AnneeSelectionnee)
AfficherCalculs()
End Sub
Private Sub AfficherCalculs()
' Affichage des données
TB_NbJours.Text = NbJours
TB_NbMois.Text = NbMois
TB_Trimestre.Text = Trimestre
TB_NrSemaine.Text = NrSemaine
TB_PremJourSem.Text = PremierJourSemaine
TB_DernJourSem.Text = DernierJourSemaine
TB_PremJourMois.Text = PremierJourDuMois
TB_DernJourMois.Text = DernierJourDuMois
End Sub
Private Sub Num_AjouteJours_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Num_AjouteJours.ValueChanged
' Ajoute le nombre de jours indiqué par le NumericUpDown appelé AjouteJours
DateAjoute = DateSelectionnee.AddDays(Num_AjouteJours.Value)
TB_AjouteJours.Text = CDate(DateAjoute)
' Il est possible d'ajouter des années : remplacer AddDays par AddYears , des mois etc...
End Sub
Private Sub TB_NbJours_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_NbJours.TextChanged
End Sub
Private Sub TB_DateSelectionnee_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_DateSelectionnee.TextChanged
End Sub
End Class |
la différence entre deux dates
Répondre avec citation
Partager