Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > Python
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 29-12-2022
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.744
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
No se en python pero la función de cálculo es sencilla utilizando un bucle tipo while...
Pongo el código con un pseudocódigo pascalisado.

Código Delphi [-]
procedur DameVencimientos(FechaInicio: TDateTime; Anyos: integer; DiasEntrePagos: integer);
var
  Fecha : TDateTime;
begin
   // Calculo fecha final como Fecha Inicio + Anyos
   // (RecodeYear modifica la parte año de una fecha)
   FechaFinal := RecodeYear(FechaInicio, YearOf(FechaInicio) + Anyos);

   // Primer pago es FechaInicio + DiasEntrePagos
   Fecha := FechaInicio + DiasEntrePAgos;

   // Mientras no me pase de fecha final voy devolviendo las fechas de vencimiento
   while Fecha <= FechaFinal do
   begin
      Write('Vencimiento: ' + FormatDate(Fecha));

      // Incremento la fecha
      Fecha := Fecha + DiasEntrePagos;
   end;
end;
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Manejo de Fechas de vencimiento en delphi 7 luisraad Varios 92 11-04-2013 23:33:40
Fechas de Pagos 15 y 30 de cada mes! TheNew Varios 8 26-05-2010 04:10:51
bucle para fechas de pagos chino150 Varios 5 19-05-2008 15:01:28
Problemas al crear la lista con IdFtp VolaRe Internet 5 16-08-2004 12:49:02
Como crear una Aplicación (Trial) con Vencimiento Jessica666 Varios 6 23-05-2004 21:22:48


La franja horaria es GMT +2. Ahora son las 13:04:39.


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
Copyright 1996-2007 Club Delphi