Cuantos Dias Tiene Un Mes ?

Tomás · #1 08-12-2004

Hola:

¿A que dimensión te has ido?, yo con vivir una mílesima de mes de esos tuyos me conformo.

No se como te puede dar eso. Podrías poner el código que estás utilizando para ver el error.

Yo he probado con esto y me da 31 y 28.

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(DaysInMonth(Now)));
  ShowMessage(IntToStr(DaysInAMonth(2004,2)));
end;

jafl1965 · #2 08-12-2004

Cita:

Empezado por Tomás

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(DaysInMonth(Now)));
  ShowMessage(IntToStr(DaysInAMonth(2004,2)));
end;

28? No he ejecutado la función, pero debía dar 29, ya que el 2004 es bisiesto. Esto es un error de la función?

Tomás · #3 09-12-2004

Hola:

Perdón, es error mío al transcribir el resultado, la función no tiene ningún error. En este caso da 31 y 29.

Un saludo. Tomás.