TEXTBOX
Olá...
Como faço para ter somente uma (textbox) para digitar a data e informar na label o signo?
O exemplo abaixo mostrar 3 textbox.
Private Sub cmdCalcular_Click()
Dim Dia, Mes, Ano As Integer
Dia = Val(txtDia)
Mes = Val(txtMes)
Ano = Val(txtAno)
If Dia = 0 And Mes = 0 And Ano = 0 Then
lblsigno.Caption = [Ô]Valor inválido. Digite o seu aniversário para saber seu signo![Ô]
Else
If (Dia < 1 Or Dia > 31) And (Mes < 1 Or Mes > 12) Then
[ô]......................etc.
Como faço para ter somente uma (textbox) para digitar a data e informar na label o signo?
O exemplo abaixo mostrar 3 textbox.
Private Sub cmdCalcular_Click()
Dim Dia, Mes, Ano As Integer
Dia = Val(txtDia)
Mes = Val(txtMes)
Ano = Val(txtAno)
If Dia = 0 And Mes = 0 And Ano = 0 Then
lblsigno.Caption = [Ô]Valor inválido. Digite o seu aniversário para saber seu signo![Ô]
Else
If (Dia < 1 Or Dia > 31) And (Mes < 1 Or Mes > 12) Then
[ô]......................etc.
colega é simples, para não alterar muito o que vc já tem.
coloque apenas um textbox com o nome de txtDataNascimento, agora proceda assim
coloque apenas um textbox com o nome de txtDataNascimento, agora proceda assim
Private Sub cmdCalcular_Click()
Dim Dia, Mes, Ano As Integer
Dia = Day(CDate(txtDataNascimento))
Mes = Month(CDate(txtDataNascimento))
Ano = Year(CDate(txtDataNascimento))
If isDate(txtDataNascimento) = False Then
lblsigno.Caption = [Ô]Valor inválido. Digite o seu aniversário para saber seu signo![Ô]
Else
If (Dia < 1 Or Dia > 31) And (Mes < 1 Or Mes > 12) Then
Tópico encerrado , respostas não são mais permitidas