FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
Hola esimon, sería mas o menos así:
DayOfTheWeek, nos devuelve el día de la semana. Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#3
|
|||
|
|||
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.
|
#4
|
||||
|
||||
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#5
|
|||
|
|||
mucha gracias caro, esta funcionando a la perfeccion
|
#6
|
|||
|
|||
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.
|
#7
|
||||
|
||||
Cita:
Saludos, |
#8
|
||||
|
||||
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#9
|
|||
|
|||
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 cont : Integer; Fecha : TDateTime; begin Fecha := Now; cont := 1; While cont<=StrToInt(Edit1.Text) do begin Fecha := IncDay(Fecha, 1); if (DayOfTheWeek(Fecha)<>6) and (DayOfTheWeek(Fecha)<>7) then inc(cont); end; DateTimePicker1.Date := Fecha; |
#10
|
||||
|
||||
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, |
#11
|
|||
|
|||
gracias Delphius, nuevamente.
como dije anteriormente uso delphi 7 y accesse 2003, para insertar uso este codigo Código:
procedure TFrm_Agencia.SpeedButton6Click(Sender: TObject); begin Tbl_Agencias.Insert; end; Código:
procedure TFrm_Agencia.SpeedButton5Click(Sender: TObject); begin if Tbl_Agencias.State in [dsEdit, dsInsert] then Tbl_AgenciasNumero_Provincia.Value := Tbl_ProvinciaNumero_Provincia.Value; Tbl_AgenciasNumero_Localidad.Value := Tbl_LocalidadNumero_Localidad.Value; // DateTimePicker1.Date := Tbl_AgenciasFecha_Pendiente_Inspeccion.Value; Tbl_AgenciasFecha_Pendiente_Inspeccion.Value := DateTimePicker1.Date; Tbl_Agencias.Post; end; |
#12
|
||||
|
||||
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, |
#13
|
||||
|
||||
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/
__________________
El malabarista. |
#14
|
||||
|
||||
Cita:
Saludos.
__________________
Mi BLOG - ¡Joder, leanse la guia de estilo! Las Palabras son enanas, los ejemplos gigantes. |
#15
|
|||
|
|||
Cita:
Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#16
|
||||
|
||||
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#17
|
|||
|
|||
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 |
#18
|
||||
|
||||
Hola, el mensaje lo dice todo, tal vez el dato insertado no es un valor entero o tenga un punto decimal o un espacio, verfica bien los datos que colocas.
Saludos.
__________________
Mi BLOG - ¡Joder, leanse la guia de estilo! Las Palabras son enanas, los ejemplos gigantes. |
#19
|
||||
|
||||
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, |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
sumar dias a fecha actual | MOCOSO07 | Varios | 7 | 15-06-2008 18:53:23 |
sumar dias una fecha dada | Goyo | Varios | 3 | 25-05-2007 02:23:39 |
Sumar dias a una fecha inicial en delphi | bellota | Varios | 4 | 06-06-2006 16:42:40 |
SUmar dias a una fecha | raffagia | Varios | 1 | 04-10-2004 18:28:13 |
Sumar Dias a una fecha? | danytorres | SQL | 1 | 16-01-2004 05:04:15 |
|