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 ?