Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   La Taberna (https://www.clubdelphi.com/foros/forumdisplay.php?f=40)
-   -   MS Exchange no sabe que este año es bisiesto (https://www.clubdelphi.com/foros/showthread.php?t=53911)

Casimiro Notevi 04-03-2008 18:36:25

MS Exchange no sabe que este año es bisiesto
 
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 04-03-2008 20:45:27

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 04-03-2008 22:33:25

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

dec 04-03-2008 22:50:44

Hola,

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

ContraVeneno 04-03-2008 23:01:25

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.

:D

danilo_candales 05-03-2008 01:51:16

¿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 05-03-2008 02:03:19

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

Además, esa función no funciona (¿paradoja? :D), 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 ;) :D:D:D


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

eduarcol 05-03-2008 13:48:27

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


:D

ContraVeneno 05-03-2008 15:20:45

Que bonito es Delphi y la función IsLeapYear :)

vtdeleon 05-03-2008 16:23:12

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

Saludos

Casimiro Notevi 05-03-2008 18:54:06

Cita:

Empezado por vtdeleon (Mensaje 270845)
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 05-03-2008 21:31:33

Cita:

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


La franja horaria es GMT +2. Ahora son las 09:18:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi