Ae galera precisava o seguinte saber como faço para verificar o formato da data nas configurações regionais tpw se esta d/m/aaaa ou e para poder alteralo.

 

 

Agradeço desde já os colegas.

NÃO SEI SE É BEM ISSO O QUE VC QUER, MAS SEGUE A BAIXO A LINHA DE PRG PARA VERIFICAR O FORMATO DA DATA NO SISTEMA E SE PRECISO CHAMAR O PAINEL DE CONTROLE:

    If Format(Date, "dd/mm/yyyy") <> CStr(Date) Then
        Msgbox "Para melhor utilização deste sistema, vá até ao Painel de Controle do seu computador e altere, na opção ' Configurações Regionais ' "
        rtn = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4", 5)
        G_Sair ' rotina p/encerrar a execução do programa
    End If

Valeu pela dica, é boa mas gostaria ainda de fazer o sistema alterar automático sem o usuário saber.

ZeuszZ, mudar as configuracoes nao é uma boa, tem programas que só rodam com uma determinado formato, se vc alterar como fica? se o usuario usar um programa desse e de uma hora pra outro der tilt? ele vai ficar doido, entao o melhor é vc formatar a data do micro numa variavel logo na inicializacao do aplicativo e usar quando preciso....(EU acho melhor)