اضافة اليوم والتاريخ الى جدول

اضف كل الايام

ثم ارجع لاول تاريخ

ان وجدته خميس احذفه

ان وجدته جمعة احذفه

انت قل للتاريغ الموالي

كرر العملية :lol:

شكرا اخي محمد

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

هل بالامكان كتابة الكود

ابو محمد ع كتب:

هل بالامكان كتابة الكود

اكتب محاولتك ونحن نساعدك

هذا الكود يحدد اليوم في تاريخ التي يتم ادخالها في Edit1

var
  ADate: TDateTime;
  days: array[1..7] of string;
begin
  days[1] := 'Sunday';
  days[2] := 'Monday';
  days[3] := 'Tuesday';
  days[4] := 'Wednesday';
  days[5] := 'Thursday';
  days[6] := 'Friday';
  days[7] := 'Saturday';
  ADate := StrToDate(Edit1.Text);
  ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)]);

end;

وهذا الكود لطرح تاريخين

Edit1.Text:= IntToStr(trunc(DateTimePicker1.Date) - trunc(DateTimePicker2.Date));

عسي ان يفيدك هذا

الامر بسيط جدا، شيئ مثل هذا، حيث D1 و D2 التاريخين

   D := D1;
   Repeat
	  if (DayOfWeek(D)<>5)
	  and(DayOfWeek(D)<>6)
	  then Begin
		 Table1.Insert;
		 Table1.FieldByName('D').AsDateTime := D;
		 Table1.Post;
	  End;
	  D := D + 1;
   Until D=D2;

المثال مرفق

Example1.rar

اسأل الله العظيم ان يبارك فيك وفي علمك وان يحرم جسدك على النار

امين

ابو محمد

كلنا ان شاء الله

اي سؤال اخر اكتبه ولا تستحي، كلنا نتعلم...