|
|
el que me diste vos lo pase asi
a=2007
b=6
c=30
d= "Valida"
e= "Invalida"
If a > 1900 And a < 3000 And b > 0 And b <= 12
If c <= 28 Or (c = 29 And b = 2 And ( a % 4 ) = 0) Or ;
(c = 31 And AllTrim( b ) $ "1.3.5.7.8.10.12") Or ;
(c = 30 And AllTrim( b ) $ "4.6.9.11")
?d
Else
?e
EndIf
EndIf
puse d y e como variable sino no sabia que era cMess valida y cMess Invalida
pero bue, venia bien hasta que probe con dias 30 y 31
me tira este error
Program error
Function argument value, type, or count is invalid
esto solo pasa si pongo dias 30 o 31, lo demas anda barbaro,
y otra cosa en ves de poner la funion alltrim, no se podria usar inlist
muchisimas gracias
|