مشكلة في حسابات تتعلق بالزمن والتاريخ

[مهدي]

و عليكم السلام و رحمة الله

وجبة الغذاء تبدأ من الساعة 11:01 وتنتهي على الساعة 14:00
وجبة العشاء تبدأ من الساعة 18:00 وتنتهي على الساعة 21:00
المبيت يبدأ من الساعة 00:00 وتنتهي على الساعة 05:00

ملاحظة أولية خطأ في السطرين الأخيرين و الصواب

وجبة الغذاء تبدأ من الساعة 11:01 وتنتهي على الساعة 14:00
وجبة العشاء تبدأ من الساعة 18:01 وتنتهي على الساعة 21:00
المبيت يبدأ من الساعة 00:01 وتنتهي على الساعة 05:00

ثانيا حسب ما فهمت في حال كانت مؤسستك هي التي تتكفل بالإيواء

أخي مروان المثال يحسب عدد المبيت بعد الخروج من المؤسسة في فندق مثلا أي الداخل في فترة المهمة، أي بمجرد عودته يسقط المبيت.

فالكود يكون كالتالي

كود :

procedure TForm1.Button1Click(Sender: TObject);
var t1,t2:tdatetime;
   i,h,i1,j:integer;
   s:string;
begin
//
i:=0;
while DateTimePicker1.date+i<DateTimePicker2.date do
begin
i:=i+1;
end;
t1:=strtotime('11:00:00')     ;
t2:=strtotime('14:01:00')     ;
i1:=0;
j:=0;
if (DateTimePicker3.Time<=t1) and (DateTimePicker4.Time>=t1) or
(DateTimePicker3.Time>=t1) and (DateTimePicker3.Time<=t2)  then
j:=1;
dbedit5.text:=inttostr(i-1+j);
//

//
t1:=strtotime('18:00:00')     ;
t2:=strtotime('21:01:00')     ;
i1:=0;
j:=0;
if (DateTimePicker3.Time<=t1) and (DateTimePicker4.Time>=t1) or
(DateTimePicker3.Time>=t1) and (DateTimePicker3.Time<=t2)  then
j:=1;
dbedit6.text:=inttostr(i-1+j);
//
t1:=strtotime('00:00:00')     ;
t2:=strtotime('05:01:00')     ;
i1:=0;
j:=0;
if (DateTimePicker3.Time<=t1) and (DateTimePicker4.Time>=t1) or
(DateTimePicker3.Time>=t1) and (DateTimePicker3.Time<=t2)  then
j:=1;
dbedit7.text:=inttostr(i-1+j);
//
end;

غير أنه أخطأ مع المثال الثالث