MS Exchange no sabe que este año es bisiesto

[ixMike]

danilo, te falta un ";" después de "Boolean"

Además, esa función no funciona (¿paradoja? ), porque Delphi no sabe lo que es "Anno". La función verdadera es esta:

Código Delphi [-]

Function EsBisiesto(Anno: Cardinal): Boolean;
begin
  Result := not CompareDates(DateByParts(29, 2, Anno), DateByParts(1, 3, Anno));
end;

Notas: la función CompareDates compara dos fechas, para saber si son la misma o no. La función DateByPart toma el día, mes y año, de tipo entero, y devuelve un TDate.


Salu2


P.D.: Esta fecha (la de hoy) me recuerda algo... no sé qué es...