Datums aanpassen

[Pitje1958]

Hallo,

Ik zou willen dat de datum met 1 verminderd of met 1 verhoogd word als ik op de betreffende button klik. de code in met tekstvak is:
txtdatum.text = (format(Today, " dddd dd MMMM yyyy"))

 

[ninjaplayer]

Als eerst typ je onder 'Public Class Form1'.

    Dim Morgen As DateTime = Today.AddDays(1)
    Dim Gisteren As DateTime = Today.AddDays(-1)

+ 1 dag:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         txtdatum.Text = (Format(Morgen, " dddd dd MMMM yyyy"))
 
   End Sub

En -1 dag:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         txtdatum.Text = (Format(Gisteren, " dddd dd MMMM yyyy"))
 
   End Sub

 

[Pitje1958]

Datum aanpasen

Als eerst typ je onder 'Public Class Form1'.

    Dim Morgen As DateTime = Today.AddDays(1)
    Dim Gisteren As DateTime = Today.AddDays(-1)

+ 1 dag:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         txtdatum.Text = (Format(Morgen, " dddd dd MMMM yyyy"))
 
   End Sub

En -1 dag:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         txtdatum.Text = (Format(Gisteren, " dddd dd MMMM yyyy"))
 
   End Sub

Bedank voor je reactie,

Ik kan de datum met 1 verminderen of verhogen t.o.v txtdatum.text maar als ik verder wil terug gaan dit gaat niet omdat de datum in txtdatum.text today is en bij iedere klik op de button de today -1 of +1 gaat doen.
Ik vermoed dat de today er niet mag bijstaan.

Groeten

Pitje

 

[ninjaplayer]

Je kan dan een integer maken en het getal van bijv. Dim Gisteren As DateTime = Today.AddDays(-1) vervangen door de integer.

Door bijv. steeds een dag terug te gaan kan je bij private button1_click etc... het zo instellen dat hij steeds 1 aftrekt van de integer als er op button1 geklikt wordt (of iets anders).
Bij het dagen optellen doe je ipv 1 aftrekken 1 optellen.

Snappie?