Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Ever Cerna en Junio 12, 2015, 09:31:06 pm
-
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.
-
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
-
Buenas tardes, amigo YAcosta, efectivamente es lo que necesitaba hacer ahora si me quedo todo OK. Muchas gracias.
Private Sub Command_Click()
Dim Mes As Integer
Mes = TxtNumMes.Text
FinGarantia = DateAdd("m", Mes, Format(Now, "dd/mm/yyyy"))
MsgBox FinGarantia
End Sub