existe la función:
WeeksBetween(const ANow, AThen: TDateTime): Integer;
Que te dice cuantas semanas hay a partir de una fecha. para más información consulta la ayuda en Delphi.
Aunque no entiendo el fallo de las funciones al asumir que en el primero de enero empieza la primera semana si es correcto.
|