svenska och engelska inställningar!

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 ..)

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

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.

funkar fint