Userform datums verkeerd om

[don42]

Hallo allemaal

ik zit met een eigenaardig iets

wil via een userform een datum invoeren
als voorbeeld geef ik 11-2-14 in dan wordt dat 2-11-14
lijkt wel of het kleinste getal voorop gezet wordt

doe ik 14-8-14 blijft het gewoon staan in 14-8-14

weet iemand hoe dat kan?

Don

 

[Warme bakkertje]

Met welke regel code zet je de datum op je werkblad ?
Speel eens met Format.
bv Range("A1") = Format(Textbox1.value, "dd/mm/yyyy")

 

[edmoor]

Hallo allemaal

ik zit met een eigenaardig iets

wil via een userform een datum invoeren
als voorbeeld geef ik 11-2-14 in dan wordt dat 2-11-14
lijkt wel of het kleinste getal voorop gezet wordt

doe ik 14-8-14 blijft het gewoon staan in 14-8-14

weet iemand hoe dat kan?

Don

VBA werkt met datums in de Amerikaanse notatie, dus Maand/Dag/Jaar. Wat je moet doen is door Rudi al aangegeven.

 

[sylvester-ponte]

wat doe in nu fout?
de ene keer wordt het omgekeerd en de andere keer niet.
en ik gebruik netjes Rudi's omzetting:

Range("A1") = Format(Textbox1.value, "dd/mm/yyyy")

 

[snb]

Je kunt beter gebruiken:

Range("A1")=format(textbox1.text,"yyyy-mm-dd")

of

Range("A1")=cdate(textbox1.text)

 

[sylvester-ponte]

dan wordt dit de winnaar: de eerste code van snb

= Format(TextBox1.Text, "yyyy-mm-dd")

deze loopt niet vast als je onzin in tikt :thumb:

 

[snb]

gebruik daarom geen tekstvakken voor de invoer van kalenderdata, maar een bijv. een combobox met geldige data,

If isdate(Textbox1.Text) then Range("A1")=cdate(textbox1.text)

 

[don42]

het werkt.. iedereen bedankt voor de support
heb deze gebruikt = Format(TextBox1.Text, "yyyy-mm-dd")
top
ga de vraag sluiten