Somando Horas

[Guest - Fernando -]

Tendo uma lista de horas, gostaria de saber se existe alguma funcão que some de forma adequada automaticamento. Por exemplo:

02:15:00

1:50:30

total: 04:05:30

Claro que a list de horas será muito grande.

Valeu

[Graymalkin]

Dê uma olhada neste exemplo:

    h1 = TimeSerial(2, 15, 0)
    h2 = TimeSerial(1, 50, 30)
    Debug.Print h1, h2, h1 + h2

Certo?

Graymalkin

[Guest - Fernando -]

Mais uma vez, obrigado!

[Graymalkin]

Beleza.

Aproveita e se cadastra aí no fórum, pra ajudar a nossa comunidade a crescer.

Abraços,

Graymalkin

[Guest - Fernando -]

OK, mas só mais uma questão.

Somando as horas do jeito que você mostrou, quando excede 24:00:00, ele acrecenta uma data na frente. Por exemplo: quando a soma de vários valores chegou a 23:45:00, tentei somar mais 1:30:00. Em vez de ficar 25:15:00, ficava como abaixo:

31/12/1899 1:15:00

Sei que o VB trata tudo como dia, mas que função posso usar para continuar somando, sem transformar em data?

Mais uma vez obrigado.

[Graymalkin]

Sim, para o VB a noção de tempo sem os dias não é completa, por isso a data aparece no caso. Isso já tinha até sido comentado em outro tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=35586

Nesse mesmo tópico existe uma solução para isso.

Abraços,

Graymalkin