Access - Suma Dias a una fecha

   
Vista:

Suma Dias a una fecha

Publicado por Facundo Garcia (56 intervenciones) el 08/02/2008 20:59:36
Hola gente..necesito su ayuda!

-Yo tengo una fecha base 15/01/08.
A esta fecha en un informe necesitaria generar otras fechas en donde el dia siempre sea el 10 y el mes y el año (si es necesario) cambien.
Es para poner una fecha de vencimiento.
Por ejemplo ...un cliente me compra un producto en cuotas el dia 15/01/08.
yo necesito imprimir cupones en donde figuren distintas fechas con vencimientos distintos.
los vencimiento son siempre los dias 10 de cada mes.
Entonces...
Cupon 1 ---- Fecha Venc. 10/02/08
Cupon 2 ---- Fecha Venc. 10/03/08
Cupon 3 ---- Fecha venc. 10/04/08
Etc

Como veran solo necesito que cambie el mes apartir de la fecha que compro(15/01/01).

Desde ya muchas Gracias.-
Facu.-
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Suma Dias a una fecha

Publicado por mi menda (1111 intervenciones) el 09/02/2008 03:53:39
Hola Facundo:
No se sí habrá alguna función de fecha que valga para esto, sí alguien no te da otra forma de hacerlo, utiliza esto:

Dim Mes As Integer, Año As Integer

Mes = Month(CampoFecha)
Año = Year(CampoFecha)

Select Case Mes
Case 1 To 9, 12
If Mes = 12 Then Mes = 0: Año = Año + 1
Cupon1 = CDate("10/" & Mes + 1 & "/" & Año)
Cupon2 = CDate("10/" & Mes + 2 & "/" & Año)
Cupon3 = CDate("10/" & Mes + 3 & "/" & Año)
Case 10
Cupon1 = CDate("10/" & Mes + 1 & "/" & Año)
Cupon2 = CDate("10/" & Mes + 2 & "/" & Año)
Cupon3 = CDate("10/" & 1 & "/" & Año + 1)
Case 11
Cupon1 = CDate("10/" & Mes + 1 & "/" & Año)
Cupon2 = CDate("10/" & 1 & "/" & Año + 1)
Cupon3 = CDate("10/" & 2 & "/" & Año + 1)
End Select

Un Saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Suma Dias a una fecha

Publicado por chea (1015 intervenciones) el 09/02/2008 19:10:26
Para esto viene al pelo la función Dateserial:

Cupon1 = dateserial (Year(FechaCompra, Month(FechaCompra + 1, 10)

La gracia es es que no sólo pemite introducir los valores, de los parámetros, sino también operaciones. Por ejemplo, al poner Month(FechaCompra) +1, si es necesario, cambia el valore del año.

Saludos.
José Bengoechea Ibaceta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda JOSE!!

Publicado por Facundo Garcia (56 intervenciones) el 10/02/2008 00:08:23
Jose..!!o alguien!!

Esta formula la tendria que copiar en el origen de control de Textbox? puede ser que falte algun parentesis?

= dateserial (Year(FechaCompra, Month(FechaCompra + 1, 10)

desde ya muchas gracias.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda JOSE!!

Publicado por j. acilu (61 intervenciones) el 10/02/2008 10:01:29
Cupon1 = dateserial (Year(FechaCompra, Month(FechaCompra + 1, 10)))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar