fechas

[minos]

como puedo saber cuantos dias tiene un mes teniendo como dato, el numero de mes, es decir si tengo el mes 2 (febrero), obtener el 28 ó 29 que serian los numeros de dias para el mes, el 7(julio) para obtener 31, etc.

gracias por su ayuda

[roman]

si tengo el mes 2 (febrero), obtener el 28 ó 29


Pero precisamente por esto no te es suficiente el número de mes. Requieres necesariamente el año.

En Delphi7 existe la función DaysInAMonth de la unidad DateUtils. Si tu versión de Delphi no cuenta con esta función fácilmente te la puedes crear:


function DaysInAMonth(Year, Month: Integer): Integer;
const
Days: array[Boolean, 1..12] of Integer = (
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
);

begin
Result := Days[IsLeapYear(Year), Month];
end;


IsLeapYear está en la unidad SysUtils. Si tampoco cuentas con esa también es sencilla:


function IsLeapYear(Year: Integer): Boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;


// Saludos