Bom dia,

estou utilizando a seguinte função para mudar a definição da data do windows.Funciona bem no 95 97 98 ... mais nao funciona no xp e nem no MI alguem sabe como é.

Private Declare Function SetLocaleInfo Lib "kernel32" _
        Alias "SetLocaleInfoA" (ByVal Locale As Long, _
        ByVal LCType As Long, ByVal lpLCData As String) _
        As Boolean
Private Declare Function PostMessage Lib "user32" Alias _
        "PostMessageA" (ByVal hwnd As Long, ByVal wMsg _
        As Long, ByVal wParam As Long, ByVal lParam As _
        Long) As Long
Private Declare Function GetSystemDefaultLCID Lib _
        "kernel32" () As Long

Private Const LOCALE_SSHORTDATE As Long = &H1F
Private Const WM_SETTINGCHANGE As Long = &H1A
Private Const HWND_BROADCAST As Long = &HFFFF&

Private Sub Command1_Click()
  Dim dwLCID As Long

  dwLCID = GetSystemDefaultLCID()
  If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "dd/mm/yyyy") = False Then
    MsgBox "Erro na definição da data."
    Exit Sub
  End If
  PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End Sub

espero que esta dica ajude:
http://www.vbweb.com.br/dicas_visual.asp?Codigo=498&Classificacao=

Elger, quando preciso trabalhar com um formato de data, ja defino do LOAD do form inicial e a patir daí uso essa data no meu VBP, assim não me preocukpo com o formato que a data vai tar.....

 

public MinhaData as string '----------declara em um modulo pra todo projeto

MinhaData = format$(date, "dd/mm/yyyy")

 

espero que ajude....