Print side | Luk vindue

ændre datoformat

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=5076
Udskrevet den: 08.Sep.2024 kl. 02:32


Emne: ændre datoformat
Besked fra: Bjarnehansen
Emne: ændre datoformat
Posteringsdato: 28.Apr.2024 kl. 21:12
Hej
Jeg har dette lille ark som virker godt men hvordan får jeg lavet det om til dansk dato format???

uploads/397/hvordan_beregnes_alder_før_1-1-1900_2024-04-28_21-11-59.xlsm" rel="nofollow - uploads/397/hvordan_beregnes_alder_før_1-1-1900_2024-04-28_21-11-59.xlsm


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK



Svar:
Besked fra: maxzpad
Posteringsdato: 29.Apr.2024 kl. 08:27
Hej Bjarne

Er det noget som dette, du er ude efter:
=INDEKS(TEKST(TEKSTSPLIT(A3;"-");"00");1;2)&"-"&INDEKS(TEKST(TEKSTSPLIT(A3;"-");"00");1;1)&"-"&INDEKS(TEKSTSPLIT(A3;"-");1;3)

Der bliver blot flyttet rundt på "dato-delene", men datatypemæssigt er det stadig tekster.


Besked fra: maxzpad
Posteringsdato: 29.Apr.2024 kl. 08:32
Eller lidt kortere:
=LET(dt;TEKSTSPLIT(A3;"-");INDEKS(TEKST(dt;"00");1;2)&"-"&INDEKS(TEKST(dt;"00");1;1)&"-"&INDEKS(dt;1;3))


Besked fra: Bjarnehansen
Posteringsdato: 29.Apr.2024 kl. 08:44
uploads/397/hvordan_beregnes_alder_før_1-1-1900.3.xlsm" rel="nofollow - uploads/397/hvordan_beregnes_alder_før_1-1-1900.3.xlsm

den tror jeg ikke jeg kan bruge da det er i funktionen Agefunc() der skal ændres noget efter hvad jeg kan se så jeg ikke skal taste datoerne i us format



-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: maxzpad
Posteringsdato: 29.Apr.2024 kl. 09:12
I funktionen Private Function GetDate har jeg blot byttet om på D (dag) og M (måned).
Så lader det til at fungere med dansk datoformat.

    D = CLng(Left(DateStr, I - 1))
    M = CLng(Mid(DateStr, I + 1, InStr(I + 1, DateStr, "-") - I - 1))



Besked fra: Bjarnehansen
Posteringsdato: 29.Apr.2024 kl. 10:02
tak det var ikke så svært når man bare ved det....Handshake


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Bjarnehansen
Posteringsdato: 29.Apr.2024 kl. 10:26
sådan blev resultatet

uploads/397/hvordan_beregnes_alder_før_1-1-1900_version_2.xlsm" rel="nofollow - uploads/397/hvordan_beregnes_alder_før_1-1-1900_version_2.xlsm


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK



Print side | Luk vindue