Omvendte engelske datoer

Det er fordi du skriver tallene i forkert rækkefølge...
Du skriver 01-10-04 i formodning om at der er DD-MM-ÅÅ, men engelsk format er MM-DD-ÅÅ måned dag år... derfor ska du du skrive 10-01-04 for at få den rigtige.. ;o)

Hov der var jeg lige for hurtig... læste ikke dit spørgsmål ordentligt... Du skriver jo at du vælger en dato ikke taster.. Beklager..

Du har en del åbne spørgsmål. Lukker du lige nogle af dem?

Kontroller Regionale indstillinger for dato / tid i kontrolpanelet.

Kan man ikke gøre det uden at pille ved kontrolpanelet?

Du får et svar når du har gjort noget ved dine åben spørgsmål *S*

Den form du indsætter datoen i, er det et formularfelt eller er det en dialogboks?

Dialogboks.

Er det i dialogboksen du har problemet eller er det ved indsættelse i dokumentet

Når man i dialogboksens kalenderfunktion vælger en dato, hvor dagen <= 12 laver den måneden om til dagen i dokumentfeltet, som i eksemplet i åbningsspørgsmålet.

Dokumenfeltet hedder således: {DOCPROPERTY "Dato" \@ "d MMMM YYYY" \* MERGEFORMAT}

Jeg har haft samme problem og løste det ved at indsætte et formularfelt af typen Dato og spørge på om det er engelsk eller dansk dato og så kører nedenstående makro:

Select Case strSprog
    Case "DK"
        'Sætter sprog til dansk
        Selection.WholeStory
        Selection.LanguageID = wdDanish
        Selection.NoProofing = False
        Application.CheckLanguage = True
       
        'Formaterer dato til dansk dato
        If ActiveDocument.Bookmarks.Exists("Dato") = True Then

            Selection.GoTo What:=wdGoToBookmark, Name:="Dato"
            With Selection.FormFields(1)
                .Name = "Dato"
                .Enabled = False
                With .TextInput
                    .EditType Type:=wdCurrentDateText, Default:="", Format:= _
                        "d. MMMM yyyy"
                    .Width = 0
                End With
            End With
        End If
       
    Case "UK"
        'Sætter sprog til engelsk
        Selection.WholeStory
        Selection.LanguageID = wdEnglishUS
        Selection.NoProofing = False
        Application.CheckLanguage = True
       
        'Formaterer dato til engelsk dato
        If ActiveDocument.Bookmarks.Exists("Dato") = True Then
            Selection.GoTo What:=wdGoToBookmark, Name:="Dato"
            With Selection.FormFields(1)
                .Name = "Dato"
                .Enabled = False
                .OwnStatus = False
                With .TextInput
                    .EditType Type:=wdCurrentDateText, Default:="", Format:= _
                        "MMMM d, yyyy"
                    .Width = 0
                End With
            End With
        End If
End Selec

Nu er mine skabeloner enten danske eller engelske.
Jeg kunne vel bruge f.eks. dokumentets brugerdefinerede egenskaber, og her betegnelsen 'sprog' til at beskrive om det er tale om DK eller UK, så jeg ikke behøver at spørge brugeren.

Når jeg skrive "spørge", så mener jeg bare: "finde ud af, hvilke sprog der skal vælges" :-)

Og du har ganske ret - det vil være helt naturligt at vælge at sætte dokumentets brugerdefinerede egenskab "sprog" til f.eks. DK eller UK, når du allerede ved det.

Det er egentlig lidt skummelt. Alle de engelske skabeloner, vi har ændret fra at hedde f.eks. "January 30, 2004" til "30 January 2004" står nu som "January 30, 2004" til trods for at feltet hedder sådan:
{DOCPROPERTY "Dato" \@ "d MMMM YYYY" \* MERGEFORMAT}

Betyder det at det nu virker?

Nej, men at jeg ikke har haft tid til at teste.

I DOCPROPERTY står dato som tekst og ikke Date.

Jeg har slet ikke en DOCPROPERTY, der hedder "Dato" hmmm

Kan jeg få din kode at se? Så kan jeg måske bedre gennemskude det..

Har du testet mit forslag til løsning?

Fik du svar på dit spørgsmål?

Det fungerer tilsyneladende på XP maskiner.