Código Delphi [-]
 uses
   DateUtils;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   hora: TTime;
 begin
   // 2 más de la hora actual
   hora := IncHour(now, 2);
   // 2 menos de la hora actual
   hora := IncHour(hora, -2);
   // Mostramos la hora actual
   ShowMessage(TimeToStr(hora));
 end;

Código Delphi [-]
Var
  Horas : Double;
Begin
  Horas := dtpHoraFinal.DateTime - dtpHoraInicio.DateTime;
  ShowMessage(Format('Las horas transcurridas (en decimal) son: %5.3d', [Horas * 24]));
  //mostrará 3.5 horas para 3:30, 10.3333 para 10:20, etc.

Código Delphi [-]
//calcula cantidad de horas
 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DateUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  fecha : string;
  Tfecha1 : TDateTime;
  Tfecha2 : TDateTime;
begin
  fecha := datetostr(DateTimePicker1.Date) + ' ' +
           timetostr(DateTimePicker2.time);
  Label1.Caption := fecha;
  Tfecha1 := strtodatetime(fecha);
  Label2.Caption := datetimetostr(Tfecha1);

  fecha := datetostr(DateTimePicker3.Date) + ' ' +
           timetostr(DateTimePicker4.time);
  Label3.Caption := fecha;
  Tfecha2 := strtodatetime(fecha);
  Label4.Caption := datetimetostr(Tfecha2);

  Label5.Caption :=  inttostr(HoursBetween(tfecha2 , tfecha1));
end;

end.

Código Delphi [-]
  ShowMessage(TimeToStr(DateTimePicker_HraFin.Time - DateTimePicker_HraIni.Time));

Código Delphi [-]
 Edit1.Text:= FormatDateTime('hh.mm.ss',Time);

Código Delphi [-]
var
hora1, hora2: TTime;
horat: TTime;
begin
   hora2:= StrToTime(Edit2.Text);
   hora1:= StrToTime(Edit3.Text);
   horat := hora1 - hora2;
   Edit4.Text:= TimeToStr(horat) ;
end;

Código Delphi [-]
Marcado.Rows[i][8]:= IntToStr( MinutesBetween(StrToTime(Marcado.Rows[i][3]),StrToTime(Marcado.Rows[i][2])) 
                                                    + MinutesBetween(StrToTime(Marcado.Rows[i][5]),StrToTime(Marcado.Rows[i][4]))
                                                    + MinutesBetween(StrToTime(Marcado.Rows[i][7]),StrToTime(Marcado.Rows[i][6])));

Código Delphi [-]
   i : Integer;
   Ent1, Ent2, Ent3 : TTime;
   Sal1, Sal2, Sal3 : TTime;
begin
     i:= 1;
     For i:=1 to Marcado.RowCount-1 Do
         Begin
               If Marcado.Rows[i][2] = ' ' Then Ent1 := StrToTime('0') Else Ent1 := StrToTime(Marcado.Rows[i][2]);
               If Marcado.Rows[i][3] = ' ' Then Sal1 := StrToTime('0') Else Sal1 := StrToTime(Marcado.Rows[i][3]);
               If Marcado.Rows[i][4] = ' ' Then Ent2 := StrToTime('0') Else Ent2 := StrToTime(Marcado.Rows[i][4]);
               If Marcado.Rows[i][5] = ' ' Then Sal2 := StrToTime('0') Else Sal2 := StrToTime(Marcado.Rows[i][5]);
               If Marcado.Rows[i][6] = ' ' Then Ent3 := StrToTime('0') Else Ent3 := StrToTime(Marcado.Rows[i][6]);
               If Marcado.Rows[i][7] = ' ' Then Sal3 := StrToTime('0') Else Sal3 := StrToTime(Marcado.Rows[i][7]);
               Marcado.Rows[i][8] := IntToStr(MinutesBetween(Sal1,Ent1)+ MinutesBetween(Sal2,Ent2)+ MinutesBetween(Sal3,Ent3));
         End;

Código Delphi [-]
ShowMessage(FormatDateTime('HH:MM:SS', DateTimePicker2.Time-DateTimePicker1.DateTime));

Código SQL [-]
Select Per_Nro, Hor_Tipo, 
       CONVERT(Char(10), Hor_Fecha, 103) As Fecha, 
       CONVERT(Char(8), Hor_Fecha, 108) As Hora
From Horario
Where Per_Nro=1015
Order By Fecha, Hora

Código Delphi [-]
     Marcado.RowCount :=  Trunc(vFecH.Date - vFecD.Date)+2;
     i:= 1;
     For i:=1 to Marcado.RowCount-1 Do
         Begin
         Marcado.rows[i][0] := FormatDateTime('ddd', (Trunc(vFecD.Date-1)+i));
         Marcado.rows[i][1] := DateToStr(Trunc(vFecD.Date-1)+i);
         End;

Código Delphi [-]
     i:= 1;
     For i:=1 to Marcado.RowCount-1 Do
         Begin
              Datos.AQ_Horario.First;
              While Not Datos.AQ_Horario.Eof Do
              Begin
                   if Datos.AQ_Horario['Fecha'] = StrToDAte(Marcado.Rows[i][1]) Then
                   If Datos.AQ_Horario['Hor_Tipo'] = 0 Then
                      Begin
                           if Marcado.Rows[i][3] = '' Then
                              Marcado.Rows[i][3] := Datos.AQ_Horario['Hora']
                           Else
                           if Marcado.Rows[i][5] = '' Then
                              Marcado.Rows[i][5] := Datos.AQ_Horario['Hora']
                           Else
                              Marcado.Rows[i][7] := Datos.AQ_Horario['Hora'];
                      End
                   Else
                      Begin
                           if Marcado.Rows[i][2] = '' Then
                              Marcado.Rows[i][2] := Datos.AQ_Horario['Hora']
                           Else
                           if Marcado.Rows[i][4] = '' Then
                              Marcado.Rows[i][4] := Datos.AQ_Horario['Hora']
                           Else
                              Marcado.Rows[i][6] := Datos.AQ_Horario['Hora'];
                      End;
                   Datos.AQ_Horario.Next;
              End;
         End;

Código Delphi [-]
uses DateUtils;

function TruncateSeconds(const AValue: TDateTime): TDateTime;
begin
  Result := AValue - SecondOf(AValue) / SecsPerDay;
end;

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
begin
  Label1.Caption := DateTimeToStr(Now) + ' => ' + DateTimeToStr(TruncateSeconds(Now));
  Label2.Caption := DateTimeToStr(DatePicker1.DateTime) + ' => ' + DateTimeToStr(TruncateSeconds(DatePicker1.DateTime));
end;