Discussion :

[Tempus01]

Bonjour le forum,

Pouvez vous m'aider pour trouver un code qui fasse le calcul ci dessous ?

J'ai deux textbox, la première ou est rentrée la date d'achat "en Locked" et la second "aussi en Locked"qui indique le temps qu'il reste avant la fin de la licence de 1 an.

Merci à vous,

[Delaney]

bonsoir,

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
 
        Dim date1 As DateTime = DateTime.Parse(TextBox1.Text) ' date d'achat
        Dim date2 As DateTime = DateTime.Today ' date d’aujourd’hui
        Dim date3 As DateTime = DateAdd("yyyy", 1, date1) ' date de fin de licence, on ajoute 1 an
        Dim diff As TimeSpan = date3 - date2
 
        MessageBox.Show(diff.Days.ToString)

[Tempus01]

Bonjour Delaney,

Merci pour le bout de code, il fonctionne, mais je souhaiterais que les jours restants s'affichent dans la textbox 2 plutôt qu'avec le MessageBox.Show(Diff.Days.ToString) seulement je bloque sur la conversion.

Voici comment j'ai intégré votre code.

Code :

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

1
2
3
4
5
6
7
8
 Dim J As String = "Jour(s)"
        TextBox1.Text = Format("dd/mm/yyyy")
        TextBox1.Text = CStr("12/1/2021")
        Dim Date1 As DateTime = DateTime.Parse(TextBox1.Text) ' date d'achat
        Dim Date2 As DateTime = DateTime.Today ' date d’aujourd’hui
        Dim Date3 As DateTime = DateAdd("yyyy", 1, Date1) ' date de fin de licence, on ajoute 1 an
        Dim Diff As TimeSpan = Date3 - Date2
        Diff = CInt(TextBox2.Text) & "J"

[Delaney]

Ce code :

Code :

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

 Diff = CInt(TextBox2.Text) & "J"

essaie de placer le contenu de la textbox2 dans DIFF (et génère une erreur au passage) hors c'est l'inverse qu'il faut...

Code :

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

Textbox2.text = diff.Days.ToString & " jours"

[Tempus01]

Merci Delanay,

Cela fonctionne parfaitement .

[Tempus01]

Bonjour Delaney,

La licence est passée à 90 jours, j'ai modifié un peu votre code pour passer le compte à rebours à 90 jours mais cela ne fonctionne pas, cela m'affiche 2666 jours restant

Code :

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

  Dim Date3 As DateTime = DateAdd("m", 90, Date1)

Avez-vous une idée de ce que je dois modifier ?

merci à vous.

[Tempus01]

Je viens de trouver mon erreur, il faut taper 3 pour 3 mois et non 90 pour 90 jours.

[Delaney]

une erreur que l'on résout tout seul, c'est du pur 100% d'expérience en plus