Function til udregning af tid..

Hent D6/D7 og brug deres Dato/Tid udregnings rutiner, er meget udvidet i forhold til D4

Har kun en ISDN linie ( Download på ADSL = 1 KR. pr mbyte ) her på Færøerne

( Pænt navn .. Samme som min broder )

Ligger download hos Borland ?? kan være at jeg kan få nogen med adsl nede til at hente den.. )

Hilsen Claus Lind

procedure TForm1.Button1Click(Sender: TObject);
var
  t1, t2: tdatetime;
  paragraf5 : double;
begin

  t1 := StrToTime(Edit1.Text);
  t2 := StrToTime(Edit2.Text);
  paragraf5 := 0.0;

  if (t1 <= StrToTime('06:00')) and (t2 <= StrToTime('06:00'))  then
    paragraf5 := t2 - t1
  else if (t1 >= StrToTime('17:00')) and (t2 >= StrToTime('17:00'))  then
    paragraf5 := t2 - t1
  else if (t1 >= StrToTime('06:00')) and (t2 >= StrToTime('17:00'))  then
    paragraf5 := t2 - StrToTime('17:00')
  else if (t1 <= StrToTime('06:00')) and (t2 <= StrToTime('17:00'))  then
    paragraf5 := StrToTime('06:00') - t1
  else if (t1 <= StrToTime('06:00')) and (t2 >= StrToTime('17:00'))  then
    paragraf5 := (StrToTime('06:00')- t1) + (t2 - StrToTime('17:00'));

  paragraf5 := paragraf5 * 24;
  label1.Caption := format(' %f ', [paragraf5]) ;

end;

Jeg prøvede at poste et svar igår aftes, men Eksperten var nede :(

Her er en løsning med en række if sætninger, virker den i D4 ???

Niels

Tak.. den er OK i Delphi 4



Claus