Postada em 26/04/2011 22:05 hs
Pessoal para quem tem problemas com o formato da configuração regional do Win, vejam a dica, que deve ser no formulário inicial:
Private Declare Function SetLocaleInfo& Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale&, ByVal LCType&, ByVal lpLCData$)
Private Declare Function GetLocaleInfo& Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale&, ByVal LCType&, ByVal lpLCData$, ByVal cchData&)
'obter lingua do usuário
Private Declare Function GetUserDefaultLangID% Lib "kernel32" ()
Dim iLINGUAGEM
Dim sVERQUAL As String * 255, sMILATUAL$, sVIRG$
'encontrar idioma do sistema
iLINGUAGEM = GetUserDefaultLangID
'verificar bug do windows em exibir a casa decimal
sMILATUAL = GetLocaleInfo(iLINGUAGEM, &HF, sVERQUAL, 225)
sMILATUAL = Left$(sVERQUAL, sMILATUAL - 1)
sVIRG = Mid$(Format(1.32, "0.00"), 2, 1)
If sVIRG = sMILATUAL Then
SetLocaleInfo& iLINGUAGEM, &HE, ","
SetLocaleInfo& iLINGUAGEM, &HF, "."
End If
'arrumar formato da data no windows
If CStr(Date) <> Format(Date, "dd/mm/yyyy") Then
SetLocaleInfo& iLINGUAGEM, &H1F, "dd/MM/yyyy"
End If
Isto ai, me resolveu muitos problemas, principalmente quando o Usuário fica fuçando.
vlu//
|
