İki zaman arasındaki fark

[DelphiMania]

Selamlar herkese.Sorularıma geçeyim..
- İki zaman arasındaki farkı nasıl alabilirim ?
- İki zamanın toplamını nasıl alabilirim ?
- O anki aktif internet bağlantısının ne kadar süredir aktif olduğunu nasıl öğrenebilirim ya da ne zaman bağlanıldığını...

Bu arada zaman dediğim saat:dakika:saniye şeklinde ya da 1 saat 20 dakika 30 saniye şeklinde de olabilir.İkincisi olabilirse daha iyi olur sanki...

Şimdiden teşekkür ederim cevap verecek herkese...

[Mustafa_Ucar]

Yanlış anladıysam düzeltin, sanırım saat:dakika:saniye biçimindeki iki bilgiyi yine aynı biçimde toplamak ya da çıkarmak istiyorsunuz. 4-5 gün önce ÖSS'ye ne kadar zaman kaldığını gösteren program yazarken yapmıştım bunu

Kod: Tümünü seç

Var
yil,ay,gun,saat,dk,saniye,ms:Word;
SaatFarki,DakikaFarki,SaniyeFarki:String;
z,simdi,oss:LongWord;
zaman:TDateTime;

begin
 zaman:=now();//Now(), şimdiki zamanı veren fonk.
 DecodeDateTime(zaman,yil,ay,gun,saat,dk,saniye,ms); 

 simdi:=saat*3600000+dk*60000+saniye*1000+ms;
 
 oss:=9*3600000+30*60000; // OSS 9:30'da yapılacak.
 //siz oss'ye bu değeri yüklemek yerine ilk iki satırdaki gibi yapın


 //kullanım şeklinize göre şu iki if'den birini seçin;
 if oss<simdi Then oss:=oss+24*3600000;//1 (Bu hep oss'den simdi'yi çıkarmak için)
 if oss<simdi Then                     //2 (Bu ise büyükten küçüğü çıkarmak için)
 begin
  z:=oss;
  oss:=simdi;
  simdi:=z;
 end;  

 z:=oss-simdi;
 SaatFarkı:=IntToStr(z div 3600000); 

 z:=z mod 3600000; 

 DakikaFarki:=IntToStr(z div 60000);
 z:=z mod 60000; 

 SaniyeFarki:=IntToStr(z div 1000);

end;

Gün farkı da öğrenmek istersen o konuda da yardımcı olabilirim
Hayrını gör