DateDiff retornando horas, muntos e segundos como?

Question

preciso retornar as horas, minutos e segundos em SQL atrav�s da fun��o DateDiff tem como implementar? pois o detediff retorna a diferen�a entre horas a cada 60 minutos exemplo:se o funcion�rio entrou ...

Djjunior · Answer

fa�a somente a subtra��o das horas e formate (se for via sql veja o cast/convert) se for via Delphi por exemplo use um formatDateTime.

lembrando que campos dataHora s�o na realidade do tipo Float onde a parte inteira s�o os dias e a fra��o as horas.

Joao_arthur · Answer

amigo subtrair as horas n�o � correto pois o pc pode ta configurado pra trabalhar como 24h ou 12h entendeu e tem mais se o funcion�rio entrar pra trabalhar em um dia e sair no outro vai calcular errado.

Djjunior · Answer

Com rela��o a configura��o de 12 ou 24 tanto faz.

Se voc� estiver guardando a data junto com a hora n�o d� erro n�o

O problema � s� na hora de exibir formatar as horas, mas isso s� se o resultado der mais de 24 que zera, n�o sei como fazer em sql, no Delphi eu fiz umas fun��es pra formatar a hora em dias/h:m:s ou [hh]:mm:ss, se quizer lhe passo depois.

Joao_arthur · Answer

ok junior se der pra voc� passar pra mim eu agrade�o carajoao_moreira_97@hotmail.comvalew cara....

Djjunior · Answer

Ta�, nesse exemplo vc vai precisar de 4 Edits e um button no seu form

function FormatHoras(time: double; havDay: boolean): string;
var dias, horas: double;
 Pos1, horas24: integer;
 aux1: string;
begin
  dias  := trunc(time);
  horas := frac(time);

  if havDay then
 Result := FloatToStr(dias) + �d � + TimeToStr(horas)
  else begin
 aux1 := TimeToStr(horas);
 pos1 := pos(�:�, aux1);
 horas24 := StrToInt(copy(aux1, 1, pos1 -1)) + (trunc(dias) * 24);
 Result  := IntToStr(horas24) + Copy(aux1, pos1, Length(aux1));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var dt1, dt2: tdatetime;

begin
  dt1        := StrToDateTime(Edit1.Text);
  dt2        := StrToDateTime(Edit2.Text);
  Edit3.Text := FormatHoras(dt2 - dt1, True);
  Edit4.Text := FormatHoras(dt2 - dt1, False);
end;

O que voc� tem que ter em mente � que
15/01/08 09:02 � igual a 39.462,376388888900 vc pode ver isso no excel por isso que funciona simplesmente fazer um menos o outro, e que tanto faz seu computador estar setado para 12 ou 24 horas.

Joao_arthur · Answer

ok junior valeu cara......