ALTERAR FORMATO DE DATA DO WINDOWS

LORDAUTUNM 26/01/2010 09:28:51
#332837
Bom dia, procurei aqui no forum mas nao encontrei, normalmente os PC vem com o formato de data assim:
d/M/yyyy gostaria que o sistema ele conferisse se o formato esta em dd/mm/yyyy e caso nao esteja altere para o mesmo.

Alguem sabe se é possivel?
Valeu
LEANDRO 26/01/2010 10:46:59
#332853
Iniciar
Painel de Controle
Opções Regionais e de Idioma

Clique no Botão Personalizar
Clique na ABA Data
e la você troca
SINKERTEC 26/01/2010 11:01:17
#332856


Ae Leandro ele quer que o programa troque ...n ele

Lord...o que a gente tem aki ..é uma sintaxe para chamar a tela do Painel de Controle, serve?

Se servir

Call Shell([Ô]rundll32.exe shell32.dll,Control_RunDLL intl.cpl[Ô],
vbNormalFocus)
MARCELO.TREZE 26/01/2010 16:19:54
#332887
assim

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/mmm/yyyy[Ô])=False Then
    MsgBox [Ô]Erro na definição da data.[Ô]
    Exit Sub
  End If
  PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End Sub


em ,[Ô]dd/mmm/yyyy[Ô] coloque o formato que deseja e pronto
MARCOSLING 26/01/2010 16:34:06
#332889
Mas porquê vc quer alterar as configurações?
PASCOAL 28/01/2010 05:23:39
#332978
Ve se isso ajuda???
LEANDRO 03/02/2010 10:14:35
#333492
Estou com o mesmo problema do nosso amigo LORDAUTUNM,
as Soluções do Marcelo e do Pascoal, não tiveram exito nos meus testes.
Alguem pode nos ajudar ?
Tópico encerrado , respostas não são mais permitidas
Voltar