Problema con Fechas...

[FreddyJ]

Bueno, la idea es que si registro hoy 16/04/2010 Como indico al sistema que para el Sábado 24/04/2010 se vence el registro?

[ssccaann43]

Fijate, con este codigo estoy sumandole 8 días a la fecha actual...

Código: (vb) [Seleccionar]

Private Sub Form_Load()
MsgBox DateAdd("d", 8, Date)
End Sub

Ahora si por ejemplo de una Fecha determinada, requieres obtener su primer y su último
día del mes pasado, puedes hacerlo así...

Coloca Dos Labels en un formulario....!

Código: (vb) [Seleccionar]

Private Sub Form_Load()
Dim FechaInicial As Date, FechaFinal As Date
FechaInicial = DateAdd("m", -1, "13/03/2007")
FechaInicial = "01/" & Month(FechaInicial) & "/" & Year(FechaInicial)
FechaFinal = DateSerial(Year(FechaInicial), Month(FechaInicial) + 1, 0)
Label1.Caption = FechaInicial
Label2.Caption = FechaFinal
End Sub

 

[NolO]

Bueno, la idea es que si registro hoy 16/04/2010 Como indico al sistema que para el Sábado 24/04/2010 se vence el registro?

Hola te dejo unos enlaces, espero que te sean de utilidad

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm#fecha-hora

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/134-funciones-calcular-fecha.htm

Saludos.