类型转换的问题，不是很难，大家帮帮忙！

Question

问题是这样的，我或A时间代表上班，和B 时间代表下班 ，然后B时间减去A时间，获得今天的工作时间，因为时间是字符串类型，所以不能相减，我是新手，大家指点，指点。

Answer 1

var 
time1,time2,time3:TDatetime;h,m,s:integer;begintime3:=time1-time2;decodetime(time3,h,m,s);result:=h*3600+m*60+s;end;
 

Answer 2

formatdatetime('hh:mm:ss',strtodate(A)-strtodate(B));

Answer 3

formatdatetime('hh:mm:ss',strtodate(A)-strtodate(B));

Answer 4

formatdatetime('hh:mm:ss',strtodate(A)-strtodate(B));

Answer 5

Trunc(24 * (StrToTime(Time2) - StrToTime(Time1)))

Answer 6

uses DateUtilsHoursBetween(Time2,Time1);

Answer 7

up ehom.
用hoursbetween函數.

Answer 8

var
  i:integer;i:=Trunc(24 * (StrToTime(Time2) - StrToTime(Time1)));oruses DateUtilsi:=HoursBetween(Time2,Time1);这种补充真是别扭啊

Answer 9

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  time1,time2,time3: string;
  h,m,s: integer;
  i:integer;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.caption:=datetimetostr(now);
 time1:=datetimetostr(now);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  label2.caption:=datetimetostr(now);
  time2:=datetimetostr(now);
  begin
  i:=Trunc(24 * (StrToTime(Time2) - StrToTime(Time1)));
  end;
  label3.Caption:=i;
  end;end.错误信息
[Error] Unit1.pas(52): Incompatible types: 'String' and 'Integer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 10

如果有SQL SERVERT的话直接在里面计算，用DATEADD函数