24-12-2008, 02:14 AM
هذا التنسيق من الكود الذي وضعته و هو كما طلبته تماماً :confused:
![[صورة: 12yy7.gif]](http://img126.imageshack.us/img126/184/12yy7.gif)
الصفحات : 1 2
24-12-2008, 02:30 AM
لا، التاريخ بالتمرين من الشكل dd/mm/yyyy
25-12-2008, 11:50 AM
السلام عليكم و رحمة الله و بركاته
الحل - أن أوفق
الحل - أن أوفق
PHP كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
var
Fil:String;
M,J,A:Integer;
begin
Fil :='';
M:=(Combobox1.ItemIndex+1);
A := 2008;
case M of
1,3,5,7,8,10,12 : j := 31;
4,6,9,11 : j := 30;
2 : if (A mod 4)=0 then j:= 29 else j := 28;
end;
fil := 'Date>=''01/'+formatfloat('00',M)+'/'+Formatfloat('0000',A)+''' and date<='''+Formatfloat('00',j)+'/'+formatfloat('00',M)+'/'+Formatfloat('0000',A)+'''';
Table1.Filtered:=true;
Table1.Filter:=Fil;
end;
25-12-2008, 12:38 PM
taha_gh فكرة تشبه قليلا فكرة hanipino
وهو اول كود صحيح
والسلام عليكم
26-12-2008, 12:28 PM
اليوم اخر يوم للتمرين
وهذا حلي
PHP كود :
var
m,y: word;
d1,d2 : TDateTime;
begin
DateSeparator:='/';
ShortDateFormat:='DD/MM/YYYY';
m:= ComboBox1.ItemIndex + 1; if m=0 then Exit;
y := 2008;
d1:=EncodeDate(y,m,1);
if m=12 then d2:=EncodeDate(Y+1,1,1) else
d2:=EncodeDate(Y,M+1,1);
d2 := d2 -1 ;
Table1.Filter := '(Date>='+QuotedStr(DateToStr(d1))+') and (Date<='+QuotedStr(DateToStr(d2))+')';
Table1.Filtered := True;
end;
ملاحظة أول تعليمتين من المفترض وضعهما في الحدث OnCreate للForm الرئيسية لاننا نحتاج تنفيذهما مرة فقط
والسلام عليكم
26-12-2008, 01:18 PM
اووووووووو DaltaAziz واش نحكيلك سيلييييييما ...
هذا هو لب التمرين . مشكور .
هذا هو لب التمرين . مشكور .
إقتباس : DateSeparator:='/';
ShortDateFormat:='DD/MM/YYYY';
EncodeDate
26-12-2008, 02:36 PM
hanipino هي مجرد طريقة ويوجد الكثير غيرها
لكي تعم الفائدة
الطرق الاربع بتعديل بسيط لكي تكون صحيحة حسب التمرين بالمرفق
كل طريقة بزر Button
والسلام عليكم
22-01-2009, 04:37 PM
والله يا عزيز يعطيك الصحة
25-01-2009, 05:30 PM
السلام عليكم يا اخي عزيز سؤال من فضلك حول هذا التمرين ؟
هل يجب تغير السنة كل سنة او كبف الحل
هل يجب تغير السنة كل سنة او كبف الحل
25-01-2009, 09:26 PM
السنة هي المتغير y يمكنك تغييره بما تشاء
ان كنت تقصد شيئ اخر اوضح اكثر في موضوع جديد في قسم الاسئلة
والسلام عليكم
الصفحات : 1 2