Cita:
Empezado por cMr  Buenas brothers, tengo una duda, esque tengo en un textbox le fecha del sistema con la función Date, pero al momento de quererla guardar o procesar..., si el mes es de 30 días y le pongo 31, me truena el programa, como puedo hacer para que el mes de enero solamente acepte 31 días, para febrero 28 días y asi, o que solución puede haber para esto?
Saludos!:; |
Saludos, amigos. Para el problema de la fecha yo utilizo el siguiente procedimiento, espero te sirva, pero hay que colocarla en un Maskedbox.
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
FechaCorrecta = IsDate(MaskEdBox1)
If Not FechaCorrecta Then
MsgBox ("Por favor verifique la Fecha"), , "Fecha incorrecta"
MaskEdBox1.Text = "__/__/____"
MaskEdBox1.SetFocus
Else
DiferenciaFecha = DateDiff("d", MaskEdBox1, Date)
If DiferenciaFecha < 0 Then
MsgBox ("La fecha esta en el futuro"), , "Fecha incorrecta"
Else
MaskEdBox2.Text = Format(Date, "dd/mm/yyyy")
MaskEdBox2.SelStart = 0
MaskEdBox2.SelLength = Len(MaskEdBox2.Text)
MaskEdBox2.SetFocus
End If
End If
End If
End Sub