Foros del Web - Ver Mensaje Individual

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

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

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