como sumar Dias a una fecha
Muy buen dia para todo, espero que me disculpen se que hay mucho hilo con esta pregunta pero no pude adactar uno a lo que yo quiero hacer o necesito.
lo que quiero hacer es sumarle a un DateTimePicker el numero que digite en un Edit, sin que me tome los dias de fiesta. ej. si hoy es lunes 28/07/2008 y en el Edti digito un 5 el DateTimePicker seria 04/08/2008, eso es lo que quiero. mil gracias |
Hola esimon, sería mas o menos así:
DayOfTheWeek, nos devuelve el día de la semana. Saluditos |
mil gracias Caro, por la repuesta no dije que estoy usando delphi 7 y Accesse, otra cosa quien es IncDay y DayOfTheWeek porque me dice que no esta declarada.
|
Hola de nuevo esimon, tienes que aumentar en tu uses la unidad DateUtils, que es ahí donde estan esas dos funciones, IncDay, te incrementa la cantiadad de días que tu le indiques en tu caso 1 y DayOfTheWeek nos devuelve el día de la semana de la fecha que le pasas como parametro 6->sabado y 7->domingo.
Saluditos |
mucha gracias caro, esta funcionando a la perfeccion
|
mucha gracias caro, esta haciendo lo que yo quiero, pero el DateTimePicker siempre me muestra la fecha actual si importar la modificacion del registro. te puedo hacer un ej. con la fecha del hoy, el DateTimePicker tiene fecha de 28/07/2008 si en el edit digito un numero 5, el DateTimePicker sera 04/07/2008, eso quiere decir que esta funcionando, grabo mi registro. pero si vuelvo al mismo registro el DateTimePicker es igual a 28/07/2008 cuando tiene que tener la fecha de 04/07/2008, puede decirme que esta pasando.
|
Cita:
Saludos, |
Cita:
Ahora sobre tu problema, como te dice Marcelo, danos mas detalles para que te podamos ayudar y pon el codigo donde crees que este tu problema. Saluditos |
mucha gracias Caro y Delphius, por dedicarme parte de tu apreciado tiempo.
Estoy haciendo un sistema para supervisar establecimientos, pero dentro de esa supervision a un establecimiento X, le puedo dar un plazo de 1o dias laborables para hacerle una numeva supervision para que corrijar algunos problemas que se encontraron en dicho establecimiento, claro estoy 10 dias son laborable, sin incluir los dias feriados, sabado ni domingos. para que el sistema haga esa parte automaticamente, uso un Edtit en el cual digito la cantidad de dias y un DeteTimePicke, para que me muestre la fecha que le toma la supervision a dicho establecimiento y estoy usando el codigo que me envio caro. Código:
var |
Hola esimon,
Yo no veo problema en el cálculo de los días. Es posible que el problema lo tengas al insertar los datos. Por favor, ¿Podrías mostrarnos el código que empleas para guardar? ¿Que componentes de acceso a base a datos usas?¿Motor? Saludos, |
gracias Delphius, nuevamente.
como dije anteriormente uso delphi 7 y accesse 2003, para insertar uso este codigo Código:
Código:
|
Hola esimon,
No veo problema en el código, es más hice una prueba y funciona. Me gustaría que por favor me indicaras que componentes usas. Yo probé con ADO y he empleado el Proveedor Microsoft Jet 4.0 OLE DB tan ampliamente usado. ¿Usas otros componentes y/o tecnología de acceso a la base de datos? No se por donde vendrá el problema, pero no veo problemas en ese código... el error puede venir de otro lado. Dices que la fecha no la guarda adecuamente ¿sólo la fecha? ¿guarda los otros campos? ¿Te aseguraste de que la tabla Provincia y Localidad estén abiertas? ¿El cursor está en algún registro válido? Hay muchas cosas por analizar... pero por lo pronto, en ese código no veo algo raro. Saludos, |
Creo que el problema es la forma de manejo del control.
El TDateTimePicker no permite calculos sobre las fechas, solo seleccionarlas. Lo que quieres requiere un control nuevo, que combine el Pivker con un Edit personalizado que haga mask dinamico y esas cosas, porque por codigo esta ok. Una inspiracion: http://www.datejs.com/ |
Cita:
Saludos. |
Cita:
Salud OS |
Hola esimon, tu codigo de inserción esta bien como te dice Marcelo, revisa si en la Base de Datos se esta registrando bien, porque parece que tu problema esta al recuperar nuevamente ese dato en tu DateTimePicker, como lo estas recuperando?.
Saluditos |
gracias nuevamente, disculpen el retraso de mi repuesta pero estuve guscando y verificando doto para ver si encontraba el problema, Delphius yo estoy usando los mismos componentes que usate como prueba, ahora bien ese codigo lo estoy usando en el Evento OnExit del edit del campo dia y es donde tengo el pequeño problema.
Le puese comentario el que esta en el OnExit y lo coloque en el OnChange y hay funciona bien de bien, pero como mi tabla tiene mucho registros y tengo que modificar coda registro en el primier registro no tengo problema cuando voy a pasar al proximo registro da este mensaje. Código:
Is not a valid integer value |
Cita:
Saludos. |
Hola esimon, me gustaría saber ayudarte pero sin conocer mejor como estás haciendo las asignaciones al momento de mostrar los valores no sabré como ayudarte. Tu duda inicial pasaba por una inserción o alta... ahora al parecer se trata de una operación de lectura, y me parece que es allí donde está el problema...
Te habíamos pedido que nos hicieras llegar más detalles te la situación. Me gustaría que nos hicieras llegar el código para saber donde tienes problemas. De otro modo seguiremos estando a las adivinanzas.:( Saludos, |
La franja horaria es GMT +2. Ahora son las 08:35:29. |
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