[mcs]

Empezado por armando

no existe el BETWEEN????

Hacer un BETWEEN es muy simple:

Código Delphi [-]
var
  val1, val2, val3: Integer;
 
if (val1>=val2) and (val2<=val3) then
    // val2 está entre (between) val1 y val2

Y para hacerlo más efectivo, antes mirar que val1<val3, o sinó intercambiar las variables.