Discussion :

[subfestivus]

Bonjour ,
Je souhaite obtenir dans un label lorsque je sélectionne une date dans un calendrier la différence entre la date sélectionnée et la date du jour.

Code :

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

1
2
3
4
5
 
 Private Sub MonthCalendar1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged
        Me.Label1.Text = CStr(Me.MonthCalendar1.SelectionRange.Start)
        Me.Label2.Text = Now - CStr(Me.MonthCalendar1.SelectionRange.Start) "l'erreur est sur cette ligne"
    End Sub

Merci de votre expertise

[clementmarcotte]

Bonjour,

Bonjour ,
Je souhaite obtenir dans un label lorsque je sélectionne une date dans un calendrier la différence entre la date sélectionnée et la date du jour.

Code :

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

1
2
3
4
5
 
 Private Sub MonthCalendar1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged
        Me.Label1.Text = CStr(Me.MonthCalendar1.SelectionRange.Start)
        Me.Label2.Text = Now - CStr(Me.MonthCalendar1.SelectionRange.Start) "l'erreur est sur cette ligne"
    End Sub

Merci de votre expertise

C'est parce que tu essaies de faire des opérations sur deux valeurs texte. Tu dois calculer la différence de dates avant d'afficher le résultat. Regarde dans ton aide TimeSpan, Structure

De mémoire et sans test, tu devrais avoir quelque chose ressemblant à ceci:

Code :

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

1
2
3
4
5
6
7
8
 
 Private Sub MonthCalendar1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged
        dim début as DateTime = Me.MonthCalendar1.SelectionRange.Start
        dim fin as DateTime = now
        dim Écart as timespan = fin - début
        Me.Label1.Text = début.tostring
        Me.Label2.Text = Écart.tostring
    End Sub

Merci de votre expertise[/QUOTE]

[subfestivus]

merci beaucoup

[clementmarcotte]

merci beaucoup

De rien.

Mais, puisque c'est ta question, tu devrais en principe avoir une icône à cliquer pour indiquer aux lecteurs que le problème a été réglé. Ce serait une bonne chose de le faire; à la condition que le problème soit réglé.