Sumar fecha a un Label...
Tavo, ¡Tanto tiempo!
Te pregunto: en un UF tengo un Label donde me dá la fecha actual (LabelX.Caption=Date), en formato "dd-mmm-yy", además de una serie de TB y CB que no vienen al caso.
Lo que necesito es que, al hacer click en el CommandButon, en la Hoja3, me mande EL MES SOLAMENTE que correspondería, sumándole 7 meses... Esto es: si LabelX = 19-May-08, en Hoja 3 (donde quieras, yo después lo ubico) me aparezca DICIEMBRE.
Gracias, Tavito!
Te pregunto: en un UF tengo un Label donde me dá la fecha actual (LabelX.Caption=Date), en formato "dd-mmm-yy", además de una serie de TB y CB que no vienen al caso.
Lo que necesito es que, al hacer click en el CommandButon, en la Hoja3, me mande EL MES SOLAMENTE que correspondería, sumándole 7 meses... Esto es: si LabelX = 19-May-08, en Hoja 3 (donde quieras, yo después lo ubico) me aparezca DICIEMBRE.
Gracias, Tavito!
1 respuesta
Respuesta de tavopz
1
Pues con la función Month() puedes encontrar el mes que corresponde a la fecha y luego le sumas 7 y obtendrás el que necesitas. Lo que ocurre es que para convertir luego este número al nombre del mes, tendrás que usar un Case Select o algo por el estilo que te lo convierta.
x = Month(Date)+7
Select Case x
Case 1
y = "Enero"
Case 2
y = "Febrero"
'Así sucesivamente
Case Else
y = "Error"
End Select
Sheets("Hoja3").Range("A1").Value = y
x = Month(Date)+7
Select Case x
Case 1
y = "Enero"
Case 2
y = "Febrero"
'Así sucesivamente
Case Else
y = "Error"
End Select
Sheets("Hoja3").Range("A1").Value = y
