Quem sabe uma função para alterar o formato da data do windows (XP)

naum consegui achar nada.

Com esta função vc vai alterar a configuração regional do windows

 

Const LOCALE_SSHORTDATE = &H1F

 

Private Function AlteraConfiReg()
    Dim Symbol As String
    Dim iRet1 As Long
    Dim iRet2 As Long
    Dim lpLCDataVar As String
    Dim Pos As Integer
    Dim Locale As Long
   
    Locale = GetUserDefaultLCID()
    'verifica formato de data abreviada
    iRet1 = GetLocaleInfo(Locale, LOCALE_SSHORTDATE, lpLCDataVar, 0)
    Symbol = String$(iRet1, 0)
   
    iRet2 = GetLocaleInfo(Locale, LOCALE_SSHORTDATE, Symbol, iRet1)
    Pos = InStr(Symbol, Chr$(0))
    If Pos > 0 Then
        If Left$(Symbol, Pos - 1) <> "dd/MM/yyyy" Then
            iRet = SetLocaleInfo(Locale, LOCALE_SSHORTDATE, "dd/MM/yyyy")
        End If
    End If

Vá em Painel de Controle, Configurações Regionais.

 

vlu//