Tema: Reloj fijo
Ver Mensaje Individual
  #30 (permalink)  
Antiguo 25/07/2010, 09:43
Avatar de XYON126
XYON126
 
Fecha de Ingreso: abril-2006
Mensajes: 272
Antigüedad: 18 años, 7 meses
Puntos: 0
Respuesta: Reloj fijo

Hola erbuson!

Como bien dices "esperas no confundirme" desde luego confundirme no pero ahora me toca digerirlo bien y comprender lo que has posteado. Las Arrays que has creado son Date o Integer pues lo he probado y me da en este trozo de codigo el error "error de copilacion" El tipo de argumento de ByRef no coincide. y me apunta a esta parte de codigo.:

Código vb:
Ver original
  1. '################################################# ##########
  2. Private Sub PonerHora(Indice As Integer, LaHora As Date, Diferencia As Integer)
  3. ' Pone la Hora en la Etiqueta correspondiente a Indice
  4. QueHora(Indice) = Format(DateAdd("h", -1, LaHora), "ddd hh:mm:ss")
  5. ' Después, la misma rutina, efectua el cambio de Abierta/Cerrada
  6. ComoEsta(Indice) = CloseOpen(QueHora(Indice))
  7. End Sub

por otro lado veo que en esta linea de codigo recortas el nombre ¿Porque? lo pregunto por desconocimiento.

Código vb:
Ver original
  1. If Dia = "sáb" Or Dia = "dom" Then CloseOpen = "CERRADA"

Un saludo