FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Aumentar la fecha
Holas
En mi sistema el usuario decide los dia que le dara de credito a el comprador, digamos 15 dias de credito, con este numero y la fecha actual yo hago un algoritmo larguisimo para sumar estos 15 dias y mostrar en la factura la fecha de vencimiento. La pregunta es, existe otra forma de hacer esto menos trabajoso, es decir, no tener que hacer este algoritmo tan largo para solo esta opcion, no habra algo como decir 15 + fecha actual = la fecha adelantada 15 dias. Yo creo que la forma que utilizo es mecanica y agradeceria muchisimo que me ayudaras. Gracias por las atenciones que siempre me han brindado.
__________________
Y recueda que no hay preguntas tontas, si no, tontos que no preguntan. Sr. Genny Cris Morillo Santos Estudiante ING. Sistemas Santo Domingo D.N. |
#2
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
var Hoy:Tdate; begin Hoy:=Date; Hoy:=Hoy+StrToInt(Edit1.Text); ShowMessage(DateToStr(hoy)); end; Si a una fecha le sumas un número entero, obtendrás dicha fecha aumentada en el número de días especificado. Si bien lo mejor sería que en la ficha del cliente figurase el crédito que tiene, es decir en la tabla clientes se incluiría un campo llamado vencimiento, si ponemos 30 querrá decir 30 días. Al hacer una factura automáticamente se sumaría el vencimiento del cliente a la fecha de la factura, como la fecha sería un campo de tipo fecha y el vencimiento un entero, no habría que hacer ninguna transformación. Un Saludo. |
|
|
|