Attendance System

هذا يعتمد عليك أنت هل المستفيدون من النظام يريدون ضبط القدوم و الأنصراف بوقت معين أو يريدون أمضاء وقت معين دون الأهمية لوقت الدخول والأنصراف

هل هناك وقت إضافي ؟ هل هناك فترة دنيا للتأخر ؟ هل الوقت جزء واحد أو جزئين ؟ هل هناك أكثر من وردية عمل ؟ هل هناك أوقات راحة محسوبة ؟ هل ؟ هل ؟ هل ؟

حدد النظام الذي سيلتزم به الموظفون ثم أصنع برنامجك على أساسه

حدد أهدافك من البرنامج بشكل واضح

الاخ decompiler

اشكر اهتمامك بالموضوع

سوف اوضح بعض الامور الاتى استفسر عنها :

* الحضور والانصراف مضبوط بوقت معين .

* يوجد ساعات عمل اضافية .

* يوجد فترة دنيا للتاخير هى 10 دقايق.

* هل الوقت جزء واحد أو جزئين ؟ (لم افهم ما المقصود منها )

* لايوجد نظام الورديات.

* لاتوجد اوقات راحة محسوبة .

وانتظر منك المزيد ,,

في المرفقات مثال مبسط عن الأمور اللتي حددتها

(قصدت بأكثر من جزء أنه مثلا يدوام الموظف من ال8 لل1 ثم من 4 لل7 )

ملاحظات:

1- لا يحتسب المجيء باكرا ضمن الإضافي

2-يحتسب الذهاب باكرا كأنه تأخير ويحسب من الدقيقة الأولى

3-لايحتسب التاخير في القدوم إن كان أقل من 10 دقائق

3-أي إدخال غير صحيح للوقت سواء وقت الدخول والخروج أو وقت الدوام سيأخذ البرنامج أوقات أفتراضية (هنا وضعت الوقت الأفتراضي للدخول هو 8 والخروج 14 )

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
	Edit1: TEdit;
	Edit2: TEdit;
	Button1: TButton;
	Edit3: TEdit;
	Edit4: TEdit;
	Edit5: TEdit;
	Edit6: TEdit;
	Label1: TLabel;
	Label2: TLabel;
	Label3: TLabel;
	Label4: TLabel;
	Label5: TLabel;
	Label6: TLabel;
	procedure Button1Click(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
start,stop,start0,stop0 : TTime;
cut , add : integer;
begin
cut:=0;
add:=0;
// إذا لم يدخل الوقت بشكل صحيح سيأخذ البرنامج الأوقات الأفتراضية المبينة أما 8 أو 14
start0 := StrToTimeDef(Edit5.Text,StrToTime('8:0:0'));
stop0  := StrToTimeDef(Edit6.Text,StrToTime('14:0:0'));

start := StrToTimeDef(Edit1.Text,StrToTime('8:0:0'));
stop  := StrToTimeDef(Edit3.Text,StrToTime('14:0:0'));


if start >= start0 then
begin
cut:=MinutesBetween(start0,start);
if cut<10 then cut:=0;
end;

if stop < stop0 then
begin
cut:= cut + MinutesBetween(stop0,stop);
end;

if stop > stop0 then
begin
add:= MinutesBetween(stop0,stop);
end;

Edit2.Text:=IntToStr(cut);
Edit4.Text:=IntToStr(add);

end;

end.

time.rar

اخى الكريم

جزاك الله الف خير

اعتقد ان الدالة التى قمت بتكوينها تفى بالغرض فى حساب دقائق التاخير والانصراف قبل المواعيد بصورة ممتازة

ساعمل على اكمال البرنامج غدا صباحاً وسابقيك على علم بكل ما اقوم به ولكنى احتاج اليك اكثر فى عملية تصميم التقارير المرتبطة بمثل هذا النظام

ولك منى كل التقدير والاحترام ,,,