Poner Garantía en Meses y Mostrar en Fecha.

[Ever Cerna]

Buenas noches, amigos una consulta.

Lo que estoy tratando de aser, es que yo tengo un formulario de articulos donde ingreso todos los datos d articulo y tengo un cambo donde pongo el tiempo de garantía en ese campo pongo solo en número osea desde el 1 al 12 (meses).

Ahora al hacer una venta cargo el producto antes de eso me sale el producto lo k completo es soll el número de serie y allí me muestra el tiempp de garantía en meses a la hora de ingresar quisiera que me mostrar en fecha pero ya con el mes que puse osea el tiempo de garantía.

Para no aser muy largo coloco un ejemplo de como sería.

Garantía: 9 meses

Mostrando en Fechas: 12/03/2016 - es así como mostraría el resultado final...

Alguien porfa me podría indicar de como lo haría...

Gracias, x su atención

Salu2.

[YAcosta]

Sumale los meses a la fecha que requieras doc.

Garantía: 9 meses  <-- Extraes el 9 y lo ponemos por ejemplo en una variable Mes

FinGarantia = DateAdd("m", Mes, TuFecha)   ' Si TuFecha es 12/06/15, entonces FinGarantia sera 12/03/16


Saludos

[Ever Cerna]

Buenas tardes, amigo YAcosta, efectivamente es lo que necesitaba hacer ahora si me quedo todo OK. Muchas gracias.

Código: [Seleccionar]

Private Sub Command_Click()

Dim Mes As Integer

Mes = TxtNumMes.Text

FinGarantia = DateAdd("m", Mes, Format(Now, "dd/mm/yyyy"))

MsgBox FinGarantia

End Sub