Saat değerini dk olarak hesaplatma

[halil1910]

Arkadaşlar mrb. Aranıza yeni katıldım.bu sitede delphi üzerine güzel paylaşımlar olduğunu gördüm.bende kendi çapımda uğraşıyorum delphi ile.
takıldığım bir konu var.bunu sormak istiyorum.yardım ederseniz sevinirim.
Datetimepicker dan elde edilen 02:45:06 tipinde saat değerini edite alıyorum stringe çevirip. bu değeri başka bir edit te nasıl dk ya çevirebilirim.yani başka bir edit te 165 dk olarak yazacak.saniye kısmı önemli değil. şimdiden vereceğiniz fikirler için tşk ediyorum.

[sabanakman]

Elde ettiğiniz TDateTime tipi aslında sayısal bir tiptir (TDateTime = type Double;) ve ondalık kısmı günün kaçta kaçı ise ona karşılık gelir. Mesela saat 12:00 ise günün yarısı olan 0.5 değerini elde edersiniz. Bu değeri 1440 ile çarpmak (24x60) istediğiniz dakika değerini verecektir.

Kod: Tümünü seç

var t:TDAteTime;
begin
  t:=StrToTime('02:45:06');
  edit1.Text:=IntToStr(Round(t*1440));//1440=24x60
end;

[halil1910]

hocam tşk ederim.oda bir çözüm ama ben onu şu şekilde çözdüm.
uses kısmına DATEUTILS ekliyoruz.Ve aşağıdaki kodla dk
olarak aldım.
edit3.text:= floattostr(MinuteSpan((strtodatetime(edit1.text)), (strtodatetime(edit2.text))));

Ama bu aldığım değeri case of yapısında kullanamıyorum.integer değer olmadığı için.başka nasıl bir döngünün içinde kullanabilirim sizce __??

[SimaWB]

Kod: Tümünü seç

var
  saat, dakika: string
  toplam: integer;
begin
  saat := Copy(Edit1.Text, 1, 2);
  dakika := Copy(Edit1.Text, 4, 2);
  toplam := ( StrToIntDef(saat,0) * 60 ) + StrToIntDef(dakika, 0);
  case toplam of
  ....
  ...


end;