17/04/2008, 14:23
|
 | 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..
Quizá esto te ayude:
Código:
Fecha.Text = Date
If Day(Date) > 20 Then
Fecha.Text = DateSerial(Year(Date), Month(Date) + 1, 1)
End If
|