FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como sumar una fecha
Hola como esta?
Tengo una tabla llamada Hoteles, en la cual tengo dos campos de fecha Fecha_Renovacion y proxima_fecha_renovacion, estos campos son tipo Date/Time y estoy utilizando Access lo que quiero hacer es lo siguiente: cuando yo digite una fecha en el campo Fecha_Renovacion, en el campo Proxima_Fecha_Renovacion me muetre un año depues de la fecha de renovacion. Ej. Fecha_Renovacion = 14/11/2007 Proxima_Fecha_Renovacion 14/11/2008, esto es porque la renovaciones se hacen anual. mucha gracias |
#2
|
||||
|
||||
Revisa la función IncYear que se encuentra en la unidad DateUtils y la cual se usa, asi:
Si quieres mas años tendras que pasarle el segundo parametro, asi, por ejemplo:
Espero te sirva .
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#3
|
|||
|
|||
mucha gracias jhonny por tu informacion, no pude resolver con el codigo que me dige, pero si algo como esto
Código:
var Frm_GiftShop: TFrm_GiftShop; Fecha_soporte : Tdate; DD, MM, AA : word; Código:
procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovacionChange(Sender: TField); begin // Fecha_Soporte := Tbl_GiftShopFecha_Renovacion.Value; DecodeDate(Fecha_Soporte, DD, MM, AA); AA := AA + 1; Tbl_GiftShopFecha_Pendiente_Renovacion.Value := Fecha_Soporte; end; |
#4
|
||||
|
||||
Con que Delphi estas trabajando y porque no te funciona, sale algun error?, deberia funcionarte, yo lo he probado con D6.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#5
|
|||
|
|||
estoy usando Delphi 7
|
#6
|
||||
|
||||
Bueno, entonces debe funcionarte, recuerda que debes agregar la unidad DateUtils.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#7
|
||||
|
||||
Deberia funcionar, de hecho yo trabajo con incmonth en lugar de incyear y va de maravillas asi como te dice jhonny danos info sobre porq no te funciona
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#8
|
||||
|
||||
Tiene razón jhonny, yo hago esta prueba con Delphi 7 utilizando variables en vez de campos y funciona perfectamente.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#9
|
|||
|
|||
gracias nuevamente por darme luz en la oscuridad, cuando me dice que tengo que agregar la unidad, aque te esta refiriendo
espero que comprenda el poco conocimiento, sobre la porgramacion |
#11
|
||||
|
||||
Cita:
Entonces cuando te digo que necesitas agregar la unidad DateUtils, quiere decir que a todas esas unidades que vez allí relacionadas, debes agregarle la DateUtils, lo cual quedaria asi:
Espero te sirva . Nota: Parece que maeyanes se a adelantado .
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ Última edición por jhonny fecha: 05-09-2007 a las 22:22:35. Razón: Maeyanes se adelanto... |
#12
|
|||
|
|||
muy buen dia a todos y mil gracias nuevamente por toda la atencion prestada.
jhonny ya hice la declaracion, pero me dice que la fecha_renovacion y proxima_fecha_renovar no estan declarada, ya esta eso me dice que tengo que desclararla, me gustaria que me siga arrojando un poco mas de luz y es posible. mil gracias |
#13
|
||||
|
||||
Donde las tienes declaradas, eso solo lo sabes vos, ya que vos mismo haz dicho que son unos campos de la base de datos, entonces, solo basta con que coloques alli dichos campos, en lugar de las variables que te mostre como ejemplo .
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#14
|
||||
|
||||
Lo que creo que falta aquí es el EncodeDate
Código:
procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovacionChange(Sender: TField); var dd,mm,aa : word; begin // Fecha_Soporte := Tbl_GiftShopFecha_Renovacion.Value; DecodeDate(Fecha_Soporte, DD, MM, AA); AA := AA + 1; Fecha_Soporte := EncodeDate(DD, MM, AA); Tbl_GiftShopFecha_Pendiente_Renovacion.Value := Fecha_Soporte; end; Código:
procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovacionChange(Sender: TField); var dd,mm,aa : word; begin // Fecha_Soporte := Tbl_GiftShopFecha_Renovacion.Value; DecodeDate(Fecha_Soporte, DD, MM, AA); Fecha_Soporte := EncodeDate(DD, MM, AA + 1); Tbl_GiftShopFecha_Pendiente_Renovacion.Value := Fecha_Soporte; end; |
#15
|
|||
|
|||
Cita:
duiliosola, estuve provando con la runtida que me enviaste pero me esta sumando el dia no el año, solo quiero sumarle uno al año. |
#16
|
|||
|
|||
tengo que agradecele a todos los que me ayudaron por la experician que expresan se puede decir que es dudoso que yo pueda ayudarlo pero nadie sabe para mi seria mas que un placer poder ayudarlo en algo y a ti jhonny que no puede usar la rutina que me enviaste pero voy a tratar de ver como puedo usarla para aprendermela y aqui pongo la rutina que use, por si otro tiene la misma inquitud que yo.
[code] procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovacionChange(Sender: TField); begin Fecha_Soporte := Tbl_GiftShopFecha_Renovacion.Value; DecodeDate(Fecha_Soporte, AA, MM, DD); AA := AA + 1; Fecha_Soporte := EncodeDate(AA, MM, DD); Tbl_GiftShopFecha_Pendiente_Renovacion.Value := Fecha_Soporte; end; [/codo] es la misma que me envio duiliodola, la unica diferencia esta en la decodificacion de la fecha. mil gracias a todos sigan pasandola bien |
#17
|
|||
|
|||
Pusiste en el uses de la unidad la referencia a la unidad DateUtils?
Con esa unidad solo tienes que hacer:
Saludos... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
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 solo años a una fecha | YaninaGenia | Varios | 3 | 03-10-2005 21:45:26 |
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 |
|