Imprimir Página - Archivo Secuencial

Hola a todos los del foro tengo un problema quiero hacer una busquedad por fechas pero no se como validar que la fecha que me dan este dentro del rango

Citar

Private Sub Form_Activate()
Dim FechaInicial As Date
Dim FechaFinal As Date
Dim X As Integer
FechaInicial = InputBox("INTRODUZCA LA FECHA INICIAL PARA BUSCAR:", "BUSQUEDAD DE CHEQUE")
FechaFinal = InputBox("INTRODUZCA LA FECHA FINAL PARA BUSCAR:", "BUSQUEDAD DE CHEQUE")
NumArchivo = FreeFile
Open NOMBREARCHIVO For Random As #NumArchivo Len = Len(Registro)
If FechaInicial And FechaFinal = Registro.Fecha And Registro.Edo = "A" Then
For X = FechaInicial To FechaFinal
lstFechas.AddItem Trim(Str(Registro.Num)) & " $ " & Trim(Str(Registro.Cant)) & " -- " & Trim(Registro.Nom) & " -- " & Trim(Str(Registro.Fecha))
Next
Else
MsgBox "NO HAY FECHAS ALMACENADAS", vbInformation, "ARCHIVO VACIÓ"
End If
Close NumArchivo
End Sub

Este es el codigo de como lo estoy haciendo solo me muestra una fecha la que capturar en fechainicial y quiero que me muestre todas las que se encuentren dentro del rango de musquedad si alguien me pueda hechar una mano se los agradecería :-(

Podrias hacer una constante o variable para cada mes que contenga el ultimo dia de cada mes, osea:

Código:

Const Enero = 31
Const Febrero = 28
Const Marzo = 31
...

y despues hace un FOR o algun bucle viendo si la fecha es valida!

Sancho.Mazorka :¬¬

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: YEXBOND007 en 29 Abril 2007, 05:48 am