TimeToInt ve/veya TimeToFloat çevirisi

[haydarxxx]

Slmlar
Forumda aradım ama time değerini Int yada Float gibi sayısal değerlere nasıl çevirebiliriz konusunda bir şey bulamadım.String çeviri örnekleri var ama ınt yok.Örneğin Edit deki zaman değeri 00:01:30 gibi olan değer ınteger a yada float değerine nasıl çevriliyor.Aslında yapmak istediğim bir sürenin başka bir süre içindeki yüzdesini bulmak ama time değeri ınt yada float olmadığı için matemtiksel işlem yaptıramıyorum.İlgililere teşekkürler.

[ikutluay]

saat * 3600
+
dakika * 60
+
saniye

yap ikiside integer olur o zaman işlem yaparsın

[haydarxxx]

Hocam time değerindeki saat,dk,saniyeyi nasıl ayıklayacağız

[sabanakman]

Kod: Tümünü seç

var Saat,Dk,Sn,miliSn:Word;
begin
  DecodeTime(Time(),Saat,Dk,Sn,miliSn);
end;

[conari]

tarih & zaman işlemlerinde

Kod: Tümünü seç

decode... 

fonksiyonu kullanıldığı gibi

Kod: Tümünü seç

uses dateutils

ile

Kod: Tümünü seç

MonthOf(DateTimePicker1.Date); //ay
DayOf(DateTimePicker1.Date);//gün
YearOf(DateTimePicker1.Date);//yıl
HourOf(DateTimePicker1.Time)//saat
MinuteOf(DateTimePicker1.Time)//dakika
SecondOf(DateTimePicker1.Time)//saniye

integer sonuc döndürülebilir.

[haydarxxx]

Tmm teşekkürler şu şekilde düzenledim.Burdan hesaplatmaya geçerim artık herhalde .tekrar sağolun

Kod: Tümünü seç

var 
T1: TTime;
Saat, Dakika, Saniye, Salise: Word;
begin
T1 := strtotime(dbEdit1.Text);

DecodeTime(T1, Saat, Dakika, Saniye, Salise);
Edit3.Text := InttoStr(Saat);
Edit4.Text :=Inttostr(strtoInt(edit3.Text)*3600)

Conari verdiğin kod içinde teşekkür ederim şu şekilde bir deneme yaptım oldud.(dbedit deki alanım time)

Kod: Tümünü seç

edit5.Text:=inttostr(HourOf(strtotime(DBEdit1.text)));