ayuda

jose
29 de Diciembre del 2005
quiero cear un programa quelea un numero y que imprima si es >, < o = a 1000

. : DarkSoft : .
29 de Diciembre del 2005
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 : .

. : DarkSoft : .
29 de Diciembre del 2005
O.k.

Hola de nuevo!

Resulta que las barras inclinadas yo no las puse, eso es cosa del server, asi que suprimelas...

Y en la ultima linea de la bifurcacion "End" corrigela a "End if", perdona por mi distraccion...

. : DarkSoft : .