Ændre på kort datoformat i registreringsdatabasen

Kig på API SetLocaleInfo

Is it possible? I thought that it would be necessary to do that through regional settings.
But then it seems the regisry is used for most things today!

Indstillingerne findes under HKEY_CURRENT_USER\\Control Panel\\International her kan du bare ændre sShortDate Key\'en til et format der passer dig.

>> jper

Mit spørgsmål gik på hvordan jeg ændrer indstillingen vha. kode !!!!!

>> Benny

Kan du ikke uddybe ??

Declare Function SetLocaleInfo Lib \"kernel32\" Alias \"SetLocaleInfoA\" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Private Declare Function GetThreadLocale Lib \"kernel32\" () As Long

Private Const LOCALE_SSHORTDATE = &H1F

\'LOCALE_SSHORTDATE
\'Short date formatting string for this locale. The string can consist of a combination of day, month, and year format pictures defined in Day, Month, Year, and Era Format Pictures table in National Language Support Constants. The maximum number of characters allowed for this string is 80.

buffer=\"dd/mm/yyyy\"
SetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, Buffer, Len(Buffer))

Fik du løst dit problem?

Vender tilbage med det i dag ! ;-))

:-/

Long day ;-)

du her ret - jeg har ikke glemt dig ;-)

Jeg har dog måttet prioritere en del andre ting i udviklingen af mit system.

Jeg arbejder så hurtigt jeg kan !

>> Benny

Ja - jeg ved det er længe siden, - men nu har jeg fået tid til at gøre noget ved dato formatet MEN

Kan du ikke fortælle mig lidt mere om hvor koden skal side og hvordan jeg bruger den iøvrigt

Det ville være en stor hjælp ??

side = sidde ;-)

Du kan sætte det ind i et class module som properties

Public Property Get ShortDateFormat() As String
\'used when retrieving value of a property, on the right side of an assignment.
\'Syntax: Debug.Print X.ShortDateFormat
    On Error Resume Next
    Buffer = String(GetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, Buffer, 0), \" \")
    Fetched = GetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, Buffer, Len(Buffer))
    If Fetched > 0 Then ShortDateFormat = Mid(Buffer, 1, Fetched - 1)
End Property
Public Property Let ShortDateFormat(ByVal sFormat as String)
\'used when retrieving value of a property, on the right side of an assignment.
\'Syntax: Debug.Print X.ShortDateFormat
    On Error Resume Next
    SetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, sFormat, Len(sFormat))   
End Property

>> Benny

Jeg er ikke særlig stærk i API eller classes.

Jeg har lavet en classmodule der hedder \"clsDatoHåndtering\" og har min hovedform der hedder
\"frmCVM\" som programmet starter med så...

Hvor skal 1) og 2) sidde i min kode

1)
Declare Function SetLocaleInfo Lib \"kernel32\" Alias \"SetLocaleInfoA\" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Private Declare Function GetThreadLocale Lib \"kernel32\" () As Long

Private Const LOCALE_SSHORTDATE = &H1F

2)
Public Property Get ShortDateFormat() As String
\'used when retrieving value of a property, on the right side of an assignment.
\'Syntax: Debug.Print X.ShortDateFormat
    On Error Resume Next
    Buffer = String(GetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, Buffer, 0), \" \")
    Fetched = GetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, Buffer, Len(Buffer))
    If Fetched > 0 Then ShortDateFormat = Mid(Buffer, 1, Fetched - 1)
End Property
Public Property Let ShortDateFormat(ByVal sFormat as String)
\'used when retrieving value of a property, on the right side of an assignment.
\'Syntax: Debug.Print X.ShortDateFormat
    On Error Resume Next
    SetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, sFormat, Len(sFormat))   
End Property

På forhånd tak og jeg forhøjer lige indsatsen

1) erklæres private i clsDatoHåndtering

2) indsættes cut\'n paste i clsDatoHåndtering.

På frmCVM initierer du en ny clsDatoHåndtering og henter/sætter ShortDateFormat via dens property.

Som antydet ! Jeg skal have det med skeer

Vil du være sød at skrive koden der skal til i \"frmCVM\"?

OTOH:

private sub Command1_click
  dim cDT as clsDatoHåndtering
  set cDT = new clsdatohåndtering
  cDT.ShortDateFormat = \'yyyy/mm/dd\'
  set cDT = nothing
end sub

OK

Nu ser min kode i frmCVM således ud:

Dim cDT As clsDatoFormat
    Set cDT = New clsDatoFormat
    cDT.ShortDateFormat = \"DD-MM-åååå\"
    Set cDT = Nothing

clsDatohåndtering hedder nu clsDatoFormat !!!

Men det virker ikke

Meningen var jo at sikre at datoformatet på pc\'en er \"DD-MM-åååå\" !!

lige et spørgsmål

Hvorfor er der tilsyndeladende en parameter for meget med (Len(sFormat) i:

SetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, sFormat, Len(sFormat))   

Tilsyndeladende = tilsyneladende

Fjern \", Len(sFormat)\"

er gjort men virker stadig ikke

datoformatet er stadig \"DD-MM-åå\" ;-(((

Skal paranteserne omkring...

SetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, Buffer, Len(Buffer))

...ikke fjernes???

Det kan du gøre.

Eller sætte Call foran

Har du ellers en ide om hvad der der galt??

koden...

Dim cDT As clsDatoFormat
    Set cDT = New clsDatoFormat
    cDT.ShortDateFormat = \"yyyy/mm/dd\"
    Set cDT = Nothing

...sidder i form_load af frmCVM! Er det rigtigt??

når jeg sætter et breakpoint i koden og \"følger\" med køres kun igennem...

Public Property Let ShortDateFormat(ByVal sFormat As String)
\'used when retrieving value of a property, on the right side of an assignment.
\'Syntax: Debug.Print X.ShortDateFormat
    On Error Resume Next
    SetLocaleInfo GetThreadLocale, LOCALE_SSHORTDATE, sFormat
End Property

...Er det rigtigt??

Hvad skal ...

Public Property Get ShortDateFormat() As String
\'used when retrieving value of a property, on the right side of an assignment.
\'Syntax: Debug.Print X.ShortDateFormat
    On Error Resume Next
    buffer = String(GetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, buffer, 0), \" \")
    Fetched = GetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, buffer, Len(buffer))
    If Fetched > 0 Then ShortDateFormat = Mid(buffer, 1, Fetched - 1)
End Property

...så bruges til??

>> Benny - hvis du stadig er der så hjælp mig lige færdig. Kan du købes ;-) ;-)

Get -delen bruges til at hente fra windows

Prøv at kalde med sFormat & chr$(0)

så den bliver null-termineret

altså...

SetLocaleInfo GetThreadLocale, LOCALE_SSHORTDATE, sFormat & Chr$(0)

???

Yep

Du kan evt. lave en MsgBox cDT.ShortDateFormat efter kaldet til cDT.ShortDateFoamt=...

hjælper ikke

hmm... :-|

hvis jeg skriver...

MsgBox cDT.ShortDateFormat

...efter kaldet for jeg at vide at sub\'en...

GetLocaleInfo

...ikke er defineret.

Indsæt den her

Private Declare Function GetLocaleInfo Lib \"kernel32\" Alias \"GetLocaleInfoA\" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

i clsDatoFormat sammen med den anden Declare function

stadig samme fejlmeddelse hvilket da er mærkeligt !

buffer og Fetched er ikke erklæret?? skal de ikke det??

Jo. Buffer as string og Fetched as long

OK - så får jeg det aktuelle datoformat tilbage, men jeg kan stadig ikke ændre det. ER der noget galt med...


Public Property Let ShortDateFormat(ByVal sFormat As String)
\'used when retrieving value of a property, on the right side of an assignment.
\'Syntax: Debug.Print X.ShortDateFormat
    On Error Resume Next
    Call SetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, sFormat & Chr$(0))
    \'MsgBox sFormat & Chr$(0)

End Property

...Hvorfor skal der ikke sendes en parameter med over fra ...

cDT.ShortDateFormat = \"DD-MM-åååå\"

...i frmcvm

Nu er vi tæt på ...

Jeg får nu det rigtige format tilbage, nemlig:

DD-MM-YYYY

MEN når jeg så kører programmet er datoen lige pludselig:

DD-11-2001

Hvorfor skriver den DD og ikke 15?

jeg forhøjder gerne indsatsen hvis du lige vil hjælpe mig færdig!

Ifølge MS Platform SDK, så skal d\'erne være med småt, M\'erne med stort og y\'erne med småt.

Jeg prøvede lige på min:

Opret et projekt, standard exe.

På form1 indsættes en listbox (bibehold navnet List1).

I kodeview indsættes følgende:

Option Explicit

Dim cCPL As clsControlPanel

Private Sub Form_Load()
    Set cCPL = New clsControlPanel
    With List1
        .Clear
        .AddItem \"dd-MM-yy\"
        .AddItem \"dd-MM-yyyy\"
        .AddItem \"MM-dd-yy\"
        .AddItem \"MM-dd-yyyy\"
        .AddItem \"yy-MM-dd\"
        .AddItem \"yyyy-MM-dd\"
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set cCPL = Nothing
End Sub

Private Sub List1_Click()
    If List1.ListIndex < 0 Then Exit Sub
    cCPL.ShortDateFormat = List1.List(List1.ListIndex)
    Me.Caption = cCPL.ShortDateFormat
End Sub

Tilføj et Class modul, navngiv det clsControlPanel

I code view indsætter du følgende:

Option Explicit

Private Const LOCALE_SSHORTDATE = &H1F

Private Declare Function GetThreadLocale Lib \"kernel32\" () As Long
Private Declare Function GetLocaleInfo Lib \"kernel32\" Alias \"GetLocaleInfoA\" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function SetLocaleInfo Lib \"kernel32\" Alias \"SetLocaleInfoA\" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Private sBuffer As String
Private lFetched As Long
Private lNeedLen As Long

Public Property Get ShortDateFormat() As String
    lNeedLen = GetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, sBuffer, 0)
    sBuffer = String$(lNeedLen, 0)
    lFetched = GetLocaleInfo(GetThreadLocale, LOCALE_SSHORTDATE, sBuffer, Len(sBuffer))
    ShortDateFormat = Left$(sBuffer, lFetched - 1)
End Property
Public Property Let ShortDateFormat(sFormat As String)
    SetLocaleInfo GetThreadLocale, LOCALE_SSHORTDATE, sFormat & Chr$(0)
End Property


Køres programmet, vil datoformatet blive sat til det format, du vælger i listboxen. Det virker i min - og Windows registrerer ændringen i kontrolpanelets regionale indstillinger. Var denne åben på skiftetidspunktet, ændres det først efter en nedlukning af regionale indstillinger.

Tak Tak - nu virker det

d\'erne skulle skrives med småt !

Jeg forhøjer og si\'r tak for hjælpen !!