USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Alterar formato de Data do Windows
Caruaru
PIRACICABA
SP - BRASIL
ENUNCIADA !
Postada em 23/01/2005 18:47 hs            
MISERICÓRDIA!!!!!
 
isso não me interessa!!!!!!!!!!!!!!!!!!!!!!!!!
 
quero ter acesso às configurações regionais para alterar o formato padrão da data do windows... já vi isso num exemplo... só que não gravei para mim...
 
ninguem sabe nada???
   
Thiago
não registrado
ENUNCIADA !
Postada em 24/07/2008 13:59 hs   
Bom dia em meu local de serviço surgiu uma dúvida durante uma discussão, em um texto, qual é o correto usar a data com barra ex: 12/12/2007 ou com pontos 15.07.2008. Gramaticamente qual é o correto?
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 24/07/2008 15:45 hs            
 
Uma api simples pra isto
 
inclua uma combo, um ComandButton e um Label, em seu projeto para fazer o teste
 
Option Explicit

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
    Label1.Caption = "Houve um erro ao definir o formato de data !"
  Else
    Label1.Caption = "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
  Label1.Caption = ""
End Sub
   
Juan Carlos R.A
não registrado
ENUNCIADA !
Postada em 23/09/2010 15:36 hs   
Caraca, é incrivel esse problema eu tinha postado e tbm não deu certo nenhum dessas dicas. ainda nao achei resposta ao problema. A ideia de Treze pode ser boã. poderia ao iniciar o sistema bloquear o acesso ate o usuario definir corretamente as configurações regionais. ou executar um bat para atualizar e corrigir as configurações;
   
Juan Carlos R.A
não registrado
ENUNCIADA !
Postada em 23/09/2010 15:42 hs   
essa função para concaternar ano + 20 pode não pq se o ano certo for 1998, iria ficar 2098. não existe.
   
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página