aktarım süresi alma

[vedatkaba]

Kod: Tümünü seç

function TForm21.getMinute(T: TDateTime): Word;
var Hour, Min, Sec, MSec: Word;
begin
DecodeTime(T,Hour, Min, Sec, MSec);
  result:=Min;
end;

function TForm21.getMSecond(T: TDateTime): Word;
var Hour, Min, Sec, MSec: Word;
begin
 DecodeTime(T,Hour, Min, Sec, MSec);
  result:=Sec;
end;

function TForm21.getSecond(T: TDateTime): Word;
var Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(T,Hour, Min, Sec, MSec);
  result:=MSec;
end;

Kod: Tümünü seç

procedure TForm21.TimeBench;
var
    T1,T2:TDateTime;
    begin
      ShowMessage('Aktarım Zamanı = '+
      IntToStr((getHour(T2)  -getHour  (T1)))+':'+
      IntToStr((getMinute(T2)-getMinute(T1)))+':'+
      IntToStr((getSecond(T2)-getSecond(T1)))
      );
end;

end.

arkadaşlar buraya kadar tamam hata =

undeclerad identifier:gethour' hatası alıyorum

[fduman]

üstteki func. lara göre bir gethour func. u yazman gerekli.

[fduman]

Bir terslik var. getmsec func'u second'u, getsec func. u da msec'i geri döndürüyor. Tam tersi olmalı. Dikkat et

[vedatkaba]

Kod: Tümünü seç

function TForm21.getMinute(T: TDateTime): Word;
var Hour, Min, Sec, MSec: Word;
begin
DecodeTime(T,Hour, Min, Sec, MSec);
  result:=Min;
end;

function TForm21.getMSecond(T: TDateTime): Word;
var Hour, Min, Sec, MSec: Word;
begin
 DecodeTime(T,Hour, Min, Sec, MSec);
  result:=MSEC;
end;

function TForm21.getSecond(T: TDateTime): Word;
var Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(T,Hour, Min, Sec, MSec);
  result:=Sec;
end;

bu şekilde düzenledim ama yine hata verdi hata bu kez şu nomal çalışıyor ama

result:=msec;

satırında hata verdi
hata

invalid floating point operation

[Hakan Can]

Şunu kullansanız:

ShowMessage('Aktarım zamanı = ' + FormatDateTime('hh:nn:ss.zzz', T2 - T1);


veya şu fonksiyonları kullansanız:

uses DateUtils;

HourOf(T1);
MinuteOf(T1);
SecondOf(T1);
MilliSecondOf(T1);

[vedatkaba]

Olmadı yada ben başaramadım...var bir terslik ama nerde aynı hatayı alıyorum halen daha

gethour , gethourof u kabul etmiyor undeclerad identifer hata sı veriyor

normalde

Kod: Tümünü seç

function TForm21.getMSecond(T: TDateTime): Word;
var Hour, Min, Sec, MSec: Word;
begin
 DecodeTime(T,Hour, Min, Sec, MSec);
  result:=hour;
end;

burada

Kod: Tümünü seç

result:=gethour; 

yerine

Kod: Tümünü seç

result:=getmsec;

yazıyorum program çalışıyor ama aktarım esnasında hata veriyor
hata

invalid floating point operation

hatası veriyor