|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Retornar a diferença entre dois horários
|
 |
|
|
|
Postada em 7/7/2003 por Lúcia
Esta função retorna a diferença de horas.
Private Function RetornaHoraDif(hinicio,hfim)
Dim DifHora
DifHora = DateDiff ("n",hinicio,hfim)
RetornaHoraDif = (DifHora / 60)
End Function
Para utilizar a função basta passar os parametos da Hora Inicia e da Hora Final, exemplo:
DifHoras = + RetornaHoraDif(rstsheet("TiHoraInicialTim"),rstsheet("TiHoraFinalTim"))
|
|
|
|
|
