Ver Mensaje Individual
  #7 (permalink)  
Antiguo 28/04/2010, 03:02
Avatar de XYON126
XYON126
 
Fecha de Ingreso: abril-2006
Mensajes: 272
Antigüedad: 18 años, 8 meses
Puntos: 0
Respuesta: Ayuda por favor

Hola erbunson!

Aqui pongo el codigo con mis pretensiones para poder aclarar y que se sepa my idea.

Código vb:
Ver original
  1. ' --------------------------------------------------------------------------
  2. ' \\ -- Subrutina para verificar que cantidad de semanas hay en Horas.dat.
  3. ' --------------------------------------------------------------------------
  4.  
  5.  
  6. Public Sub ContadorSemanas()
  7.  
  8.  
  9. Dim Nsemana As Integer
  10. Dim NRegistro As Integer
  11. Dim i As Integer
  12.  
  13. 'Declaracion array Csemanas
  14. Dim CSemanas() As Variant
  15. D = LOF(Numero) / 94
  16. RegUltimo = LOF(Numero) / 94
  17.  
  18. ReDim CSemanas(D, 1)
  19.  
  20. For i = 1 To D 'En este bucle pretendo leer todos los registros _
  21. 'solicitandole solo 2 datos .semana y el nr.de registro.
  22.    With Horas
  23.     Get #Numero, RegUltimo, Horas
  24.     Nsemana = .semana
  25.     NRegistro = RegUltimo
  26.     RegUltimo = RegUltimo - 1
  27.     End With
  28.         MsgBox Nsemana & " , " & NRegistro & " , " & i 'Me visualiza los datos a grabar.
  29.        If i > 0 Then 'Aqui pretendo comparar el ultimo registro guardado _
  30.         'con el actual y si es la misma semana lo omito y voy al siguiente.
  31.            If CSemanas(i, 1) <> CSemanas(i - 1, 1) Then
  32.             CSemanas(i, 0) = NRegistro
  33.             CSemanas(i, 1) = Nsemana
  34.         End If
  35.     End If
  36.     MsgBox CSemanas(i, 1) & " , " & CSemanas(i - 1, 1) 'Me deberia visualizar lo que _
  37.     'hay en esas partes de la Matriz.
  38. Next i
  39.  
  40. MsgBox UBound(CSemanas, 1) & "  " & LBound(CSemanas, 2) 'Me deberia informar del tamaño final de la Matriz _
  41. 'en mi caso 2,0 pues solo hay tres semanas en 12 registros la 17,18 y 19
  42.  
  43. NrSemanas = UBound(CSemanas, 1) ' Esto es para un contador externo.
  44.  
  45. End Sub

Un saludo

Última edición por XYON126; 28/04/2010 a las 03:17