ALTERAR FORMATO DE DATA NO WINDOWS

HOSHIN 22/03/2012 13:44:06
#397942
Pessoal boa tarde.
Qual é o código para alterar o formato da data do sistema operacional Windows?

Exemplo: O formato que esta no sistema operacional é d/m/aa. Quando entrar no meu programa ele altomaticamente trocará o formato para dd/mm/aaaa.
Como faço isso?
Fico no aguardo das respostas.
Obrigado a todos.
MARCELO.TREZE 22/03/2012 13:56:15
#397944 Resposta escolhida
minha dica não é vc trocar o formato de data do windows, sim isto é possivel, mas acho que vai carregar seu sistema um pouco, o correto é vc formatar a data na hora da leitura.

ex:

Dim MinhaData As date
MinhaData = Format(Date, [Ô]dd/mm/yyyy[Ô])

pronto a data do windows pode estar no formato que quizer
HOSHIN 22/03/2012 14:03:16
#397945
Marcelo boa tarde
Mais é que realmente quero mudar a data do windows.
Como faço isso?
Obrigado a todos.
MARCELO.TREZE 22/03/2012 14:37:52
#397949
testa ai, coloque um comandbutton e um combo no form e cole

Private Const LOCALE_SSHORTDATE = &H1F
Private Declare Function GetSystemDefaultLCID Lib [Ô]kernel32[Ô] () As Long
Private Declare Function SetLocaleInfo Lib [Ô]kernel32[Ô] Alias [Ô]SetLocaleInfoA[Ô] (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean

Private Sub Command1_Click()
  Dim lngLocale As Long
  lngLocale = GetSystemDefaultLCID()
  If SetLocaleInfo(lngLocale, LOCALE_SSHORTDATE, Combo1.Text) = False Then
    msgbox [Ô]Houve um erro ao definir o formato de data ![Ô]
  Else
    msgbox [Ô]Formato de data atualizado para [Ô] & Combo1.Text & [Ô] com sucesso ![Ô]
  End If
End Sub

Private Sub Form_Load()
  With Combo1
    .AddItem [Ô][Selecione um formato][Ô]
    .AddItem [Ô]MM/dd/yyyy[Ô]
    .AddItem [Ô]dd/MM/yyyy[Ô]
    .AddItem [Ô]MM-dd-yyyy[Ô]
    .AddItem [Ô]dd-MM-yyyy[Ô]
    .ListIndex = 0
  End With
End Sub
HOSHIN 22/03/2012 15:33:51
#397962
Obrigado Marcelo.
Tópico encerrado , respostas não são mais permitidas
Voltar