in een userform Op basis van ingevoerde datum de dag berekenen

[Jarodxxx]

Voor het kunnen invoeren van uitsluitend een datum in een invoerveld (bedankt: Demeter & Wigi) gebruik ik:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
On Error Resume Next
    If TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") Then
        MsgBox "Onjuiste datum, vul opnieuw in A.U.B.? (dd/mm/jjjj)", vbCritical
        TextBox1.Value = vbNullString
        TextBox1.SetFocus
        Exit Sub
    End If
     
    dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
On Error GoTo 0

End Sub

Werkt prachtig. Ik ben nu op zoek naar een manier, om op basis van de invoer hierboven de dag weer te geven in txbDag. Deze wordt dus berekend aan de hand van de datum in txbTest1

Iemand die weet hoe ik dat kan doen?

Jarod

 

[Demeter]

Kijk eens naar de weekdayname functie en de weekday functie in de help files:

Range("A1") = WeekdayName(Weekday(Now()))

Voor de nederlandse benaming zou je de UDF (user defined function) uit deze post kunnen bewerken naar dagnamen:
http://www.helpmij.nl/forum/showthread.php?t=285766


Succes

 

[Demeter]

Kon het niet laten:

Sub Dagnamen()
    Range("A1") = Dagnaam(Weekday(Range("C1")))
End Sub

Function Dagnaam(mnd As Integer) As String
    Select Case mnd
        Case 1: Dagnaam = "zondag"
        Case 2: Dagnaam = "maandag"
        Case 3: Dagnaam = "dinsdag"
        Case 4: Dagnaam = "woensdag"
        Case 5: Dagnaam = "donderdag"
        Case 6: Dagnaam = "vrijdag"
        Case 7: Dagnaam = "zaterdag"
    End Select
End Function

 

[Wigi]

Hola

waarom niet gewoonweg

txbDag.Text = Format(txbTest1.Text, "dddd")

Wigi

 

[Demeter]

oeps..........................

 

[Wigi]

oeps..........................

Soms zoeken we het allemaal wel een beetje te ver hé

 

[Demeter]

Bedenk me in eens iets:
Als ik nu een engelse windows versie heb en mijn data in het nederlands wil laten zien moet ik (volgens mij) toch uitwijken naar "jouw" udf.

Range("A1") = Format(Range("A4"), "[$-413]dddd;@")

Krijg ik niet aan het werk.

 

[Wigi]

Neen, dit hangt van de Taalinstellingen van de PC af.

Range("A1") = Format(Range("A4"), "dddd")

Wigi

 

[Demeter]

Dan zitten we met post #3 nog het meest op save.
Hebben we geen problemen met de verschillende instellingen.

 

[Wigi]

Dan zitten we met post #3 nog het meest op save.
Hebben we geen problemen met de verschillende instellingen.

Neen, net omgekeerd.

Met mijn voorstel heb je direct de taal van de gebruiker. Met post #3 heb je altijd het Nederlands...

 

[Demeter]

pffffffffffffff........ wat een dag vandaag .

Je hebt gelijk Wigi en jouw code is een stuk korter :thumb:
Had er eigenlijk zelf op moeten komen.

 

[Wigi]

Had er eigenlijk zelf op moeten komen.

Kijk, dat is nu het verschil tussen de echte pro en de would-be's









Grapje hé, is niet gemeend.

 

[Demeter]

No offence taken.

Maar zit wel een kern van waarheid in .
LOL

 

[Wigi]

No offence taken.

Maar zit wel een kern van waarheid in .
LOL

Waarheid is dat het verschil kleiner aan het worden is. Goed bezig :thumb:

 

[Jarodxxx]

Smiley waard

Ha!

Erg leuk te zien dat er voor verschillende problemen vele oplossingen mogelijk zijn.
Kan iemand even uitleggen wat ik nu moet gebruiken?

Hij rekent de dag uit op basis van de ingevoerde datum?

Groeten,

Jarod

 

[Wigi]

Ha!

Erg leuk te zien dat er voor verschillende problemen vele oplossingen mogelijk zijn.
Kan iemand even uitleggen wat ik nu moet gebruiken?

Hij rekent de dag uit op basis van de ingevoerde datum?

Groeten,

Jarod

Die van mij

Range("A1") = Format(Range("A4"), "dddd")

 

[Jarodxxx]

Volgens mij mis ik 't

Hoi Wigi,

Moet me al sterk vergissen , maar:

Range("A1") = Format(Range("A4"), "dddd")

Heeft dit nog altijd met een sheet te maken (natuurlijk kan range ook de textbox zijn dat snap ik)

Wat ik niet helemaal snap is hoe dit als ik een userform heb en een datum invul in Textbox: txbDatumGebeurtenis vb 12-12-2007 hoe hij na een tab of enter ofzo in Textbox: txbDag de juiste dag weergeeft.

Sorry,

Jarod

 

[Demeter]

Jarodxxx,

Probeer eens iets in de trand van:

Private Sub TextBox1_Enter()
    txbDag.Text = Format(TextBox1.Text, "dddd")
End Sub

Code wordt uitgevoerd als je een enter geeft na het invullen van de 1e textbox.

Kijk ook eens wat er met de acties van een Textbox kan gebeuren.
Dubbel klikken op je textbox (nu ga je naar de code pagina) en rechtsboven kan je nu een een actie kiezen (net zoals bij worksheets).

Succes

ps.
Code komt van Wigi zijn post #4

 

[Jarodxxx]

Demeter

Demeter,

't wordt nog wel eens wat!
Weer heel iets nieuws geleerd zo even.
'k gebruikte 't al wel, alleen rammende op mijn tobo

Ik heb 't even zo aangepast dat na 't invullen van een datum in het veld "txbDatumGebeurtenis", gelijk de dag wordt ingevuld in "txbDag"

merci (we) ga(an) zo door!

Jarod

ps: misschien is de vraag van mij over "wegschrijven naar vestigingsnummer" ook wel een aardige voor je? (inclusief voorbeeld bestand btw)