MS Exchange no sabe que este año es bisiesto

[Casimiro Noteví]

Ya recordaréis aquel fallo tan garrafal en cálculo de MS Excel, pues bien, ahora le toca el turno a MS Exchange, que por lo visto se han olvidado que este año es bisiesto, je, je, je...

Menos mal que tienen 4 años para arreglarlo antes del próximo año bisiesto.

http://www.kriptopolis.org/microsoft...fallo-bisiesto

[dec]

Hola,

Ay la leche. O sea, yo pensando si Gesbit sucumbiría a dicho efecto o no, que al final parece que no (aunque no porque lo tuviera especialmente controlado, esto) y resulta que a Microsoft, ¡a Microsoft!, se le escapa que este año era bisiesto. ¡Vaya siesta! Pero, en fin, supongo que nadie está libre de pecado, y, el que lo esté, etc.

[ixMike]

Esto demuetra una cosa: a Microsoft le iría mejor con dec

[dec]

Hola,

Bueno, eso es discutible. Pero, que nadie ponga en duda que a mí me iría mejor con Micro$oft.

[ContraVeneno]

changos.... con razón mi sistema no quería funcionar ese día...

¿alguien que tenga el código para validar el bisiesto?, ¿me lo manda a mi correo con manual e imágenes? Gracias.

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

[[eduarcol]]

si hay algo que me gusta de delphi es que con una funcion me hace todo el trabajo y me deja el resto del dia libre:

IsLeapYear

[ContraVeneno]

Que bonito es Delphi y la función IsLeapYear

[vtdeleon]

Donde laboro se usa Exchange, y no hubo problema alguno.

Saludos

[Casimiro Noteví]

Empezado por vtdeleon

Donde laboro se usa Exchange, y no hubo problema alguno.
Saludos

Hablan de la versión 2007, se supone que las anteriores no tenían ese problema.

[vtdeleon]

Hablan de la versión 2007, se supone que las anteriores no tenían ese problema.

Ah bueno...