Extraer de un date mm:ss

[ELIZABETHFACCI]

Hola, buenas tardes:

Les cuento mi problemilla, ojalá puedan ayudarme:

Pues bien, estoy haciendo una macro que me evalue tiempos, en base a una columna de celdas,

les platico, tengo tres casos de tiempos:

1.- dato_time >5:00:00 y dato_time <=9:30:00 ->conteo (checada= checada+1)

2.- dato_time <=5:00:00 -> Sumarlo el tiempo tal cual (acumulado=acumulado+tiempo_celda)

3.- dato_time >12:00:00 y dato_time<1:00:00 ->sumar únicamente minutos y segundos, no tomar en cuenta el la hora (el 12)

Lo empezé a codificar de ésta forma:

cad = Sheets(strnombrehoja$).Cells(fila, 15)

  cad = Format(TimeValue(cad), "HH:MM:SS")


      If cad > "05:00:00 a.m." And cad <= "09:30:00 a.m." Then

      checada = checada + 1

      Else

        If cad <= "05:00:00 a.m." Then

            tiempo = tiempo + cad

            Else

            If cad > "12:00:00 a.m." And cad < "01:00:00 a.m." Then

'              tiempo_total=.........como extraer solo los minutos y segundos para sumarlos?

              tiempo = tiempo + tiempo_total

              End If

          End If

        End If

        [/CODE]

Como extraer el valor de mm:ss para poder sumarlo al acumulado de tiempo_total?

Help me!

[AlexanderS]

Te dejo un ejemplo para extraer las horas, minutos y segundos:

hora = "12:00:55" 'asignamos una hora cualquiera

h = Format(Hour(hora), "00") ' extraemos la hora en este caso 12

m = Format(Minute(hora), "00") ' extraemos los minutos en este caso 00

s = Format(Second(hora), "00") ' extraemos los segundos en este caso 55

ti = h & ":" & m & ":" & s ' los unimos todos[/CODE]

PD. No funciona si le agregas el am o pm.

Salu2

[ELIZABETHFACCI]

Muchas Gracias!. Doy el tema por SOLUCIONADO.