السلام عليكم
أريد معرفة كود إعطاء عدد الأيام بين تاريخين بالشهر المحاسبي. أي أن جميع عدد أيام الأشهر تساوي 30 يوم حتى شهر فيفري.
وشكر
عدد الأيام بين تاريخين بالشهر المحاسبي
Sa Mu كتب:السلام عليكم
أريد معرفة كود إعطاء عدد الأيام بين تاريخين بالشهر المحاسبي. أي أن جميع عدد أيام الأشهر تساوي 30 يوم حتى شهر فيفري.
وشكر
السلام عليكم
محاولة على السريع .
var
datefrom, dateto : TDateTime;
Totaldays : integer;
begin
datefrom := EncodeDate(2010, 2, 1); // feb =28
dateto := EncodeDate(2010, 3, 1); // March = 31
Totaldays := DaysBetween(datefrom, dateto);
// just some hacks
if Totaldays=28 then Totaldays:=30
else
if Totaldays=31 then Totaldays:=30 ;
//
ShowMessage(format('Total days = %d',[Totaldays]));
end;لا تنسى ان تضيف الوحدة : DateUtils
عزيزي :
لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .
فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم
*****
وسّع المجال أنت أخذت فرق شخر واحد فقط
خذ هذا المثال :
01/01/201 إلى 31/07/2013
Sa Mu كتب:وسّع المجال أنت أخذت فرق شخر واحد فقط
خذ هذا المثال :
01/01/201 إلى 31/07/2013
اخي الكريم Sa Mu وسّع انت المثال اقصد ابداء من الكود وحاول توسيعه المطلوب ليس صعبا جدا فقط دقيقة او دقيقتين من التركيز .
عزيزي :
لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .
فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم
*****
Sa Mu كتب:وسّع المجال أنت أخذت فرق شخر واحد فقط
خذ هذا المثال :
01/01/201 إلى 31/07/2013
جرب هذا الكود المعدل والبسيط جدا
procedure TForm1.Button1Click(Sender: TObject);
var datefrom, dateto : TDateTime;
Jour,Totaldays : integer;
begin
datefrom := DateTimePicker1.Date; //EncodeDate(2010, 2, 1); // feb =28
dateto := DateTimePicker2.Date; //EncodeDate(2010, 3, 1); // March = 31
jour:=1;
Totaldays := DaysBetween(datefrom,dateto+jour);// just some hacks
if Totaldays=28 then
Totaldays:=30
else
if Totaldays=31 then
Totaldays:=30 ;//
if dateto < datefrom then
begin
showmessage('فترة التاريخ غير صالحة');
exit;
end;
ShowMessage(format('Total days = %d',[Totaldays]));
end;
أطلب العم من المهد إلى اللحد