17/04/2008, 14:38
|
 | Moderador | | Fecha de Ingreso: abril-2005 Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 20 años Puntos: 839 | |
| Re: cambiar Fecha a siguiente mes..
Código comentado:
Código:
' Colocamos la fecha actual en el Textbox "Fecha"
Fecha.Text = Date
' Si el día de hoy es mayor que 20 entonces...
If Day(Date) > 20 Then
' DateSerial(Año, Mes + 1, Día 1)
Fecha.Text = DateSerial(Year(Date), Month(Date) + 1, 1)
' DateSerial es para que por ejemplo cuando Mes + 1 sea 13 cambie el año...
End If
|