24-11-2014, 06:18 PM
وعليكم السلام ورحمة الله تعالى وبركاته.
الفرق هو: 12 ساعة و24 دقيقة
جرب الكود :
أو : الثلث الاخير = المغرب+( ((المغرب-الفجر)/3) *2)
إقتباس :اولا الفرق 11 ساعة و 36 دقيقة
الفرق هو: 12 ساعة و24 دقيقة
جرب الكود :
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
Date1, Date2, DateD : TDateTime;
HH, MM, SS, MS ,dd: Word;
begin
Date1 := StrToDateTime('23/11/2014 17:53:00');
Date2 := StrToDateTime('24/11/2014 06:17:00');;
DateD := Date2 - Date1;
DecodeTime(DateD , HH, MM, SS, MS);
dd:=DaysBetween(Date1, Date2);
if dd >= 1 then HH := HH + dd*24;
Showmessage('الفرق بين التاريخين هو : ' + inttostr(HH) + 'ساعة ' + inttostr(MM) +
' دقيقة'+ inttostr(SS) +' ثانية '+ inttostr(MS)+' جزئ من الألف ');
end;إقتباس :وطريقة الحساب
الثلث الاخير = الفجر - ((المغرب-الفجر)/3)
أو : الثلث الاخير = المغرب+( ((المغرب-الفجر)/3) *2)
وحيداً فريداً في التراب وإنما قرين الفتى في القبر ما كان يعمل