Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


ændre datoformat
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5508 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg Emne: ændre datoformat
    Sendt: 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???
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
Til top



Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 596 		Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér maxzpad Citér  BesvarSvar Direkte link til dette indlæg Sendt: 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))
Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 596 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér maxzpad Citér  BesvarSvar Direkte link til dette indlæg Sendt: 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.
Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 596 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér maxzpad Citér  BesvarSvar Direkte link til dette indlæg Sendt: 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))
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5508 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg Sendt: 29.Apr.2024 kl. 08:44

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
Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 596 		Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér maxzpad Citér  BesvarSvar Direkte link til dette indlæg Sendt: 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))
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5508 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg Sendt: 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
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5508 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg Sendt: 29.Apr.2024 kl. 10:26
sådan blev resultatet
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
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk