cambiar Fecha a siguiente mes..

[Kitty_05]

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 ?

[David]

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

[Kitty_05]

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

[Kitty_05]

Disculpa ya logre hacerlo funcionar muy amable eres un sol

[David]

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