Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: FreddyJ en Abril 16, 2010, 11:13:04 am
-
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?
-
Fijate, con este codigo estoy sumandole 8 días a la fecha actual...
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....!
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
;D
-
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/tutoriales/tutorial-basico5.htm#fecha-hora)
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/134-funciones-calcular-fecha.htm (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/134-funciones-calcular-fecha.htm)
Saludos.