MS Exchange no sabe que este año es bisiesto

[danilo_candales]

¿Porqué a tu correo? EGOISTA!!! Publiquemoslo para el mundo entero. A ver si los de MS lo ven y deciden usarla. Aunque está muy dependiente del lengiaje PASCAL... no sé si funcione en VB.

Código Delphi [-]
 
Function EsBisiesto (var Anno: Tdate): Boolean
Begin
  Result := False;
  If Anno = Bisiesto Then Result := true;
End;

Mas claro ni el agua del río que pasa por mi casa.

Saludos,

[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...