|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Trabalhando com datas de 4 dígitos em todo o form. AA para AAAA
|
 |
|
|
|
Postada em 14/7/2007 por RMI@
rminet@hotmail.com
********* Coloque a rotina abaixo em um módulo *****************
' coloca todas as datas de um formulário como 4 digitos no ano
Public Function data4dig(NomeForm As Form)
Dim data2 As String
Dim dia As String
Dim mes As String
Dim ano As String
Dim Controle As Control
For Each Controle In NomeForm.Controls
' maskedbox
If TypeOf Controle Is MaskEdBox Then
If Controle.PromptInclude = True Then
Controle.PromptInclude = False
data2 = Controle.Text
Controle.PromptInclude = True
Else
data2 = Controle.Text
End If
If Left(data2, 1) = "9" Then ' se o usuario pressionar 9 = data atual
Controle.Text = Format(Date, "dd/mm/yyyy")
Else
If Len(data2) = 4 Or Len(data2) = 6 Or Len(data2) = 7 Then
dia = Left(data2, 2)
mes = Left(data2, 4)
mes = Right(mes, 2)
If Len(data2) = 4 Then
ano = Format(Date, "yyyy")
Else
If Len(data2) = 6 Then
ano = Right(data2, 2)
Else
ano = Right(data2, 3)
End If
End If
data2 = dia & "/" & mes & "/" & ano
data2 = Format(data2, "dd/mm/yyyy")
Controle.Text = data2
End If
End If
End If
Next Controle
End Function
************** Para chamar coloque o codigo abaixo em cada form ******
Ex:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
data4dig Me
End If
end sub
* OBS: o código pode ser melhorado, é claro!
Abraços!!!
|
|
|
|
|
