Waarde van DateTimePicker doorvoeren

[Jan92]

Dag allemaal,

Doelstelling : Werkschema opmaken
Foto ter verduidelijking...

Wat ik weet : (Nog niet veel)
De gekozen datum van de DateTimePicker laten verschijnen
in Label1 (onder ma.)

Wat ik niet weet : Deze datum doorvoeren naar de 4 volgende dagen.

Gewoon telkens 1 dag bijtellen werkt dus niet want als de startdatum
vb. ma.29 maart is, dan krijg je resultaten als do.32 en vr.33 maart.:shocked:

Alvast bedankt,
Jan

 

[SuperABC]

Bedoel je dat als je de datum van vandaag selecteerd dat je krijgt:

20-3-2010
21-3-2010
22-...
23-...
etc.?​

 

[Jan92]

Dag "SuperABC",

Dit is inderdaad wat ik bedoel.

Bedankt voor reactie.
Jan

 

[SuperABC]

Hier is de code, ervan uitgaand dat de label waar de Datum van Maandag in moet 'Label1' heet etc.:

        If MonthCalendar1.SelectionStart.DayOfWeek <> DayOfWeek.Monday Then
            MsgBox("Ongeldige begin dag van de week...", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
        Else
            Dim Week(6) As Date
            Week(0) = MonthCalendar1.SelectionStart
            Week(1) = MonthCalendar1.SelectionStart.AddDays(1)
            Week(2) = MonthCalendar1.SelectionStart.AddDays(2)
            Week(3) = MonthCalendar1.SelectionStart.AddDays(3)
            Week(4) = MonthCalendar1.SelectionStart.AddDays(4)
            Week(5) = MonthCalendar1.SelectionStart.AddDays(5)
            Week(6) = MonthCalendar1.SelectionStart.AddDays(6)

            Label1.Text = Week(0).ToShortDateString
            Label2.Text = Week(1).ToShortDateString
            Label3.Text = Week(2).ToShortDateString
            Label4.Text = Week(3).ToShortDateString
            Label5.Text = Week(4).ToShortDateString
            Label6.Text = Week(5).ToShortDateString
            Label7.Text = Week(6).ToShortDateString
        End If

 

[Jan92]

Beste,

Ik heb de code op mijn form gezet en getest.

Het resultaat is ietswat vreemd. (zie foto)

Groetjes, Jan

 

[SuperABC]

Zo snel niet gezien dat je een DateTimePicker had i.p.v. een MonthCalender. Probeer dit eens: (Onder de DateTimePicker_ValueChanged event)

        If DateTimePicker1.Value.DayOfWeek <> DayOfWeek.Monday Then
            MsgBox("Ongeldige begin dag van de week...", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
        Else
            Dim Week(6) As Date
            Week(0) = DateTimePicker1.Value
            Week(1) = DateTimePicker1.Value.AddDays(1)
            Week(2) = DateTimePicker1.Value.AddDays(2)
            Week(3) = DateTimePicker1.Value.AddDays(3)
            Week(4) = DateTimePicker1.Value.AddDays(4)
            Week(5) = DateTimePicker1.Value.AddDays(5)
            Week(6) = DateTimePicker1.Value.AddDays(6)

            Label1.Text = Week(0).ToShortDateString
            Label2.Text = Week(1).ToShortDateString
            Label3.Text = Week(2).ToShortDateString
            Label4.Text = Week(3).ToShortDateString
            Label5.Text = Week(4).ToShortDateString
            Label6.Text = Week(5).ToShortDateString
            Label7.Text = Week(6).ToShortDateString
        End If

 

[Jan92]

Nu heb ik dit : (zie foto)

 

[Jan92]

Oeps ! Mijn fout !

Ik heb wat met de code zitten prutsen om het een en ander uit te proberen.

Jou gegeven code werkt perfect lijkt mij !

Sorry en Super bedankt ! :thumb:

tot genoegen, Jan

 

[SuperABC]

Ok, 'Vraag Opgelost'?!

 

[Jan92]

Jaja, de vraag is opgelost. (vergeten aanvinken)
Nogmaals mijn excuses.