Renan Hen
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 04/11/2008 11:13 hs
dim datanasc, datainicial
datainicial = 2008
datanasc = inputbox(teste)
if datanasc > datainicial then
msgbox "Data invalida"
else
res = datainicial - datanasc
msgbox "Voce tem " & res & "anos"
end if
Que que eu to fazendo de errrado?
para tudo aparece data invalida
|
|
|
|
|
|
|
|
Postada em 04/11/2008 11:24 hs
Faltava colocar um "CINT" na datanasc, para transforma-la em numero.
___
Private Sub Form_Load()
Dim datanasc As Integer
Dim res As Integer
Dim datainicial As Integer
'
datainicial = 2008
datanasc = InputBox(teste)
'
If CInt(datanasc) > datainicial Then
MsgBox "Data invalida"
Else
res = datainicial - datanasc
MsgBox "Voce tem " & res & " anos"
End If
'
End Sub
|
|
|
|
Renan Hen
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/11/2008 11:40 hs
Thank you
só usei o cint porque estou compilando em vbs
|
|
|
|
|
|
Postada em 04/11/2008 11:44 hs
pra que serve o Cint falando nisso?
|
|
|
|
|
|
Postada em 04/11/2008 11:48 hs
CInt -> Convert to Int
Converte o valor que vc passou para inteiro. Mas se vc passar um valor não númerico, vai dar erro.
|
|
|
|
Renan Hen
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/11/2008 11:50 hs
certo valeu
colei assim e deucerto
dim datanasc, datainicial, res
datainicial = 2008
datanasc = inputbox(teste)
if datanasc > datainicial then
msgbox "Data invalida"
else
res = datainicial - datanasc
msgbox "Voce tem " & res & "anos"
end if
nao consigo declarar de que tipo é as dim no VBS
|
|
|
|
