Cuantos Dias Tiene Un Mes ?

[Pascual Montes]

Gracias por Responder mi pregunta Roman, Sabes tal vez no me supe explicar
cuando me refiero a que me da valor muy diferente al deseado es que
me da por resultado cantidades de 8 digitos por ejemplo 43875423 y otras
por el mismo estilo. Que podra estar pasando ?
Te agradezco tu ayuda.


Saludos

[Tomás]

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]

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]

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.