بسم الله الرحمن الرحيم
اخوتي الأعزاء اليكم هذه الهديه البسيطه
وهي عبارة عن كود تقوم بتحديد التاريخ وهو يعلمك ايش هو يومه
يعني مثلا تقول له 2/5/2002
هو يعلمك ايش هو موقع هذا اليوم يعني يوم السبت او الأحد ..
اليكم الكود :
- var
- ADate: TDateTime;
- days: Array [1..7] of string;
- begin
- days[1] := 'الأحد';
- days[2] := 'الأثنين';
- days[3] := 'الثلاثاء';
- days[4] := 'الأربعاء';
- days[5] := 'الخميس';
- days[6] := 'الجمعه';
- days[7] := 'السبت';
- ADate := StrToDate(Edit1.Text);
- ShowMessage(days[DayOfWeek(ADate)]);
- end;
وتقببلوا تحياتي اخوكم SUM