Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   fechas (https://www.clubdelphi.com/foros/showthread.php?t=16285)

minos 23-11-2004 01:34:12

fechas
 
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 23-11-2004 03:09:23

Cita:

Empezado por minos
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:

Código Delphi [-]
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:

Código Delphi [-]
function IsLeapYear(Year: Integer): Boolean;
begin
  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;

// Saludos


La franja horaria es GMT +2. Ahora son las 00:56:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi