Saat toplamı...

[brs]

İyi günler;

Media playlistteki süreleri toplama işlemi yaptırıyorum, fakat saat toplamı yirmi dört saati aşınca hata alıyorum bu durumu nasıl aşabilirim???

Açıklama: ilk önce playlistte bulunan saatleri toplamını saniye çeviriyorum, daha sonra saniyeyi saate çeviriyorum fakat bu seferde resimdeki hata oluşuyor.



Saatlerin toplamı örnek: 28:00:00 olarak almak istiyorum...

Playlisteki saatlerin topluyorum;

Kod: Tümünü seç

  for I := VIndexNo to Items.Count - 1 do
  begin
  NextT := NextT+ StrToTime(Items[I].SubItems[4]);
 end;

Sonrasında saati saniyeye çeviriyorum;

Kod: Tümünü seç

Function ConvertNextInt(Asecond: Int64): String; // Conver integer to time
var
  Tmp: Integer;
begin
  Tmp := (Asecond mod 3600);
  Result := Format('%.2d:%.2d:%.2d', [(Asecond div 3600), (Tmp div 60),
    (Tmp mod 60)]);
end;

Son olarak saniyeyi saate çeviriyorum;

Kod: Tümünü seç

Function ConvertNextTime(TheTime: TTime): Int64; // Saati saniyeye çevir
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(TheTime, Hour, Min, Sec, MSec);
  Result := (Hour * 3600000) + (Min * 60000) + (Sec * 1000) + MSec;
end;

Sonuç labele veriyorum...

Kod: Tümünü seç

NextToplam.Caption := TimeToStr(StrToTime(ConvertNextInt(NSaniye)));

[freeman35]

"24:53:11" tebrikler, günü uzatmayı başarmışsın
zaman formatlama function larını kullanırsan bu hatayı alırsın, mantıklısı bence "1 gün 00:53:11" şeklinde olmalı.

[brs]

usdat haklisiniz, 24:00 diye bir saat dilimi yok biliyorum, ama maalesef ki ilk mesejımda belirtigim gibi toplami 25;00:00 diye yaptirmam gerek...

[freeman35]

dediğim gibi onu ancak kendin format('%d:%d:%d',[x,y,z]); şeklinde yaptırtabilirsin, tarih functionları gün 24 saattir diye diretir.

[brs]

functionlarla pek aram iyi değil, vaktiniz varsa yardımcı olabilir misiniz...

[SimaWB]

Yanlış anlamadıysam siz zaten istediğiniz formatı ConvertNextInt fonksiyonu ile sağlamışsınız. Problem, bunu önce saat'e sonra stringe çevirmeye çalışırken oluşuyor. Sizin fonksiyondan dönen değer zaten string olduğu için direk label'ın caption'ına atabilirsiniz.