---

Hej NG

Jeg har et problem med formatering af dato. Når den forlader linje 8 har
datoen "9.1.2007" ændret sig til "26-12-4396"


1 Private Sub frmModtager_exit(ByVal Cancel As MSForms.ReturnBoolean)
2 Dim aDato

3 If Not IsDate(Replace(txtDato.Text, ".", "-")) Then
4 Cancel = True
5 MsgBox prompt:="Det er ikke en gyldig dato", buttons:=vbCritical
6 End If
7 aDato = Format(txtDato.Value, "d.M.yyyy")
8 txtDato.Value = aDato 'Format(aDato, "d.M.yyyy")

9 End Sub

Er der nogen, der kan hjælpe?

mvh
eva

---

Eva Madsen wrote:
> Hej NG
>
> Jeg har et problem med formatering af dato. Når den forlader linje 8 har
> datoen "9.1.2007" ændret sig til "26-12-4396"
>
>
> 1 Private Sub frmModtager_exit(ByVal Cancel As MSForms.ReturnBoolean)
> 2 Dim aDato
>
> 3 If Not IsDate(Replace(txtDato.Text, ".", "-")) Then
> 4 Cancel = True
> 5 MsgBox prompt:="Det er ikke en gyldig dato", buttons:=vbCritical
> 6 End If
> 7 aDato = Format(txtDato.Value, "d.M.yyyy")
> 8 txtDato.Value = aDato 'Format(aDato, "d.M.yyyy")
>
> 9 End Sub
>
> Er der nogen, der kan hjælpe?

Måske - datoformater er altid tricky ;-(

Men er der en grund til, at du deklarerer variablen aDato uden
typeangivelse?
Så bliver den formentlig i 7 formatteret som 'date', og så hjælper al
din formattering ikke en dyt. Min erfaring er, at det ofte er bedst at
køre variablen som tekst; så har man mere styr over indholdet.