برنامج مواقيت الصلاة لكل ولايات الوطن ( للجزائر فقط )

[onexite]

PHP كود :

// اقرب صلاة
  function PPray:PTime;
  var i:0..5;
  begin
  for i := 0 to 5 do
 if GlobelTimes[i]-time > 0 then
 begin
 Result.Time:=GlobelTimes[i];
 Result.Position:=i;
 Result.Name:=salat[i];
 Result.TimeStr:=GlobelStr[i];
 Break;
 end;
end; 


PHP كود :

type

PTime = record
  Time: TDateTime;
  Position: Byte;
  Name:string;
  TimeStr:string;
  end;