Boa tarde, Senhores
Gostaria de uma ajuda no seguinte desenvolvimento, preciso apresentar para o meu cliente um tempo total de pesquisa, essa apresentação deve ser feita da seguinte maneira: O operador irá inserir uma data inicial e uma data final, preciso mostrar as horas decorridas, exemplo: 13/08/18 00:00:00 (Data Inicial), 14/08/18 00:00:00 (Data final). Então o valor que deverá ser apresentado é : 24:00:00.
Grato pela atenção de todos.
@Matheus, boa tarde.
Pode utilizar a função DateDiff.
Exemplo (utilizado o do link):
fromDate = "13/08/18 00:00:00"
toDate = "14/08/18 00:00:00"
result = DateDiff("h",fromDate,toDate)
MsgBox result
Sds.
Com as horas deu certo, porém necessito de apresentar também os minutos, no caso o DateDiff apresenta somente a hora com esse comando, fiz alguns testes porém sem sucesso.
Segue abaixo o script q estou tentando fazer:
hFinal = cDate(Application.Item("REL_DataFinal").Value)
hInicial = cDate(Application.Item("REL_DataInicial").Value)
seg = DateDiff("s",hFinal,hInicial)
hdec = seg/3600
hint = Round(hdec,0)
auxmin = abs(abs(hint)-abs(hdec))
auxh = abs(abs(hdec) - abs(auxmin))
min = auxmin*60
if min < 1 then
min = 0
end if
Application.Item("TempoTotalPesq(horas)").Value = abs(auxh)
Application.Item("TempoTotalPesq(min)").Value = abs(min)
Grato pelo apoio
@Matheus, boa tarde.
Para usar os minutos, utiliza o filtro ‘n’:
hFinal = cDate(Application.Item("REL_DataFinal").Value)
hInicial = cDate(Application.Item("REL_DataInicial").Value)
horas = DateDiff("h",hInicial,hFinal)
minutos = DateDiff("n",hInicial,hFinal)
Sds.
_
_
_
EDIT 1: Desculpe-me, @Matheus, interpretei errado sua segunda solicitação. O que precisa é o tempo total entre duas datas, então, neste caso, pode fazer dessa forma:
hFinal = cDate(Application.Item("REL_DataFinal").Value)
hInicial = cDate(Application.Item("REL_DataInicial").Value)
total = hFinal-hInicial
No display, formatar [H]:mm:ss e o Value como Date.
Deu certo @Fernando, muito obrigado.
Porém agora estou tentando apresentar em um relatório, só que quando chamo no relatório o valor da minha tag apresenta em dias, alguma sugestão ?
Grato pelo apoio
Funcionou, muito obrigado (y)