podes hacer algo como:
Código SQL
[-]
Select *, UltSem
from Alumnos
where :SemanaConsulta - UltSem >= :SemanasAdeudo
Esto dentro de un TQuery.
Luego:
Código Delphi
[-]
query1.ParamByName('SemanaConsulta').AsInteger := StrToInt(eSemanasConsulta.text);
query1.ParamByName('SemanasAdeudo').AsInteger := StrToInt(eSemanasAdeudo.text);
query1.Open;
he supuesto que eSemanasConsulta y eSemanasAdeudo serán TEdits colocados en el formulario. Creo que su significado se explica por si mismo.
Por último, para calcular cuantas semanas debe y el total de la deuda, podes hacerlo creando un par de campos calculados y valiendote del evento OnCalcFields.
Hasta luego.
