elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Archivo Secuencial
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Archivo Secuencial  (Leído 1,544 veces)
YEXBOND007

Desconectado Desconectado

Mensajes: 36


Linux


Ver Perfil
Archivo Secuencial
« en: 29 Abril 2007, 05:48 am »

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  :-(


En línea

Sancho.Mazorka


Desconectado Desconectado

Mensajes: 480


Gamer & Programador


Ver Perfil WWW
Re: Archivo Secuencial
« Respuesta #1 en: 30 Abril 2007, 05:04 am »

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    :¬¬


En línea

Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines