سوال: تابع تاريخ به حروف در ماژول جناب آزادي [بایگانی]

Access2013

پنج شنبه 30 خرداد 1392, 19:43 عصر

سلام

با توجه به نمونه هاي موجود در سايت به نظر بنده ماژول آقاي آزادي كامل تر از بقيه بوده و به مراتب كارايي بهتري هم داره من تو نمونه فايلهاي خيلي از حرفه اي ها هم (صرف نظر از اكتيوكسهاي قدرتمند سايت cpsd كه تحسين برانگيز هم هست ) مثل مدير بخش و جناب بهرامي و ... همين ماژول را مشاهده كردم

سوال اينه كه با چه تابعي ميشه تاريخ مد نظر را به حروف نوشت ؟
استاد اميري تو تاپيكهاي با اين موضوع راهكارهاي خوبي ارائه نموده بودند ولي اين بخش را من نتونستم پيدا كنم
اگه از دوستان يا خود استاد براشون مقدور هست راهنمايي كنند...

خدا نگهدار

Abbas Amiri

پنج شنبه 30 خرداد 1392, 19:59 عصر

سلام

اگر با این توابع راحتتر هستید ،تبدیل تاریخ به حروف در توابع دیگری غیر از آقای آزادی وجود داره . راحتترین کار تلفیق آنها در این توابع هست .

Access2013

پنج شنبه 30 خرداد 1392, 21:54 عصر

سلام

تابعي كه تداخلي با اين ماژول نداشته باشيد ميتونيد معرفي كنيد يا ضميمه كنيد؟
به لحاظ اخلاقي تو استفاده از توابع آقاي ميداني راحت نيستم !! لطفا تابع رايگاني كه بشه در كنار توابع شمسي آقاي آزادي ازش استفاده كرد معرفي كنيد با يه سمپل
هرچند با 105876 ميشه كار كرد ولي نه در كنار توابع آزادي !
و ورودي تاريخ هم 8 رقمي است كه نميخوام و ...
منتظر راهنمايي خوبتون هستم

ممنون

alirezabahrami

پنج شنبه 30 خرداد 1392, 22:23 عصر

سلام

تابعي كه تداخلي با اين ماژول نداشته باشيد ميتونيد معرفي كنيد يا ضميمه كنيد؟
به لحاظ اخلاقي تو استفاده از توابع آقاي ميداني راحت نيستم !! لطفا تابع رايگاني كه بشه در كنار توابع شمسي آقاي آزادي ازش استفاده كرد معرفي كنيد با يه سمپل
هرچند با 105876 ميشه كار كرد ولي نه در كنار توابع آزادي !
و ورودي تاريخ هم 8 رقمي است كه نميخوام و ...
منتظر راهنمايي خوبتون هستم

ممنون
سلام
نمونه اصلاح شده خودت را ببین!
یا علی

Access2013

پنج شنبه 30 خرداد 1392, 22:44 عصر

سلام

ممنونم از وقتي كه گذاشتيد همانطور كه عرض كردم ميخوام تاريخ متغير باشه يعني هر تاريخ كه وارد شد به حروق تبديل كنم
و كلا يه تابع باشه .....
منتها روشتون متعجبم كرد و بدون دردسر ميشه به خواسته رسيد عالي بود:لبخندساده::تشویق:
دوست عزيزم با يه دكمه تشكر نميشه جبران كرد زنده باشيد

خدا نگهدار

alirezabahrami

پنج شنبه 30 خرداد 1392, 23:31 عصر

سلام

ممنونم از وقتي كه گذاشتيد همانطور كه عرض كردم ميخوام تاريخ متغير باشه يعني هر تاريخ كه وارد شد به حروق تبديل كنم
و كلا يه تابع باشه .....
منتها روشتون متعجبم كرد و بدون دردسر ميشه به خواسته رسيد عالي بود:لبخندساده::تشویق:
دوست عزيزم با يه دكمه تشكر نميشه جبران كرد زنده باشيد

خدا نگهدار
سلام
مشکلی نداره ، درکد های مربوطه بجای عنوان Shamsi نام تکست باکسی که تاریخ را در آن وارد می کنید جایگزین کن !
سعی کن InputMask تکست باکس مربوطه بصورت 00/00/0000 انتخاب نمائید.
نمونه اصلاح شده را ببین در رویداد AfterUpdate تکست باکس تاریخ ورودی
موفق باشید

Abbas Amiri

جمعه 31 خرداد 1392, 01:07 صبح

نمونه با برخی اصلاح ها در مورد فضاهای خالی بین حروف و همچنین عبارات (اول ، سوم ، بیست وسوم و سی ام) تهیه شده .

در این نمونه از 2 جدول جهت معادل حروفی اعداد و ماهها استفاده شده تا در سیستمهایی که تنظیمات زبان فارسی انجام نشده هم بدون مشکل کار کند.

ضمنا تابع تبدیل اعداد بحروف آن هم مربوط 12 سال پیش خودم هست ، وهیچ مشکل اخلاقی هم دراستفاده ازآن نخواهید داشت .

alirezabahrami

جمعه 31 خرداد 1392, 02:09 صبح

نمونه با برخی اصلاح ها در مورد فضاهای خالی بین حروف و همچنین عبارات (اول ، سوم ، بیست وسوم و سی ام) تهیه شده .

.
سلام
باتذکر جناب امیری متوجه شدم در نمونه قبلی برای روز سوم کد اصلاحی باید بعمل آید.
نمونه قبلی اصلاح شد
یا علی

G.hemati

چهارشنبه 19 تیر 1392, 00:31 صبح

سلام
باتذکر جناب امیری متوجه شدم در نمونه قبلی برای روز سوم کد اصلاحی باید بعمل آید.
نمونه قبلی اصلاح شد
یا علی
با سلام خدمت اساتید گرامی

میشه لطفاٌ در نمونه فوق قابلیت انتخاب تاریخ از تقویم (frmCalendar)رو هم قرار بدین

ماژول نمونه استاد عزیزمون جناب بهرامی بسیار عالیه ولی با ماژول قبلی که استفاده میکردم متفاوته و وقتی میخوام از قابلیت انتخاب تاریخ استفاده کنم به مشکل میخوره

ممنون و سپاسگذار

vahidmasoudi1391

چهارشنبه 19 تیر 1392, 08:15 صبح

سلام
نمونه تقدیم می شود

G.hemati

چهارشنبه 19 تیر 1392, 10:25 صبح

با تشکر
- در این نمونه تفاضل دو تاریخ چگونه و با چه روشی بدست میاد . به این قسمت کار هم نیاز دارم (همانند نمونه پست 5)

- آیا میشه کد ماژولهای basNum2Words و date2text رو در ماژولهای دیگر استفاده کرده و آن دو را حذف نمود ؟

G.hemati

جمعه 21 تیر 1392, 18:24 عصر

دوستان لطفاً راهنمایی بفرمایین

mhamedm2008

شنبه 22 تیر 1392, 17:37 عصر

با تشکر
- در این نمونه تفاضل دو تاریخ چگونه و با چه روشی بدست میاد . به این قسمت کار هم نیاز دارم (همانند نمونه پست 5)

با سلام
منظورتون رو متوجه نشدم
ولی تعداد روزهای بین دو تاریخ را با تابع Diff میشه بدست آورد

Abbas Amiri

شنبه 22 تیر 1392, 18:12 عصر

- آیا میشه کد ماژولهای basNum2Words و date2text رو در ماژولهای دیگر استفاده کرده و آن دو را حذف نمود ؟

سلام

منظورتان را روشن تر بگویید.

G.hemati

شنبه 22 تیر 1392, 18:24 عصر

ولی تعداد روزهای بین دو تاریخ را با تابع Diff میشه بدست آورد در نمونه پیوست پست 6 که زحمتشو استاد بهرامی عزیز کشیدن ، میخوام قابلیت انتخاب تاریخ از تقویم (frmCalendar)رو هم قرار بدین
و تاریخی که به تکست باکس وارد میکنن از طریق این روش اعمال بشه
ممنون و سپاسگذار

Abbas Amiri

شنبه 22 تیر 1392, 18:26 عصر

در نمونه پیوست که زحمتشو استاد بهرامی عزیز در پست 6 کشیدن ، میخوام قابلیت انتخاب تاریخ از تقویم (frmCalendar)رو هم قرار بدین
و تاریخی که به تکست باکس وارد میکنن از طریق این روش اعمال بشه
ممنون و سپاسگذار

اینها تداخلی با ماژولهای دیگر ندارند و می توانید استفاده کنید .

G.hemati

شنبه 22 تیر 1392, 18:39 عصر

ممنونم استاد گرامی
نمونه پیوست تلفیق دو نمونه پست 6 و 10 میباشد

ولی موقع اجرا به مشکل میخوره

Form1 رو ملاحظه بفرمایین

G.hemati

یک شنبه 23 تیر 1392, 19:39 عصر

اساتید گرامی ممنون میشم مشکل نمونه فوق رو حل بکنین

Abbas Amiri

یک شنبه 23 تیر 1392, 22:28 عصر

ممنونم استاد گرامی
نمونه پیوست تلفیق دو نمونه پست 6 و 10 میباشد

ولی موقع اجرا به مشکل میخوره

Form1 رو ملاحظه بفرمایین

درباره مشکل چیزی ننوشتید .

G.hemati

یک شنبه 23 تیر 1392, 23:39 عصر

با سلام
هنگام اجرای فرم Error تصویر زیر رو نشون میده

به نظرم نیازمند ماژول بخصوصی است که در نمونه پست 10 ارائه شده ولی میخوام حدالمقدور از اضافه کردن ماژول خودداری بشه و کدهای مورد نیاز در ماژول موجود اضافه بشه تا از پراکندگی ماژولها جلوگیری بعمل بیاد

ممنون

Abbas Amiri

دوشنبه 24 تیر 1392, 00:07 صبح

با سلام
هنگام اجرای فرم Error تصویر زیر رو نشون میده

به نظرم نیازمند ماژول بخصوصی است که در نمونه پست 10 ارائه شده ولی میخوام حدالمقدور از اضافه کردن ماژول خودداری بشه و کدهای مورد نیاز در ماژول موجود اضافه بشه تا از پراکندگی ماژولها جلوگیری بعمل بیاد

ممنون

شما نمی توانید تابعی را صدا بزنید که در برنامه شما نیست . توابعی زیادی وجود دارند که تقریبا کارهای مشابهی انجام میدهند . بنا برسلیقه خود یکی را انتخاب کنید و با درنظر گرفتن آنها تغییرات لازم را به برنامه خود بدهید.

G.hemati

دوشنبه 24 تیر 1392, 19:26 عصر

با سلام
من ماژولهای مربوطه را اضافه کردم و دیگر مشکل فراخوانی توابع وجود ندارد . فقط یه مورد در آبدیت کردن اطلاعات یک کنترل است که کامل در نمونه پیوستی توضیح داده ام
ممنون میشم ملاحظه بفرمایین

Abbas Amiri

سه شنبه 25 تیر 1392, 01:47 صبح

با سلام
من ماژولهای مربوطه را اضافه کردم و دیگر مشکل فراخوانی توابع وجود ندارد . فقط یه مورد در آبدیت کردن اطلاعات یک کنترل است که کامل در نمونه پیوستی توضیح داده ام
ممنون میشم ملاحظه بفرمایین

کدهای زیر را جایگزین کنید:

Private Sub Command32_Click()
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
DateText.Value = Replace(STRDATE, "/", "")
DateText_AfterUpdate
End Sub

G.hemati

سه شنبه 25 تیر 1392, 15:12 عصر

بسیار ممنونم استاد گرامی
فقط یه سئوال دیگه در مورد فرم انتخاب تقویم داشتم

آیا امکانش هست که هنگام لود شدن فرم مذکور ، رنگ فونت روز جاری به رنگ دیگری تبدیل شود تا با یک نگاه مشخص شود. (همانند تقویمهای حرفه ای)

همانند تصویر ضمیمه :

Abbas Amiri

سه شنبه 25 تیر 1392, 22:20 عصر

بسیار ممنونم استاد گرامی
فقط یه سئوال دیگه در مورد فرم انتخاب تقویم داشتم

آیا امکانش هست که هنگام لود شدن فرم مذکور ، رنگ فونت روز جاری به رنگ دیگری تبدیل شود تا با یک نگاه مشخص شود. (همانند تقویمهای حرفه ای)

همانند تصویر ضمیمه :

در روال Form_Load تقویم کدهای زیر را جایگزین کنید:

Private Sub Form_Load()
Me.cmbMonth = ay(Shamsi)
Me.cmbYear = IL(Shamsi())
SetDays
Me.ctlCalendar = Shamsi()
Dim d As String
d = Format(Guon(Me.ctlCalendar), "00")
Me("tgl" & d).ForeColor = RGB(0, 200, 0)
Me("tgl" & d).FontBold = True
Form.Caption = " ÇãÑæÒ " & To_Hejri(Now, 3)
End Sub

Abbas Amiri

جمعه 28 تیر 1392, 18:46 عصر

سلام

با تغییرات جزئی در فرم تقویم جهت مشخص کردن روز انتخاب شده ، نمونه زیر تقدیم می شود:

Access2013

شنبه 29 تیر 1392, 00:29 صبح

سلام
ضمن تشكر بابت زحمتي كه كشيديد
تقويم پاپ آپ از مبدل ارزشمند استاد پيروزمهر نمونه كم نظيري براي الگو ميتونه باشه من تا حدودي اون را به صورت فرم تهيه نمودم ضمن احترام به قوانين كپي رايت امكان اپلود وجود نداره ولي همانطور كه ميبينيد با تغيير كمبو به ليست باكس در قسمت ماه و اضافه نمودن تعطيلات با يه جدول و فراخواني اون با ساب فرم ميتونيد ذهن خلاقتون را براي ايده گرفتن از اين نمونه ها به كار بندازيد...
لازم به تاكيده PDC تقويم Date picker نيست بلكه امكانات و شاخصه هاي بي نظيري داره كه در صورت استفاده از اون ميتونيد بهش برسيد

موفق باشيد

107547

New Account

شنبه 29 تیر 1392, 12:01 عصر

ضمن سلام و با تشکر از شما دوست گرامی Access2013 ( متاسفانه اسمتون رو نمی دونم )

از نظر لطفتون ممنونم

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

اینکه به دنبال راه حلهای کلاسیک نباشید و همواره در صدد بهبود باشید ، حس خوبی از پیشرفت رو به شما خواهد داد

ضمن احترام به قوانين كپي رايت امكان اپلود وجود نداره

بنده متوجه این قسمت نشدم ، اگر منظورتون این هستش که به صرف الگو برداری از PDC ، این معذوریت برای شما به وجود اومده ، به اطلاع میرسونم که شما هیچ معذوریتی در این خصوص ندارید و اگر منظورتون مورد دیگه ای بوده ، میتونه اون مورد شخصی بوده باشه و قطعا به بنده نوعی ارتباطی پیدا نخواهد کرد

نسخه سوم این مبدل تاریخ با عنوان PDC 3 Vip Edition طراحی شده و مراحل تکمیل و تست رو می گذرونه ، در این نسخه شما با ایده هایی جدیدتر هم آشنا خواهید شد ( در بخش اول فیلم ویدئوی آموزشی هم به نوعی ردپایی از این نسخه مشهود بود )

ایده هایی که از سوی PDC به کاربر نهایی تحمیل خواهند شد ، سبک جدیدی از کار و ارائه محصول نهایی شما خواهند بود

متاسفانه خبر ناخوشایندی هم وجود داره و اون هم اینکه از نسخه 3 یا همون PDC 3 Vip Edition این محصول بر خلاف گذشته از حالت رایگان خارج خواهد شد

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

لینک دانلود دمو
(http://bayanbox.ir/id/5218031037290570563)
قابلیتی با نام Parametrical Calendar که منجر به سیطره تقویم در داخل محیط کوئریها و ریپورتها خواهد شد ، این قابلیت در نهایت منجر به تغییر سبک طراحی خسته کننده کلاسیک موجود شده و نگاهی متفاوت به حل یک مساله کلیشه ای خواهد داشت

با کمک مبدل تاریخ PDC قطعا نرم افزارهای طراحی شده توسط کاربران رنگ و بویی حرفه ای تر خواهند گرفت

اینکه کاربران بر روی پلت فرم الگوریتم آقای آزادی اقدام به ایجاد تغییراتی خاص میکنند ، شخصا برای بنده خوشانید خواهد بود و از دید یک رقابت به اون نگاه میکنم ، رقابتی که امیدوارم منجر به پیشرفت هر چه بیشتر هر دو محصول بشه ، سیاست بنده حفظ فاصله این محصول با دیگر محصولات رقیب هستش ، گو اینکه سوابق نشان دهنده این بوده که PDC مستقل از سکون و یا پیشرفت دیگر رقبا با آهنگی ثابت در مسیر تغییر و تکامل قرار داره

لازم به تاكيده PDC تقويم Date picker نيست

البته بنده این محصول رو Pop Up Calendar (http://cpsd.ir/pdc.asp) نام گذاری کردم ولیکن رگه هایی از Date Picker هم در این محصول دیده میشه ( خصوصاً در نسخه سوم چرا که قابلیت جایگیری متغیر تقویم به این محصول اضافه شده )

در واقع نمیشه گفت که Date Picker نیست ، تنها نقطه تمایز واضح اون عدم ارائه در شمایلی کامبو مانند هستش ( شکل استاندارد Date Picker ها )

از حیث عملکردی یک Date Picker هستش و از لحاظ ظاهری نیست

در پایان ، روشی رو که برای تکمیل و اضافه کردن قابلیت در نظر گرفتید هم از حیث طراحی درست به نظر میاد

موفق باشید

Access2013

شنبه 29 تیر 1392, 17:15 عصر

سلام

از حضور شما و پاسخگويي ممنون
يه غلط املايي تو نگارش وجود داشت و اون اينكه فقط يك از قلم افتاده بود
لازم به تاكيده PDC فقط يك تقويم Date picker نيست كه البته شما با ظرافت به بررسي پرداختيد
هر چند ممكنه با قوانين سايت همخواني نداشته باشه كه مطالب نامرتبط با موضوع تاپيك در حال انجامه ولي ...

اين الگوبرداري همونطور كه شما هم ميدونيد (البته نه تو اين مورد خاص كه شما اين مبدل ارزشمند را رايگان قرار داده بوديد و تو همين پست هم تاكيد به عدم اشكال نموديد) قانونا و اخلاقا درست نبود
اين پاره نوشته از روزنامه هايي است كه به خاطر يه موضوع ساده از نظر ما بر پا شد يه موضوع تو همين پايه

وال استریت ژورنال گزارش داده که اپل از شرکت سامسونگ الکترونیک به دلیل کپی کردن «ظاهر و حس» تبلت آی پد و تلفن همراه هوشمند آیفون شکایت کرده و خواهان پرداخت خسارات مادی و معنوی این تخلف شده است. به نظر می رسد که این دعوای حقوقی به دلیل شباهت بیش از حد Galaxy S 4G سامسونگ به آیفون 3G و 3GS باشد. البته پای ابزارهایی همچون Epic 4G، نکسوس اس و گلکسی تب هم به میان کشیده شده. شکایت به خاطر تجاوز به حقوق فکری و خلافیت یک شرکت، موضوع جالبی به نظر می رسد.

در شکایت اپل آمده که:
«سامسونگ به جای اینکه به دنبال نوآوری و توسعه تکنولوژی و استایل منحصر به فرد خود جهت استفاده در تلفن ها و تبلت های تولیدی اش باشد، کپی برداری از تکنولوژی، رابط کاربری و استایل مبتکرانه اپل را برای این محصولات متخلف اش انتخاب کرده.»

این دادخواست قانونی روز جمعه به مقامات قضایی ناحیه شمال کالیفرنیا تحویل گردیده و به دنبال صدور حکم برای سامسونگ، جبران خسارات مادی و معنوی وارد آمده، و تایید تخلف و تجاوز خودسرانه سامسونگ توسط دادگاه است.

متاسفانه تو ايران قوانين قدرتمندي براي اين موضوع وجود نداره همانطور كه دزدان دريايي سومالي با آرامش خاطر به كارشون مشغولند كپي برداري غير مجاز تو ايران هم به همان صورت رخ ميده !! اينكه اعتقادات ما در زمينه قصبي بودن چيزي و دزدي چه احكامي داره و ما كجاييم بماند..........

در پايان از انعكاس اخبار در مورد كپي رايت فرض رقابت با شما اگه متصور شد عذر خواهي ميكنم چون اين DLL واقعا ميگم نظير نداره و حرفي براي گفتن كسي باقي نمگذاره هر چند هنوز فيلم دمو ورژن 3 را نديدم ولي مطمئنا ارزش داره

به اميد حضور دوباره شما خدا نگهدار