قياس الزمن

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
'آينشتاين' هنا ويسأل عن "قياس الزمن"
هذا تابع يعيد النتيجة بالنمط: يوم/ساعة/دقيقة/ثانية.ميلي-ثانية

PHP كود :

function MSecToTime(mSec: Int64): string;
var
  dt : TDateTime;
begin
   dt := mSec / MSecsPerSec / SecsPerDay;
   Result := Format('%d Day, %s Second', [Trunc(dt), FormatDateTime('hh:nn:ss.z', Frac(dt))]) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  t1, i: cardinal;
begin
  t1 := GetTickCount;
  i := 0;
  repeat
    Inc(I);
    Caption := IntToStr(I);
  until
    I = 10000;
  ShowMessage(MSecToTime(GetTickCount - t1));
end; 


نشكر الأستاذ خالد الشقروني على مساهماته في المنتدى
جزاك الله خيرا أستاذ ونفع الله بعلمك
بالتوفيق.