Foros del Web - cambiar Fecha a siguiente mes..

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - cambiar Fecha a siguiente mes.. (http://www.forosdelweb.com/f69/cambiar-fecha-siguiente-mes-577122/)

cambiar Fecha a siguiente mes..

Hola amigos, nuevamente :)

Necesito una idea ingeniosa para resolver un pekeñito inconveniente q tengo...

Código:



Dim farray() As String

Dim dat As String
 

Fecha.Text = Date 'este campo tendria algo como 04/17/2008

dat = Fecha.Text 

farray = Split(dat, "/") 'farray los separa por el "/" que seria el delimitador
 

If farray(1) > 20 Then 'farray(1) tendria el 17

MsgBox "Esta prevision estara disponible para el mes siguiente", vbInformation, "Fecha de creacion..."
 

' aqui es donde viene la pregunta, como ago q si lo q obtengo del campo del array es mayor que 20 entonces, 
 

fecha.text = ' al primer dia del MES siguiente con el mismo formato de "mm/dd/yyyy"
 

endif

La idea es que si se trata de ahcer algo despues del 20 quede guardado con fecha del mes siguiente.

Gracias me guian ?

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

Re: cambiar Fecha a siguiente mes..

Gracias pro la ayuda pero me puedes guiar como funciona ..

Re: cambiar Fecha a siguiente mes..

:si:Disculpa ya logre hacerlo funcionar muy amable eres un sol:aplauso::aplauso::aplauso:

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