---
title: "svenska och engelska inställningar!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/70889-svenska-och-engelska-inställningar"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "theguru"
published: "2003-03-12T12:36:24.000Z"
updated: "2003-03-13T10:10:15.000Z"
replies: 4
views: 271
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/70889-svenska-och-engelska-inställningar"
---

# svenska och engelska inställningar!

## #1 — theguru, 2003-03-12T12:36Z

Jag undar om det finns nåt sätt skriva ut datum i engelskt format
fast man har svenska intställningar?

Jag har till exempel en inställning där 
Format(mrecTmp("FROMDATE").Value, "ddmmmyy")
ger resultatet 
01okt03

Jag  vill få ut  01oct03 fast jag har svenskt i regional settings
nån som vet om jag kan formatera om det så?

Permalänk: https://www.webforum.nu/p/70889

## #2 — niko, 2003-03-12T14:39Z

Om vi ska vara *väldigt* generella och hantera även andra språkinställningar:

```
Private Declare Function GetDateFormat Lib "kernel32.dll" Alias "GetDateFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, lpDate As SYSTEMTIME, ByVal lpFormat As Any, ByVal lpDateStr As String, ByVal cchDate As Long) As Long
 
Private Type SYSTEMTIME
   wYear As Integer
   wMonth As Integer
   wDayOfWeek As Integer
   wDay As Integer
   wHour As Integer
   wMinute As Integer
   wSecond As Integer
   wMilliseconds As Integer
End Type
 
Private Function minEgenDatumFormatering(LCID As Long, myDate As Date) As String
   Dim ST As SYSTEMTIME, FDate As String * 256, Retval As Long
    With ST
        .wDay = Day(myDate)
        .wMonth = Month(myDate)
        .wYear = Year(myDate)
        .wHour = Hour(myDate)
        .wMinute = Minute(myDate)
        .wSecond = Second(myDate)
    End With
   Retval = GetDateFormat(LCID, 0&, ST, "ddMMMyy", FDate, Len(FDate))
   minEgenDatumFormatering  = Left$(FDate, Retval)
End Function
```

Du anropar sedan med:

```
minEgenDatumFormatering(1033, mrecTmp("FROMDATE").Value)
```

(1003=Engelska, 1053=Svenska,  1035=Finska osv ..)

Permalänk: https://www.webforum.nu/p/976326

## #3 — theguru, 2003-03-12T15:52Z

Tack jag provar detta är även tacksam om det finns eklare möjligheter ;-)

Permalänk: https://www.webforum.nu/p/976402

## #4 — niko, 2003-03-12T16:15Z

Ja, självklart finns det enklare varianter. 
Om du förutsätter att maskinen har normala svenska inställningar så kan du ju fulkoda:

```
s = Format(mrecTmp("FROMDATE").Value, "ddmmmyy")
If Mid(s, 3, 3) = "okt" Then Mid(s, 3, 3) = "oct"
' osv
```

Poängen med mitt exempel var att det inte förutsätter nåt om maskinen det körs på eller det språk du vill konvertera till.

Permalänk: https://www.webforum.nu/p/976416

## #5 — theguru, 2003-03-13T10:10Z

funkar fint

Permalänk: https://www.webforum.nu/p/976954

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/70889-svenska-och-engelska-inställningar