ayuda
quiero cear un programa quelea un numero y que imprima si es >, < o = a 1000
O.K.
Talves la mejor forma de hacerlo es usando una bifurcacion triple:
Public function Imprime( lngVal as long) as string
if lngval = 1000 then
Imprime = lngval & \\\" es igual a 1000\\\"
elseif lngVal > 1000 then
Imprime = lngVal & \\\" es mayor que 1000\\\"
elseif lngVal < 1000 then
Imprime = lngVal & \\\" es menor que 1000\\\"
end
Esta es una funcion que puede residir en un modulo, la forma de llamar a esta fucnion seria:
VariableString = Imprimir(numero)
Espero que te sirva y que te funcione pues no la he probado...
Bye!
. : DarkSoft : .
Talves la mejor forma de hacerlo es usando una bifurcacion triple:
Public function Imprime( lngVal as long) as string
if lngval = 1000 then
Imprime = lngval & \\\" es igual a 1000\\\"
elseif lngVal > 1000 then
Imprime = lngVal & \\\" es mayor que 1000\\\"
elseif lngVal < 1000 then
Imprime = lngVal & \\\" es menor que 1000\\\"
end
Esta es una funcion que puede residir en un modulo, la forma de llamar a esta fucnion seria:
VariableString = Imprimir(numero)
Espero que te sirva y que te funcione pues no la he probado...
Bye!
. : DarkSoft : .