In een Userform een textvak instellen als datum

[mnemonic]

Hallo allemaal,
Ik heb een vraagje.
Bestaat er ook een mogelijkheid om in een tekstvak die op een Userform staat alleen dag en maand in te vullen en dat het dan omgezet wordt naar dag maand en jaar? (25-4 moet dan 25-04-16 worden)
Jan

 

[Ginger]

Maak een aparte TextBox voor de dag en de maand. Dan kan je via date alle alles zo invullen...

 

[sylvester-ponte]

en als je bvb 2 januari invult moet het dan automatisch 2017 worden ?
en 31 juni moet dat dan automatisch 1 juli worden?

 

[mnemonic]

als je gewoon in excel in een cel 25-4 tikt komt er (als je de eigenschappen op datum hebt staan) 25-04-16 te staan.
Ik was benieuwd of dit ook in TextBox kon.

 

[edmoor]

Een Textbox is precies wat het zegt. Als er wat in staat is puur tekst. Dus een getal is niet een Integer, een Byte of een Double en als je qua uiterlijk een datum intikt is het geen Date. Alles wat je op dat gebied zou willen zou je zelf moet programmeren in VBA.

 

[mnemonic]

Duidelijk, dank je

 

[Warme bakkertje]

Private Sub TextBox1_AfterUpdate()
    TextBox1.Text = Format(TextBox1.Text & "-" & Year(Date), "dd-mm-yy")
End Sub

 

[mnemonic]

Warme bakkertje BEDANKT.
Het werkt super.
Hier ben ik heel blij mee.
Jan