nedtælling til indtastet tidpunkt

En Label (Label1), en Edit (edEndTime), en Button (btnStart) og en Timer (Timer)...

procedure TForm1.btnStartClick(Sender: TObject);
begin
  EndTime := StrToDateTime(edEndTime.Text);
  Timer.Enabled := True;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
  if Frac(Now) > EndTime then
    Label1.Caption := FormatDateTime('hh:nn:ss',1 - (Frac(Now) - Frac(EndTime)))
  else
    Label1.Caption := FormatDateTime('hh:nn:ss',Frac(EndTIme) - Frac(Now))
end;

Den duer ikke helt....

Hvis man sætter det ene tidspunkt til 21:00:00, og det andet til 03:00:00
så skriver den at forskellen er 18:00:00 - og det passer jo ikke helt - det er jo 6:00:00

Hvis mig lige hele din kode... I mit eks. er der kun et tidspunkt at sætte - sluttidspunktet

Jeg har brug for, at begge tidspunkter er noget jeg indtaster

procedure TMainform.BtnStartDelayClick(Sender: TObject);
var
Tid1,tid2: Tdatetime;
begin

If RadioWhishDone.Checked = true Then
Begin
Tid1 := strtotime('03:00:00');
tid2 := strtotime('21:00:00');

if Frac(tid1) > tid2 then
  Label3.Caption := FormatDateTime('hh:nn:ss',1 - (Frac(tid1) - Frac(tid2)))
else
  Label3.Caption := FormatDateTime('hh:nn:ss',Frac(tid2) - Frac(tid1));

label3.Caption := datetimetostr(datetimediff(tid1,tid2));
End;

har prøvet at bytte om på tid1 og tid2 - men det giver samme resultat

Jamen, så er forudsætningerne jo lidt anderledes...

Skal det så forstås, at hvis du taster '22:00' i starttid og '23:00' i sluttid, så skal der ligegyldigt hvad kl. ellers er tælles 1:00,0:59 etc?

yeps

og start = 23:00:00, slut = 01:00:00
så skal der tælles:
2:00:00 .. 1:59:59 .. 1:59:58 ......

Denne skulle virke...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer: TTimer;
    edEndTime: TEdit;
    btnStart: TButton;
    Label1: TLabel;
    edStartTime: TEdit;
    procedure btnStartClick(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
  private
    { Private declarations }
    EndTime : TDateTime;
    TimeDiff : TDateTime;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btnStartClick(Sender: TObject);
var
  StartTime,EndTime : TDateTime;
begin
  StartTime := StrToTime(edStartTime.Text);
  EndTime := StrToTime(edEndTime.Text);
  if StartTime > EndTime then
    TimeDiff := (1 - (StartTime - EndTime)) + Now
  else
    TimeDiff := (EndTime - StartTime) + Now;
  Timer.Enabled := True;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
  Label1.Caption := FormatDateTime('hh:nn:ss',TimeDiff - now);
end;

end.

Altså du beregner tidsforskellen mellem dit start og sluttidspunkt. Denne ligger du til kl. NU og så er det en simpel ting at tælle ned..

takker du... Så virker det :D

:-)