DATA DO SISTEMA

ARTUR 31/01/2011 12:02:32
#363878
Bom dia !
Estou com problemas com relacao a data do sistema , pois alguma maquinas estao com um tipo de configuracao regional e outras estao com outra configuracao .
Como faco para alterar a configuracao regional do sistema via VB, para ficar igual pelo menos quando estiverem usando o sistema ?
Quando a configuracao regional esta em ingles a data fica m/d/yy e quando esta em portugues fica dd/mm/yyyy
Alguem pode ajudar?
NETMANIA 31/01/2011 12:05:34
#363880
Se for com VB6, única maneira que descobri para resolver este caso era alterando direto no registro as configurações regionais. Mesmo que você altere para um determinado usuário através de tela do Windows, os demais (caso existam), teram o mesmo problema.
PEGUDO 31/01/2011 12:42:02
#363888 Resposta escolhida
Cara eu fiz este exemplo.Veja se te serve:

Declare esta variável no seu código:

[txt-color=#0000f0]Dim[/txt-color] DaTaDeHoje [txt-color=#0000f0]As String [/txt-color]= Format(Date.Today,[txt-color=#e80000] [Ô]short date[Ô][/txt-color])

[txt-color=#007100][ô]Aqui é só um teste pra você ver como funciona a função abaixo,
[ô]Descomente para tornar a data como m/d/yy
[ô]DaTaDeHoje = [Ô]1/31/11[Ô][/txt-color]

DaTaDeHoje = TratarData(DaTaDeHoje)
________________________________________________________


[txt-color=#007100][ô]Coloque esta função num módulo ou onde você quiser[/txt-color]
[txt-color=#0000f0]Public Function[/txt-color] TratarData([txt-color=#0000f0]ByVal[/txt-color] QualData [txt-color=#0000f0]As String[/txt-color])
[txt-color=#0000f0]Dim[/txt-color] Vetor() [txt-color=#0000f0]As String[/txt-color] = Split(QualData, [txt-color=#e80000][Ô]/[Ô][/txt-color])

[txt-color=#0000f0]Select Case[/txt-color] QualData.Length
[txt-color=#0000f0]Case[/txt-color] 6, 7
[txt-color=#0000f0]If[/txt-color] Vetor(0).Length = 1 [txt-color=#0000f0]Then[/txt-color] Vetor(0) = [txt-color=#e80000][Ô]0[Ô][/txt-color] & Vetor(0)
[txt-color=#0000f0]If[/txt-color] Vetor(1).Length = 1 [txt-color=#0000f0]Then[/txt-color] Vetor(1) = [txt-color=#0000f0][Ô]0[Ô][/txt-color] & Vetor(1)
QualData = Vetor(1) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(0) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(2)
[txt-color=#0000f0]Case[/txt-color] 8 [txt-color=#0000f0]To[/txt-color] 10
[txt-color=#0000f0]If[/txt-color] Vetor(0).Length = 1 [txt-color=#0000f0]Then[/txt-color] Vetor(0) =[txt-color=#e80000] [Ô]0[Ô][/txt-color] & Vetor(0)
[txt-color=#0000f0]If[/txt-color] Vetor(1).Length = 1 [txt-color=#0000f0]Then[/txt-color] Vetor(1) = [txt-color=#e80000][Ô]0[Ô][/txt-color] & Vetor(1)
[txt-color=#0000f0]If[/txt-color] Vetor(2).Length = 4 [txt-color=#0000f0]Then[/txt-color] Vetor(2) = Strings.Right(Vetor(2), 2)
QualData = Vetor(0) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(1) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & Vetor(2)
[txt-color=#0000f0]End Select[/txt-color]
TratarData = QualData

[txt-color=#0000f0]Return[/txt-color] TratarData
[txt-color=#0000f0]End Function[/txt-color]


Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar