Foros del Web - Ver Mensaje Individual

David el Grande · 17-abr-2008, 15:23

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

17-abr-2008, 15:23	#2 (permalink)
David el Grande Colaborador Fecha de Ingreso: abril-2005 Ubicación: In this planet Mensajes: 6.868	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 __________________ "En la vida muchas veces tenemos que ser aprendices, y muchas veces maestros" P.S.: Pregunta siempre en el foro correcto.