Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Acerca de fechas (https://www.clubdelphi.com/foros/showthread.php?t=18815)

Dayvis 23-02-2005 19:42:25

Acerca de fechas
 
Hola a todos, de nuevo aqui con otra pequeña pregunta, estoy realizando un programa para el control de pagos, es decir que un usuario entra en el sistema la fecha de un determinado pago ejm un cheque o una letra y el sistema se encarga de avisarle, pero si el día de pago fue programado en un dia feriado, el sistema automaticamente debe asignarlo al dia siguiente, mi duda consiste ya que he revisado los tdatetimepicker y el monthcalendar y no figuran los dias feriados, como asigno los dias feriados o si tienen alguna otra idea por favor pudieran comentarlo. espero su ayuda gracias.y una ultima pregunta como le sumo min. a un tiempo, he visto que para sumar un minuto deben de ser 1/1440 pero lo he intentado y no me ha funcionado.

Lepe 24-02-2005 09:17:16

Los dias feriados tendrás que sacarlos de algun calendario o similar, adjuntarlos a tu sistema, y al tiempo de poner la fecha de pago del cheque, ver si coincide con un feriado, en tal caso, avisas al usuario y que él decida.

Una fecha es simplemente un numero flotante :

Código Delphi [-]
var 
d:Tdatetime
begin
 d:= now;
 d:= d+1 ; // un dia más
 d:= d+0.5 ; // la fecha más medio dia, o sea + 12 horas

 d := now+ (1/(24*60)); //  = 1/1440

Como ves 1 unidad, corresponde a 1 dia al completo,
simplemente tienes que sumar la fraccion que quieras:
1 dia = 24 horas
1 hora = 60 minutos.

Si multiplicas 60 * 24 obtienes los minutos que tiene 1 dia al completo (1440),
Si divides 1 dia entre los minutos totales, obtienes la fraccion de dia que corresponde a 1 minuto.

Saludos


La franja horaria es GMT +2. Ahora son las 09:45:01.

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