Bonjour,
Je voudrai calculer 2 dates en utilisant 2 textbox, voir image jointe, pouvez-vous m'aider ?
Merci.
Version imprimable
Bonjour,
Je voudrai calculer 2 dates en utilisant 2 textbox, voir image jointe, pouvez-vous m'aider ?
Merci.
Bonjour giovanni71,
Le cours VbNet de Mr Lasserre :
http://plasserre.developpez.com/cour...gage-vb8#LV-AB
Ensuite si tu ne sais pas manier les variables en vue de les soustraire retourne au début de ce même ouvrage.......
A+
Bonjour,
Pour vérifier et convertir la saisie des textBox en date, tu as la méthode DateTime.TryParse
vous avez une solution plus simple :
voici en image : Pièce jointe 142241
voici mes codes :
n'oublie pas ajouter dans ton form1 : DateTimePickerCode:
1
2
3
4 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim yr As Integer = DateDiff(DateInterval.Year, DateTimePicker1.Value, Now) Label1.Text = yr End Sub
A+
voici mon code source, si j'encode 21/08/1971 et 21/08/2014, j'ai bien une date mais si j'encode 31/08/1980 et 31/09/2014, j'ai un message d'erreur, bizarre !
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim datetimenow = DateTime.Now Dim datedenaissance = CDate(TextBox1.Text) Dim datedpc = CDate(TextBox2.Text) Dim age As Integer age = CInt(datedpc.Year - datedenaissance.Year) If (datedenaissance.Month > Now.Month) Then age = age - 1 End If If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day > Now.Day)) Then age = age - 1 End If Label1.Text = " Age : " & age & " ans" End Sub
le 31/09 n'existe pas dans le calendrier ;)
Pense à effectuer un contrôle sur tes textbox avant d'effectuer le calcul pour vérifier la validité des dates.