datum met spinbutton

[Jorre]

Hello,

Voor mijn programma zou ik graag een datum in een box laten spinnen(in een userform), dus wanneer ik op het pijltje omhoog druk zou de datum in de box ook omhoog moeten gaan.

De datum van de dag komt steeds in de box met volgende functie

txtday.Value = Format(Date, "dd/mm/yyyy")


maar hoe kan ik deze correct laten spinnen? (niet 1-2-3 maar 07/03/2007 - 08/03/2007 - ...)
alvast bedankt

 

[alberto10]

Jorre,

Private Sub SpinButton1_SpinDown()
    Txtday.Value = Format(Date + 1, "dd/mm/yyyy")
End Sub

Private Sub SpinButton1_SpinUp()
    Txtday.Value = Format(Date - 1, "dd/mm/yyyy")
End Sub

 

[Jorre]

bedankt voor de snelle reactie, maar het probleem is toch nog niet helemaal opgelost.

Ik kan nu wel al scrollen naar "morgen" en "gisteren" maar niet naar de dagen daarvoor en daarachter.

Enige ideëen ?

 

[Wigi]

Zet de waarde van de spinbutton op Date bij het inladen van de userform.

Neem dan deze code.

Private Sub SpinButton1_SpinDown()
    Txtday.Value = Format(SpinButton1.Value + 1, "dd/mm/yyyy")
End Sub

Private Sub SpinButton1_SpinUp()
    Txtday.Value = Format(SpinButton1.Value - 1, "dd/mm/yyyy")
End Sub

Wigi

 

[Jorre]

We zijn stilaan de oplossing aan het bereiken, enige probleem nu nog is dat de datum begint te tellen van 29/12/1899 en dat hij maar 4 maand kan tellen( tot 10/04/1900 ) en dan stopt.
En 2 de vraag hoe kan je de waarde van de spinbutton aanpassen? als ik dit doe bij Value zegt het programma dat dit een ongeldige waarde is.

alvast bedankt

 

[Jorre]

helloo

nog steeds niet opgelost. Dit heb ik al

Private Sub spnday_Change()

Me.txtday.Value = Me.spnday.Value
End Sub
Private Sub Spnday_SpinDown()

txtday.Value = Format(spnday.Value - 1, "dd/mm/yyyy")

End Sub
Private Sub Spnday_SpinUp()

txtday.Value = Format(spnday.Value + 1, "dd/mm/yyyy")

End Sub

In het vorige bericht sprak iemand over de waarde van de spnbutton op date te zetten bij het inladen van de userform. Waar, hoe, ... geen idee hoe dat moet.

tot nu toe kan ik alleen nog maar van begin 1900 tot 4 maanden later scrollen. Vrij lastig want het is ondertussen al 2007

hopend op een antwoord

jorre

 

[Wigi]

Hang je bestand eens bij, enkel de Userform en de spinbutton. Niets anders is nodig.

 

[Jorre]

Ik heb even een klein programmatje gemaakt met enkel de date in, maar je zal het probleem wel meteen merken bij het gebruiken van de spinbuttons.

grts

 

[Wigi]

Private Sub Spnday_SpinDown()
    txtday.Value = Format(Format(txtday.Value, "#") - 1, "dd/mm/yyyy")
End Sub
Private Sub Spnday_SpinUp()
    txtday.Value = Format(Format(txtday.Value, "#") + 1, "dd/mm/yyyy")
End Sub
Private Sub UserForm_initialize()
    txtday.Value = Date
End Sub

Tevens had je de spinbutton op een max van 100 (dagen dus) gezet.

Wigi

 

[Jorre]

Hartelijk bedankt wigi, you made my day !!

met vriendelijke groeten

jorre

 

[Demeter]

Wigi,

Deze werkt bij mij ook niet geheel.
Als ik op vandaag begin en ga naar 12-3-2007 dan verspringen de maand en dag waarden.
Hierna gebeurt dit om en om tot dat het niet meer kan (waarde maand hoger dan 12).

Zelfde gebeurt met:

Private Sub Spnday_SpinDown()
    txtday.Value = Format(DateAdd("d", -1, txtday), "d/mm/yyyy")
End Sub
Private Sub Spnday_SpinUp()
    txtday.Value = Format(DateAdd("d", 1, txtday), "d/mm/yyyy")
End Sub

Private Sub UserForm_initialize()
    txtday.Value = Format(Date, "d/mm/yyyy")
End Sub

Ergens gaat er iets niet goed in de textbox

 

[Wigi]

Wigi,

Deze werkt bij mij ook niet geheel.
Als ik op vandaag begin en ga naar 12-3-2007 dan verspringen de maand en dag waarden.
Hierna gebeurt dit om en om tot dat het niet meer kan (waarde maand hoger dan 12).

Dus het bestandje van Jorre met mijn code erin werkt niet bij jou? Dat is wel raar, bij ons werkt het wel. Kan je nog eens checken?

 

[Demeter]

Noop werkt hier niet. Nogmaals het bestandje gepakt en jouw code erin verwerkt.
Tevens de max van de spinbutton terug gezet naar 0.

Hij doet het ok tot dat de dag lager wordt dan 12.
tot aan 12/07/2007 gaat het goed.
Hierna krijg ik de volgende reeks:
02/12/2007
11/02/2007
01/11/2007
10/01/2007
30/09/2007
29/09/2007
tot aan
12/09/2007
dan weer
08/11/2007
10/08/2007
etc.

Toch even snel mijn regional settings gecontroleerd, staat hier op US (werkt met win 2000 - engels).
Gezet op Dutch en werkt nu correct. Maar vreemd dat dit niet wordt ondervangen door de format welk in de code wordt gebruikt?