Exacto. otra opcion es separa febrero de los demas de la siguiente forma:
Código Delphi
[-]
var
auxMes : Word;
if Mes = 2 then
begin
result := 28; if AñoBisiesto(Año) then result := Result + 1;
end
else
begin
auxMes := (Mes mod 8) + (Mes div 8);
if (auxMes mod 2) = 0 then Result := 30
else
Result := 31;
end;
Este podría ser otro procedimiento válido para calcular los días. La ventaja del anterior con respecto a este es la disposición precalculada de los valores de los días pero como los ordenadores trabajan muy rápido con este tipo de operaciones no tiene importancia. Por otro lado, la ventaja de este es que evitamos tener espacio en memoria ocupada por la constante aunque tampoco es que sea drástico.