تاریخ معتبر برای MaskEdit

با سلام خدمت دوستان.
برای کنترل این که کاربر تاریخ اشتباه و چرت پرت وارد نکنه از یک DLL به شکل زیر استفاده می کنم.

کد:

---

i:=DiffDate(PrintNormal,MaskEdit1.Text);
if  (i>10) or (i<-10) then
begin
MaskEdit1.Text:='';
MaskEdit1.SetFocus;

---

این تکه کد را در رویداد OnClose Maskedit می نویسم. حالا مشکل اینجا است که برای ویرایش تاریخی که مثلا بیشتر از 20 روز پیش است این امکان میسر نیسj.
البته بگم که تابع printnormal تاریخ شمسی جاری سیستم را می دهد و diffdate اختلاف دو تاریخ را می دهد.
آیا روش مناسب تری هست که استفاده کنم.
منظورم هم از تاریخ چرپ و پرت مثل 1340/00/32 است.
لطفا راهنمایی کنید.
ممنون.

دوست عزيز.
اگه ميخواي فارسي باشه با Dll هايي كه قبلا معرفي شده ميشه اين چك رو انجام داد.
شما فقط فرمت MaskEdit رو درست كنيد و بعد به كمك اون DLL ميتوني چك كني كه درسته يا نه.
روي رويداد ONExit بزارش . خيلي خوب كار ميكنه.

مرد مباح عزیز از راهنماییت ممنونم.
توی انجمن هست یا نه؟ اگه می شه اسم dll رو بگو که بدونم چی سرچ کنم.
ممنون.

سلام آقا
آره قبلا توی همین انجمن معرفی شده.
با نام Shamsi.dll
فکر کنم لینک فایلش کامل باشه.
اگه سالم نبود بگو تا برات آپ کنم. موفق باشی.

اولا از این که پیگیری می کنی ممنون.
ولی فکر کنم شما اصلا مشکل منو اشتباه متوجه شدین. من تمام پست های مربوط به این dll رو خوندم. این dll برای به دست آوردن تاریخ و تغییراتی روی آن از طریق سیستم است. ولی مشکل من این جا است که من تاریخ را از سیستم گرفتم حالا می خام تغییر بدم به صورتی که کاربر تاریخ چرت و پرت نزنه. من خودم از dllی به نام Persian.dll استفاده می کنم که آقا بابک احدی زحمتشو کشیدن. امید وارم که متوجه مشکلم بشید.
دوما من پست های دیگه ای هم دارم چرا اونارو جواب نمی دین.

اولا من معمولا سراغ پستهایی میرم که روشون مسلطم ویا قبلا توی اون زمینه کار کردم.
دوما توی پست قبلی هم خدمتتون عرض کردم که اسم فایل Shamsi.dll هست و مال حدودا یک سال پیشه.
به کمک اون میتونین این کاری که میخواین رو انجام بدین. چون یک تابع داره با نام IsShami که همین چکی که شما میخواین رو انجام میده. موفق باشی.

نقل قول:

---

توی پست قبلی هم خدمتتون عرض کردم که اسم فایل Shamsi.dll هست و مال حدودا یک سال پیشه

---

چرا ناراحت میشین مرد مباح عزیز.
فقط چون توی پست ها اسمی از این procedure نیامده بود و هم دانلودش نرکدم فکر کردم که همین کارهای ساده رو انجام می ده.
ممنون که راهنماییم کردین.

دوست عزیز.
من ناراحت نمیشم و نمی دونم چرا شما متوالیا فکر میکنین دوستان از شما ناراحت میشن.
با دیگران کاری ندارم ولی اگه من ناراحت بشم مطمئن باشید توی پستم مینویسم.

ضمنا لینک فایل DLL مورد نظر شما.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام مرد مباح عزیز.
بابت همه چیز ممنون.

برای چک کردن تاریخهای شمسی و از این دست تاریخها بهترین انتخاب یونیت SolarUtls آقای خجسته است :

کد:

---

//; after you get the date (year:86=a, mount:10=b, day:14=c)
if
  (a < 20) or
  ((b < 1)) or (b > 12)) or
  ((c < 1)) or (b > 31))
then

---

یا حق ...

دوست عزیز.
به این راحتی ها هم نیست.
چون 31/7/86 وجود نداره و همچنین بعضی سالها کبیسه هست.
ولی راحتترین راه که فقط تا حدودی درست باشه همین راه شماست.

نقل قول:

---

نوشته شده توسط مرد مباح [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوست عزیز.
به این راحتی ها هم نیست.
چون 31/7/86 وجود نداره و همچنین بعضی سالها کبیسه هست.
ولی راحتترین راه که فقط تا حدودی درست باشه همین راه شماست.

---

دوست عزیز به این سختیها هم که گفتی نیست !
ببین با تابع SolarToGregorian شما می تونید تست کنید که آیا تاریخ شمسی وارد شده صحیح است یا خیر چون اگر به میلادی تبدیل نشود یعنی اشتباه وارد شده ...

کد:

---

var
  a, b, c: Word;
begin
  //;
  a := 1360;
  b := 12;
  c := 13;
  // syntax: SolarToGregorian(var Year, Month, Day: Word): Boolean;
  Label1.Caption := IntToStr(DWORD( SolarToGregorian(a, b, c) ));
end;

---

یا حق ...