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?