Algoritmo de calculo de horas

Que tul?

Supongo que si aplicara conocimientos de combinatoria te podria
contestar facilmente. Pero creo que va a ser mas facil si te muestro
el codigo VBA que me da los famosos 90 casos:

Private Sub cmdCombinaciones_Click()
Dim Pos(1 To 6) As Byte 'Almacena las posiciones relativas de
los digitos 1..6
Dim i As Byte
Dim r As Byte
Dim n As Long
Dim valido As Boolean

'Estrategia: buscar todos los numeros entre 123456 y 563412
'que cumplan con la siguiente condicion:
'
'Pos(1)<Pos(2) and Pos(3)<Pos(4) and Pos(5)<Pos(6)
'

' El menor valor que puede tomar las combinaciones
n = 123456

' La fila donde voy a meter el numero
r = 1
While n <= 563412
valido = True
For i = 1 To 6
Pos(i) = InStr(Format(n, "000000"), Format(i, "0"))
Next i

' Si hay algun Pos(i) = 0, quiere decir que
' hay algun i que no esta en el numero, entonces, no es valido
For i = 1 To 6
If Pos(i) = 0 Then
valido = False
End If
Next i

' Si el numero tiene todos los digitos entre 1 y 6,
' verifico que ademas se cumpla la condicion
valido = valido And (Pos(1) < Pos(2) And _
Pos(3) < Pos(4) And _
Pos(5) < Pos(6))

If valido Then
Sheets("Hoja1").Cells(r, 1) = r
Sheets("Hoja1").Cells(r, 2) = n

Sheets("Hoja1").Cells(r, 3) = Pos(1)
Sheets("Hoja1").Cells(r, 4) = Pos(2)
Sheets("Hoja1").Cells(r, 5) = Pos(3)
Sheets("Hoja1").Cells(r, 6) = Pos(4)
Sheets("Hoja1").Cells(r, 7) = Pos(5)
Sheets("Hoja1").Cells(r, 8) = Pos(6)

r = r + 1
End If

n = n + 1
Wend

End Sub

Reemplazando

1 = et
2 = st
3 = er
4 = sr
5 = li
6 = ls

queda claro que el código me muestra las unicas 90 combinaciones que
cumplen con las condiciones.

Creo que logre hacerlo. La planilla es medio pesadita, pero va en
relacion con el grado de "inteligentzia" del que dispone.


On 6 abr, 03:48, "Héctor Miguel"
wrote:

hola, Julio !

> ... Todas las variables (et, st, er, sr, li, ls) toman valores horarios, de 00:00 a 23:59
> considerando el caso especial que planteabamos anteriormente.
> Estoy armando funciones en VBA para el manejo de los tiempos.
> No los puse aca porque las estoy modificando a medida que se me ocurren las ideas.
> La ultima version es la que adjunto.
> En cuanto a los casos posibles, arme un "programita" que me tira todos los casos posibles
> que resultaron ser 90 (un numero grande, pero mas manejable que 720, jejejeje).
> Es en estos momentos en los que me dejo de quejar de las clases de Combinatoria en la facultad! (mas jejejes)

1) no acabo de entender 'como' reduces las permutaciones posibles para una matriz de 6 elementos
de 720 posibilidades [=permutaciones(6,6)] -> a solo 90 -???-

2) si solo necesitas las 'combinaciones' posibles para una matriz de 6 elementos en 'pares'... [entrada <-> salida]
12, 13, 14, 15, 16 <-> 34, 35, 36, 31, 32 <-> [etc. etc. etc.]
=combinat(6,2) -> devuelve solo 15 posibilidades

3) si deseas incluir la probabilidad de entrada versus salida en el mismo turno que la entrada [dia anterior / siguiente]
=combinat(6+1,2) -> devuelve solo 21 posibilidades

cualquiera de las posibles 'combinaciones' es menor que las 90 que determinas 'discrecionalmente' en el codigo ;)

[bue... creo que] me espero a que visites los links sugeridos y/o por cualquier informacion adicional :))

saludos,
hector.

__ el codigo expuesto __

> Private Sub CommandButton1_Click()
> Dim f As Long, i As Long
> Dim Pos(1 To 6) As Byte
> Dim t As String
> Dim j As Byte
> Dim z As Boolean
> ' Cada i representa el ordenamiento de las horas involucradas.
> ' Donde 1 = et, 2 = st, 3 = er, 4 = sr, 5 = li, 6 = ls
> f = 1
> i = 123456 'es el minimo i que cumple con el ordenamiento
> t = ""
> While i <= 654321 'es el maximo i que cumple con el ordenamiento
> t = Format(i, "000000") 'variable donde almaceno i como texto
> z = False ' me indica si algundigitos esta ausente en i
> ' Almaceno las posiciones de los digitos 1, 2, 3, 4, 5, 6 en t
> For j = 1 To 6
> Pos(j) = InStr(t, Format(j, "0"))
> If Pos(j) = 0 Then
> z = True
> End If
> Next
> If Not z Then
> If (Pos(1) < Pos(2) And Pos(3) < Pos(4) And Pos(5) < Pos(6)) Then
> Sheets("Hoja2").Cells(f, 1).Value = f
> Sheets("Hoja2").Cells(f, 2).Value = t
> f = f + 1
> End If
> End If
> i = i + 1
> Wend
> MsgBox ("Terminado!")
> End Sub
> Voy a mirar los links que me mandaste. Si tengo exito te chiflo...