دلفی

[ZX_99D]

میخواهم دو تاریخ را در فیلد های یک table از هم کم کنم؟؟؟

[delphiman]

تاريخ رو با چه فرمتي ذخيره كرديد؟

[lord_viper]

ببین این به دردت میخوره؟
function TfrmMain.Duration(y1,m1,d1,y2,m2,d2:Integer):Integer;
var
day:integer;
begin
day:=d2-d1;
if m2>m1 then
begin
if m2<7 then
day:=31-d1+d2+(m2-m1-1)*31;
if m1>6 then
day:=30-d1+d2+(m2-m1-1)*30;
if (m2>6) and (m1<=6) then
day:=31-d1+(6-m1)*31+(m2-7)*30+d2;
end;
if y2>y1 then
begin
if y1 mod 4=3 then
begin
if (m1<7) and (m2<7) then
day:=31-d1+(6-m1)*31+180+(m2-1)*31+d2;
if (m1<7) and (m2>6) then
day:=31-d1+(6-m1)*31+180+186+(m2-7)*30+d2;
if (m1>6) and (m2<7) then
day:=30-d1+(12-m1)*30+(m2-1)*31+d2;
if (m1>6) and (m2>6) then
day:=30-d1+(12-m1)*30+186+(m2-7)*30+d2;
end
else
begin
if (m1<7) and (m2<7) then
day:=31-d1+(6-m1)*31+179+(m2-1)*31+d2;
if (m1<7) and (m2>6) then
day:=31-d1+(6-m1)*31+179+186+(m2-7)*30+d2;
if (m1>6) and (m2<7) then
day:=30-d1+(12-m1)*30-1+(m2-1)*31+d2;
if (m1>6) and (m2>6) then
day:=30-d1+(12-m1)*30-1+186+(m2-7)*30+d2;
end
end;
result:=day;
end;

[soshians]

من فکر می کنم اگه فیلدها از نوع تاریخ باشند به راحتی مثل کم کردن دو تا عدد می شه از آنها کم یا زیاد کرد

[Jman]

1. DB شما چی هست ؟
2. تاریخ رو میلادی می خواهید ذخیره کنید؟

راحت ترید از توابع DB تون استفاده کنید (اگر پشتیبانی میکنه).

[tefos666]

دوست عزیز شما باید از خاصیت calculated field پایگاه داده استفاده کنی

یک table رو فرمت بزار و روی اون دوبار کلیک کن وقتی تمام ارتباطاط رو برقرار کردی مثلا datasource , dataconnection ,....حالا روش دوبار کلیک کن تمام فیلدهات رو میاره دوباره راست کلیک کن و یک فیلد جدید بساز

از نوع integer و calculated وقتی این کار رو انجام دادی در properties جدولت روی oncalc کلیک کن و در آخر بنویس

datasource1.dataset['field_jadid']:=datasource1.dataset['a']-datasourcew1.dataset['b']end
امیدوارم بدردت خورده باشه