VBA-WORD; 01012002 til 1. januar 2002

'txtDate er den tekstbox der indeholder "01012002"
Dim dDate as Date
dDate=DateSerial(mid(txtDate.Text,5,4),mid(txtDate.Text,1,2),mid(txtDate.Text,3,2))
Msgbox dDate

/Jennemaan

Forslaget fungerer, der mangler bare en enkelt ting;

Den forslåede kode, omdanner 01012002 til 01-01-2002. Det er ikke helt hvad jeg skal bruge. Jeg behøver en kode der omdanner 01012002 til 1 (uden 0). januar (bogstaver) 2002; altså 1. januar 2002.

Dim dDate as Date
dDate=DateSerial(mid(txtDate.Text,5,4),mid(txtDate.Text,1,2),mid(txtDate.Text,3,2))
Msgbox Format(dDate,"d. mmmm yyyy")
/Jennemaan

jennemaan> Koden danner 051002 om til 10. maj 2002, det skulle jo være 5. maj 2002. Hvordan reformatere jeg koden så den læses rigtigt?

nicolaus

hvordan står din dato?

er det ddmmyyyy eller mmddyyyy?

Du skal i givet fald bytte om på 2. og 3. parameter til dateserial.

/Jennemaan

Tak for hjælpen. Så er den der.

nicolaus