تفریق تاریخ

[Mask]

با سلام
در ابتدایه اجرایه برنامم تاریخ روز رو گرفته و در برنامم ذخیره میکنم.
هر روز که برنامه اجرا میشه ، تاریخ اون روز رو از تاریخ اولی که در بانکه کم میکنم و وقتی به 10 روز رسید برنامه اکسپایر میشه.

s:=DateToStr(Date);
i:=DaysBetween(StrToDate(D_Majol.Other.fieldbyname ('dateupdate').AsString),StrToDate(s));
مشکل اینجاست که در قسمت Regional and Language Options اگه از رویه زبان فارسی جابه جا بشه برنامه قاط میزنه.
چه کار کنم که این تفریق ربطی به Regional and Language Options نداشته باشه.
ممنون.

[hamid-nic]

مشکل اینجاست که در قسمت Regional and Language Options اگه از رویه زبان فارسی جابه جا بشه برنامه قاط میزنه.
چه کار کنم که این تفریق ربطی به Regional and Language Options نداشته باشه.
سلام دوست عزیز
منظورتون از قاط زدن چیه ؟ مگه چه اتفاقی می افته که باید ربطی به Regional and Language Options داشته باشه ؟

[حسین شهریاری]

سلام

به این راه حل توجه کنید دیگه محدودیت فوق را ندارین:
یه جدول داشته باشین با یه فیلد مثل Counter که به محض ورود به برنامه این فیلد کانتر محتویاتش هر بار با یه عدد 1 جمع میشه.اون موقه تا هر مقداری دوست داشتی به کاربر اجازه کارکرد میدی مثلا 10 مرتبه!
مثال:


if Adotable.fieldbyname('Counter').asinteger=10 then
begin
showmessage('زمان کارکرد با نرم افزار به اتمام رسید لطفا با تهیه کننده تماس حاصل فرمایید');
Halt;
end
else
begin
Adotable1.edit;
Adotable1.fieldbyname('Counter').asinteger:=Adotab le1.fieldbyname('Counter').asinteger+1;
Adotable1.post;
end;

موفق باشید