 |
Club Builder
Foro de C++Builder en español
|
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Snake + +
Lt
Registrado: 31 Oct 2002Mensajes: 83Ubicación: Zacatecas, Zac. Mexico
|
 Publicado: Mie 23 Feb, 2005 8:37 pm Asunto: Fechas y Plazos |
 |
|
Que hay Brothers 
tengo este problema  esoty realizando un sistema que lleva el control de unos vales de credito, segun los plazos de pago seran las fechas que me gustaria sacar, por ejemplo.
saca el credito 01/01/2005
termina credito 01/03/2005
serina 4 pagos de uno cada quincena y me gustaria sacar als fechas
de cada pago pero no tengo idea de como hacerlo quiero hacerlo comparando las fechas en forma de cade pero me resulta algo un poco tedioso
me guatria que saliera asi la informacion.
pago 1 15/01/2005
pago 2 30/01/2005
pago 3 15/02/2005
pago 4 30/02/2005 (No me importaria si en febreso no estubiera bien ese dia pero los demas si)
Ojala alguien me pueda dar ayudar de antemano mil gracias
_________________
I.S.C. Joel Salinas Alvarado
Linux User:454009
the human knowledge belong to the world
"Hoy el Universo Debian es mas GRANDE"
Zacatecas, Mexico. |
|
| Volver arriba |
|
 |
Tugui
Master
Registrado: 09 Nov 2002Mensajes: 663
|
| Publicado: Mie 23 Feb, 2005 9:28 pm Asunto: |
|
|
No acabo de entender lo que quieres hacer, de todas formas dispones de la libreria DateUtils.h en la que puedes encontrar funciones muy útiles para el manejo de fechas.
_________________
¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
|
alfredo
Master
Registrado: 13 Oct 2003Mensajes: 246Ubicación: Valencia Venezuela
|
| Publicado: Mar 01 Mar, 2005 4:42 pm Asunto: |
|
|
Prueba esto: Pon un par de Edits y un Button en un Form, en el evento OnClick del Buton lo siguente:
| Código: | void __fastcall TForm1::Button1Click(TObject *Sender)
{
TDateTime Inicio, Fin;
String Dias;
if(InputQuery("Dias al Vencimiento","Ingrese Dias",Dias))
{
Inicio = StrToDateTime(Edit1->Text);
Fin = Inicio + StrToInt(Dias);
Edit2->Text=FormatDateTime("dd/mm/yyyy",Fin);
}
}
//---------------------------------------------------------------------------
|
|
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Mar 01 Mar, 2005 6:00 pm Asunto: |
|
|
También puedes intentar otra cosa. Sabes que cada mes va a tener dos pagos y sabes la fecha inicial y final del periodo; puedes usar un bucle while más o menos así (supongo que las fechas ya están introducidas y cargadas en sendas variables TDateTime):
| Código: | Word Year1, Month1, Day1, Year2, Month2, Day2;
int nPeriodos, nContador, nIntervalo;
TDateTime dFecAux;
DecodeDate(dInciio, Year1, Month1, Day1);
DecodeDate(dFinal, Year2, Month2, Day2);
nPeriodos = 2 * ((100 * Year2 + Month2) - (100 * Year1 + Month1));
nIntervalo = (dFinal - dInicio) / nPeriodos;
TDateTime dFechas[nPeriodos];
dFecAux = dInicio;
nContador = 0;
while (dFecAux < dFinal);
{
dFechas[nContador] = dFecAux;
nContador ++;
dFecAux += nIntervalo;
} |
Me explico:
- dInicio y dFinal son dos variables que contienen las dos fechas que te interesan.
- dFechas es un vector que se define en función del número de pagos que hay que hacer.
- nPeriodos contiene el número de pagos, suponiendo dos por mes.
- nIntervalo indica el espacio en días entre dos pagos consecutivos.
Con el bucle while lo que hago es ir cargando las fechas en el vector e incremento la fecha en los días qeu marca el inetrvalo. De esta foram te da igual que las fechas estén años separados o si el mes tiene 28, 30 ó 31 días. Únicamente pasa que así puede no coincidir con los días 15 y/o 30, pero seguro que no te pasas no por un lado ni por el otro. Lo que sugieres que no te importa (una fecha 30/02/2005) te daría error de ejecución por fecha absurda.
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
Snake + +
Lt
Registrado: 31 Oct 2002Mensajes: 83Ubicación: Zacatecas, Zac. Mexico
|
| Publicado: Mar 01 Mar, 2005 7:30 pm Asunto: |
|
|
Angel.
Gracias eso es exactamente lo que buscaba lo checare y tratare de usarlo, y luego les comento comome fue.
Gracias a todos.
Saludos.
_________________
I.S.C. Joel Salinas Alvarado
Linux User:454009
the human knowledge belong to the world
"Hoy el Universo Debian es mas GRANDE"
Zacatecas, Mexico. |
|
| Volver arriba |
|
|
|
|
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro
|
© 2002–2026 Club Builder · Funciona con phpBB.
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
