سلام
جهت حمایت از این وبلاگ، وبسایت شهید رسول را تبلیغ و اطلاع رسانی کنید:
نکته) در صورتی که در استفاده از دستورات دچار مشکل شدید، بخش نظرات و این دو پست را نیز مشاهد کند:
http://kmisagh.blogsky.com/1388/06/08/post-22/
http://kmisagh.blogsky.com/1388/09/06/post-25/
شاید شما هم به این مشکل زیاد برخورد کردید، که تاریخ میلادی رو بخواهید به تاریخ شمسی تبدیل کنید. احتمالا در وب جستجو کردید، و معمولاً یک سری ماژول پیدا کردید، که مجبور بودید هر بار برای استفاده اون رو فراخوانی کنید. در این روش بدون استفاده از ماژول ها و تنها با استفاده از قابلیت های ساده ی آفیس در اکسل و اکسس می توانید تاریخ شمسی خود را ملاحظه کنید.
( فایل اکسل 2007 رو از اینجا می تونید دانلود کنید، حجم: 10 کیلوبایت فرمت: zip در صورتی که اکانت جی میل ندارید از اینجا دانلود کنید. پسورد: kmisagh.blogsky.com. استفاده با درج منبع بلامانع است.)
برای این منظور دانستن این نکته مهم است که آفیس روز 1900/01/01 را به عنوان عدد یک در نظر می گیرد و با اضافه کردن هر واحد، یک روز به عدد بالا اضافه می کند. در این تابع، با استفاده از همین قاعده، روز معادل تاریخ بالا به شمسی را به عنوان مبداء در نظر گرفته و ادامه ی روزها را از روی آن ایجاد می کنیم.
اکسل:
کد یافتن سال به شمسی:
INT((TODAY()-7385)/365.25)+1299
کد یافتن ماه:
MOD(IF(INT(MOD((TODAY()-7385)*100;36525)/100)<186;INT(INT(MOD((TODAY()-7385)*100;36525)/100)/31);IF(MOD(INT((TODAY()-7385)/365.25);4)=0;INT((INT(MOD((TODAY()-7385)*100;36525)/100)-186)/30)+6;IF(INT(MOD((TODAY()-7385)*100;36525)/100)<336;INT((INT(MOD((TODAY()-7385)*100;36525)/100)-186)/30)+6;INT((INT(MOD((TODAY()-7385)*100;36525)/100)-336)/29)+11)));12)+1
کد یافتن روز:
IF(INT(MOD((TODAY()-7385)*100;36525)/100)<186;MOD(INT(MOD((TODAY()-7385)*100;36525)/100);31)+1;IF(MOD(INT((TODAY()-7385)/365.25);4)=0;MOD(INT(MOD((TODAY()-7385)*100;36525)/100)-186;30)+1;IF(INT(MOD((TODAY()-7385)*100;36525)/100)<336;MOD(INT(MOD((TODAY()-7385)*100;36525)/100)-186;30)+1;MOD(INT(MOD((TODAY()-7385)*100;36525)/100)-336;29)+1)))
می توانید هر یک از این کدها را در یک سلول کپی کنید و سپس با دستور CONCATENATE این ها را به هم متصل کنید، تا تاریخ مورد نظر را به دست آورید. همچنین در صورتی که بخواهید تاریخ روزی را که در یک سلول ذخیره کرده اید به شمسی تبدیل کنید، می توانید به جای TODAY() نام سلول مورد نظر را جایگزین کنید.
در کل کپی کردن عبارت زیر در هر سلول از اکسل تاریخ سیستم شما را به شمسی برمی گرداند.
=CONCATENATE(INT((TODAY()-7385)/365.25)+1299;"/";MOD(IF(INT(MOD((TODAY()-7385)*100;36525)/100)<186;INT(INT(MOD((TODAY()-7385)*100;36525)/100)/31);IF(MOD(INT((TODAY()-7385)/365.25);4)=0;INT((INT(MOD((TODAY()-7385)*100;36525)/100)-186)/30)+6;IF(INT(MOD((TODAY()-7385)*100;36525)/100)<336;INT((INT(MOD((TODAY()-7385)*100;36525)/100)-186)/30)+6;INT((INT(MOD((TODAY()-7385)*100;36525)/100)-336)/29)+11)));12)+1;"/";IF(INT(MOD((TODAY()-7385)*100;36525)/100)<186;MOD(INT(MOD((TODAY()-7385)*100;36525)/100);31)+1;IF(MOD(INT((TODAY()-7385)/365.25);4)=0;MOD(INT(MOD((TODAY()-7385)*100;36525)/100)-186;30)+1;IF(INT(MOD((TODAY()-7385)*100;36525)/100)<336;MOD(INT(MOD((TODAY()-7385)*100;36525)/100)-186;30)+1;MOD(INT(MOD((TODAY()-7385)*100;36525)/100)-336;29)+1))))
در اکسس تنها با تغییر نوع باقیمانده گیری می توانید از همین کد استفاده کنید.
برای یافتن سال:
=Right(Str(Int((Date()-7385)/365.25)+1299);4)
برای یافتن ماه:
=IIf(((IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;Int(Int((((Date()-7385)*100) Mod (36525))/100)/31);IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;Int((Int((((Date()-7385)*100) Mod (36525))/100)-186)/30)+6;IIf(Int((((Date()-7385)*100) Mod (36525))/10
برای یافتن روز:
=IIf(IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;((Int((((Date()-7385)*100) Mod (36525))/100)) Mod (31))+1;IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;((Int((((Date()-7385)*100) Mod (36525))/100)-336) Mod (29))+1)))<10;"0" & Right(Str(IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;((Int((((Date()-7385)*100) Mod (36525))/100)) Mod (31))+1;IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;((Int((((Date()-7385)*100) Mod (36525))/100)-336) Mod (29))+1))));1);Right(Str(IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;((Int((((Date()-7385)*100) Mod (36525))/100)) Mod (31))+1;IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;((Int((((Date()-7385)*100) Mod (36525))/100)-336) Mod (29))+1))));2))
بهتر است که در کل برنامه از تاریخ میلادی استفاده کنید و در جایی که نیاز به خروجی برای کاربر وجود دارد از کدهای بالا استفاده نمایید.
ومن الله التوفیق
با تشکر از روش زیبای ارائه شده برای تاریخ زیر اشتباه جواب می دهد:
10/11/1972
جواب 20 مهر است درحالی که این روز 19 مهر است
سلام
چک کردم و پاسخ صحیح بود، شما 20 مهر 1351
خیلی عالی بود
اگر اجازه دهید نشانی وبلاگ شما را به وبلاگ خودم متصل کردم
موفق باشید
سلام
شما که قبل اط این که ماچیزی بگیم، گذاشتی رو بلاگت!
ولی اختیار دارید، اجازه ی ماهم دست شماست!
اقا خوب بود
با سلام اقا خیلی چاکریم
تو اکسل من تبدیل سالش جواب می ده ولی ماه و روز ارور می ده می گه اینجاش اشتباه است
(TODAY()-7385)*100;36525
اقا ممنون می شم اگه کمکم کنی
سلام
اگه اکسل 2007 داشته باشی مشکلی نخواهد داشت. اما در اکسل 2003، ممکنه به مشکل بر خورده باشی. برای حل مشکل بخش های مختلف کد (روز، ماه، سال) رو به صورت مجزا در یک سلول اضافه کن و بعدش با دستور CONCATENATE بخش های مختلف رو به هم اتصال بده.
سلام
1. این کد یافتن روز توی اکسل من کپی نمیشه میگه خیلی طولانیه
2. کد یافتن ماه رو هم اشتباه میده
2. چطور میشه در یکی از خانه های اکسل تعریف کرد که تعداد
سطرهای پر ویزیبل (غیر پنهان) را (که معمولا حاصل از فیلتر کردن سطرهاست) نشون بده.
ممنونم
کار ما را که راه انداخت. خیلی ممنون
سلام
خیلی عالی بود باور کنید خیلی کد های که داده بودید به درد من خورد.
فقط یه مشکلی دارم موقعی که کد یافتن ماه را در قسمت contoro source فیلد ماه فرم اکسس وارد می کنم هیچ اتفاقی نمی افتد.در صورتی که کد سال و روز را قبول کرده و جواب درستی هم برمی گرداند لطفا مرا راهنمایی کنید.
من مایل به اضافه کردن آدرس وبلاگ شما به وبلاگ خودم هستم.آیا می توانم آدرس شما را add کنم.
منتظر دریافت شما
پیشاپیش نوروز 88 را تبریک می گویم.
سلام
توی اکسس کد سال و روز رو قبول میکنه
ولی هر کاری میکنم کد ماه رو قبول نکرد
اکسس من ۲۰۰۳ هستش
سلام
با عرض شرمندگی، مدت هاست فرصت نمی کنم به وبلاگم سر بزنم.
علت این است که در اکسس 2003 تعداد کاراکترهایی که در یک Textbox قرار می گیره کمه، از این رو کل کد قرار نمی گیره و اون پیغام رو می ده.
ساده ترین راه حل استفاده از اکسس 2007 است،
راه حل دیگه قسمت کردن کد است. یعنی شما کل کد رو بررسی کنی و به ازای برخی از یک textbox جدید استفاده کنی. البته این کار نیاز داره که یه دور کد رو بررسی کنی، اگه خودم فرصت کردم در بلاگ می ذارم.
ضمنا اگر مواردی ویژه پیش می آد بهتره که اون رو ایمیل کنید!
kmisagh@gmail.com
بسیار بسیار بسیار بسیار بسیار بسیار ممنونم از وبلاگتان - خیلی استفاده کردم فقط کد های مورد استفاده جهت ماه وسال در اکسس ۲۰۰۳ جواب نمی ده (ظاهرا در خصوص کد ماه بعلت نبستن آخر فرمول ایراد میگیره و در مورد کد سال هم از تعداد زیاد آنها )
با عرض شرمنگی بگویم چه کسی کار انجام داد آنکه کار را به آخر رساند خواهشمندم کد ماه را اصلاح و کد سال را قسمت قسمت بفرمائید تا بهمه ثابت شود که می توان بدون ماژول هم تاریخ را درست کرد
سلام
ثابت که شد، البته در 2007!
ولی در اولین فرصت انشاءالله قطعه قطعه هم کد رو ارائه می کنم.
بنظرم کد ماه در اکسس نیمه کاره است لطفا بررسی فرمائید
کامل کپی یا پیست نمی شود.
احتمالاً
من فکر می کنم شما فرصت نکردید به کدهایی که نوشتید نگاهی مجدد بیندازید در آخرین شرط
IIf(Int((((Date()-7385)*100) Mod (36525))/10
فرمول کامل نشده . اصلا تصور کنید این کدها راخودتان ننوشتید
آنها راداخل یک فایل آزمایش کنید (هم کد ماه هم کد سال)خواهید دید بی خود مزاحم نشده ام
با تشکرفراوان از زحماتی که کشیدید و خواهید کشید
اگر هدفتان کمک بما مبتدیهاست کدها را امتحان کنید جواب درست را روی وبلاگتان قرار دهید
سلام
حالا چرا شاکی می شی برادر؟
اولاً این بلاگ اصلاً برای مبتدی ها نیست، گرچه سعی کردم این ها هم بتونند استفاده بکنند.
ثانیاً کمی رخصت بده، بابا هزارتا درد دیگه هم داریم ها!
ثالثاً از نرم افزار هایی که قرار دادم می تونی کد شمسی رو بگیری
رابعاً این کد دقیقاً خودم ابداع کردم، به خاطر گل روی شما انشاء الله در پستی به الگوریتمش می پردازم
این هم کد هایی که از برنامه ی تنظیم زمان جلسات برداشتم:
کد سال
=Right(Str(Int((Date()-7385)/365.25)+1299);4)
کد ماه
=IIf(((IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;Int(Int((((Date()-7385)*100) Mod (36525))/100)/31);IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;Int((Int((((Date()-7385)*100) Mod (36525))/100)-186)/30)+6;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;Int((Int((((Date()-7385)*100) Mod (36525))/100)-186)/30)+6;Int((Int((((Date()-7385)*100) Mod (36525))/100)-336)/29)+11)))) Mod (12))+1<10;"0" & Right(Str(((IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;Int(Int((((Date()-7385)*100) Mod (36525))/100)/31);IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;Int((Int((((Date()-7385)*100) Mod (36525))/100)-186)/30)+6;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;Int((Int((((Date()-7385)*100) Mod (36525))/100)-186)/30)+6;Int((Int((((Date()-7385)*100) Mod (36525))/100)-336)/29)+11)))) Mod (12))+1);1);Right(Str(((IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;Int(Int((((Date()-7385)*100) Mod (36525))/100)/31);IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;Int((Int((((Date()-7385)*100) Mod (36525))/100)-186)/30)+6;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;Int((Int((((Date()-7385)*100) Mod (36525))/100)-186)/30)+6;Int((Int((((Date()-7385)*100) Mod (36525))/100)-336)/29)+11)))) Mod (12))+1);2))
کد روز:
=IIf(IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;((Int((((Date()-7385)*100) Mod (36525))/100)) Mod (31))+1;IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;((Int((((Date()-7385)*100) Mod (36525))/100)-336) Mod (29))+1)))<10;"0" & Right(Str(IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;((Int((((Date()-7385)*100) Mod (36525))/100)) Mod (31))+1;IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;((Int((((Date()-7385)*100) Mod (36525))/100)-336) Mod (29))+1))));1);Right(Str(IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;((Int((((Date()-7385)*100) Mod (36525))/100)) Mod (31))+1;IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;((Int((((Date()-7385)*100) Mod (36525))/100)-336) Mod (29))+1))));2))
این هم یک کد یکجا:
="امروز " & IIf(Weekday(Date())=7;"شنبه";IIf(Weekday(Date())=1;"یکشنبه";IIf(Weekday(Date())=2;"دوشنبه";IIf(Weekday(Date())=3;"سه شنبه";IIf(Weekday(Date())=4;"چهارشنبه";IIf(Weekday(Date())=5;"پنج شنبه";IIf(Weekday(Date())=6;"جمعه"))))))) & " " & Str(IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;((Int((((Date()-7385)*100) Mod (36525))/100)) Mod (31))+1;IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;IIf(Int((((Date()-7385)*100) Mod (36525))/100)<336;((Int((((Date()-7385)*100) Mod (36525))/100)-186) Mod (30))+1;((Int((((Date()-7385)*100) Mod (36525))/100)-336) Mod (29))+1)))) & "/" & Str(((IIf(Int((((Date()-7385)*100) Mod (36525))/100)<186;Int(Int((((Date()-7385)*100) Mod (36525))/100)/31);IIf(((Int((Date()-7385)/365.25)) Mod (4))=0;Int((Int((((Date()-7385)*100) Mod (36525))/100)-186)/30)+6;IIf(Int((((Date()-7385)*100) Mod (36525))/100)
بینهایت سپاسگزارم
خداوند متعال ترا ارج دهد
من از کدهایی که در برنامه تنظیم جلسات بود استفاده کردم بسیار عالی بود حال یک سوال برایم مطرح شده اگر لطف کنی راهنمایی بفرمایی ممنونم
در یک فرم از این کدها استفاده کردم حال می خواهم اگر در فرمی رکورد جدیدی وارد نمودم در روز بعد بتوانم با تاریخی که ورود اطلاعات شده تاریخ آن را ببینم بطور مثال هنگام دیدن محتویات رکورد شماره ۱۰۰تاریخ ۲۰/۵/۸۸ ودر مورد رکورد ۱۰۱
تاریخ روز ۲۱/۵/۸۸ را ملاحظه کنم (خلاصه اینکه تاریخ ورود اطلاعات به تاریخ روز تبدیل نشود بلکه تاریخ برای هر رکورد ثابت بماند)
سلام
شرمنده نفهمیدم!
هر رکور اطلاعات خودش رو داره، اگر اطلاعات جدیدی بخوای اضافه کنی بصورت اتومات تاریخ روز می خوره!
شاید سؤالت این باشه: چه طور می شه تاریخ ثبت اطلاعات هم در رکورد ذخیره شود.
پاسخ: یک فیلد به ثبت تاریخ ورود اطلاعات نسبت می دی و در اون از کد تاریخ امروز به عنوان پیش فرض استفاده می کنی و در فرمت اجازه تغییر این فیلد رو نمی دی، بنابر این هر اطلاعاتی که وارد بشه به صورت خودکار تاریخ روزی که اطلاعات وارد شده ثبت می شه.
سلام
وبلاگ مفیدی داری-از نبدیل تاریخت خیلی خوشم اومد.کارمو راه انداختی.
حالا خواستم بژرسم آیا به جای دستور lookup دستور دیگه ای هست که همون کارای رو داشته باشه ولی به sort کردن و ترتیب کوچک به بزرگ احتیاج نداشته باشه.
ممنون و متشکر
سلام
به نظر من اساسا دستور lookup دستور بی خودی است! من فقط یک جا با این موضوع برخورد کردم که از این دستور استفاده کنم و اون زمانی بود که می خواستم به ازای نوشتن یه سری کاراکتر، مثلاً اسم یک نفر» کد اون بر گرده، برای درست کردن سرچ. اما در بقیه مواردی که نیاز به این دستور بود، با استفاده از دستورات دیگه، این رو دور می زدم. بسته به مورد راه حل متفاوت باید ارائه کرد.
با تشکر از راه ارائه شده ، بسیار مفید بود
عالی بود احسنت
ممنون از راهنمایی شما
سلام بزرگوار
دستت دردنکنه خیلی باحال بود و خیلی کارساز مخصوصا از کد یکجا که در اکسس اسفاده کردم
می توان برای ثبت تاریخ ورود اطلاعات آیکونی قرار دهیم که در صورتی که کاربر مایل باشد تاریخ را در فیلد مورد نظر وارد کند.
توفیق شما آرزوی ماست.
سلام
خسته نباشی - خدا قوت
چطور میشه وقتی که فایل اکسس را اجرا می کنیم فقط همان فرمی که طراحی کردیم باز شود و کلا تمام پنجره ها و خود برنامه اکسس هم باز نشود و صرفا همان فرمی که مثلا به اندازه ۶*۴ سانتی متر می باشد به همان اندازه باز شود
اگه راهی هست خیلی ممنون میشم که پاسخ دهید
خداوند باران رحمت و برکت ماه رجب را به شما ارزانی بدارد.
سلام
در اکسس 2007 می توانید با ورود به Access Options و سپس در تب Current Database این تنظیمات را انجام دهید.
در قسمت Application Title عنوان برنامه را می نویسید. بدین ترتیب در عنوان برنامه ی باز شده به جای نام ماکروسافت اکسس، نام اختصاصی شما نمایش داده می شود.
در قسمت Display form می توانید تعیین کنید کدام یک از فرم های شما در ابتدا باز شود.
در بقیقه ی گزینه ها می توانید امکان دسترسی به جداول و کوئری ها و ... را محدود نمایید.
نکته ی مهم این است که در صورتی که در هنگام بازکردن فایل کلید شیفت را نگه دارید، هیچ یک عمل نمی کند.
برای کمینه کردن صفحه ی خود اکسس هم، بایستی در فرمی که ابتدا باز می شود، در هنگام load یا current یک ماکرو بگذارید که دستور Application minimize رو اجرا کنه.
سلام دوست عزیز
برای اینکه هنگام اجرای یک فایل اکسس فقط فرم مورد نظر باز شود دستوری که فرمودید «در هنگام Load یا current یک ماکرو بسازیم که Application minimize را اجرا کنه» انجام دادم اما همچنان هم فرم باز می شود و هم زیر آن برنامه اکسس باز می شود. من می خواستم فقط فرم اکسس باز شود اما چنین نشد.
البته من به این نحو عمل کردم که در قسمت on current ماکرویی ساختم که در قسمت Action گزینه RunCommand را انتخاب کردم و در قسمت Command آن گزینه DocMinimize را انتخاب کردم.
لطفا اگر اشتباه است راهنمایی بفرمایید.
موفق و پایدار باشید.
سلام
باید در تب other فرم هم دو گزینه رو فعال کنید.
http://sites.google.com/site/kmisagh/kmisagh-blogsky-com/sampel.accdb?attredirects=0&d=1
این رو ببین!
دوست عزیز
خسته نباشید خدا قوت
دست شما درد نکنه مشکل حل شد
از وبلاگ مفید شما که بی منت اطلاعات فنی خود را در اختیار همه قرار می دهید بی نهایت سپاسگزارم
موفقیت همیشگی شمارا از خدا آرزو می کنم
خواهش می کنم
سلامت باشید و موفق
آقا این کد ها غلط و خطرناکند. استفاده نشود. یک دلیل ساده . شما هر چهار سال رو کبیسه گرفته اید در کدتون که این غلطه. اخه عمو جون سال کبیسه 5 ساله هم داریم.
نچ! هر چهار سال و یک چهارم روز روز رو، ولی خوب که حساب کنی هر چهارسال یه بار کبیسه است. خطاش توی تبدیل شمسی به میلادی که در برخی مواقع یک روز به اختلاف می خوره. ولی سر تبدیل میلادی به شمسی ریش گرو می ذارم!
آقا عالی بود استفاده کردیم
با سلام خدمت برادر عزیز
اگر امکان دارد و شما وقت دارید لطفا برای تبدیل تاریخ میلادی به شمسی و اینکه باید کدها را دقیقا کجا وارد نمود برای ما مبتدی ها توضیح بفرمایید
با تشکر فراوان
سلام
این کدها رو توی اکسل یا اکسس می تونید استفاده کنید. البته فایل های وبلاگ رو اگه دانلود کنید توش این کد ها به کار رفته.
همون طور که می دونید اکسل با زدن مساوی در هر سلول قابلیت کدنویسی می دهد. بدین ترتیب، کافی است این کد را در سلول مورد نظر وارد کنید.
در اکسس هم اگر هر جایی که امکان built وجود دارد، شما می توانید این کد را قرار دهید.
سلام
من اقدام به قراردادن این کدها در built نمودم ولی متاسفانه نتیجه نگرفتم اگه امکان داره یک نمونه از آنرا برای دانلود قرار دهید متشکر می شوم.
سلام
http://kmisagh.blogsky.com/1387/11/16/post-14/
در هنگام باز کردن فایل شیفت را نگه دارید تا وارد سورس کد شوید.
دستتون درد نکنه واقعا عالی بود یک دنیا ممنون که با این کد حسابی به دادم رسیدید
قابلی نداشت.
سلام
بسیار مفید فایده بود.
ممنون
سلام
موفق باشید.
سلام بزرگوار
خدا قوت
در اکسس فرمی تهیه کرده ام که یک فیلد آن وارد کردن شماره تلفن می باشد و دیتای آنرا Number قرار داده ام . اما در فرم وقتی شماره تلفن وارد می کنم که ابتدای آن صفر باشد متاسفانه در فیلد بعدی که می رویم صفر حذف می شود.
اگه چاره آن را بفرمایید ممنونمی شوم.
سلام
به شدت توصیه می کنم برنامه تون رو به نحوی تغییر بدید که از فرمت تکست (text) برای کد ملی استفاده کنید و خودتون رو درگیر این بازی ای که الآن توضیح می دم نکنید (تجربه ام ثابت کرده مشکلات زیادی ایجاد می کند).
چند روش وجود دارد که ساده ترینش به نظرم اینه:
چون ما در حالت نمایش می خواهیم صفر دیده شود، ابتدا عدد را بر 10,000,000,000 تقسیم می کنیم و سپس دستور از دستور Right استفاده می کنیم (با 10 کاراکتر). بدین ترتیب در نمایش عدد را با صفر پشت آن مشاهده خواهیم کرد ( به عنوان مثال عدد ما 83344567 است که 00 ابتدای آن دیده نمی شود، عدد تقسیم شده می شود 0.0083344567 و دستور Right (txt,10) نتیجه ی مطلوب را حاصل می کند.
سلام
وبلاگ قبلی من رو هکیدند.
آدرس وبلاگ من رو تصحیح کن برادر!
یا علی
سلام
اصلاح شد
علی یارت
خیلی خیلی خیلی خیلی زیاد ممنونم از شما دوست عزیز.
واقعا دستتون درد نکنه خیلی گلی.
از دور میبوسمت دوست خوبم
مرسی از زحمات زیادی که کشیدین
شاکریم
آقا خدا خیرت بده.خدا .کیلی خیلی دنبال همچین فرمولی بودم.دمت گرم.تو ماه رمضان 1390 با دهن روزه یه دعا میکنم برات حال کنی:خدایا ایشالله به مین ماه عزیز عاقبت بخیر شی در دنیا و آخرت.دستت درد نکنه و دمت گرم داداش گلم.
موفق باشید.
با عرض سلام و خسته نباشید من میخوام تو اکسل 2007 تاریخ شمسی و عدد ها رو فارسی بنویسم هر کاری میکنم نمیشه لطفا راهنمایی کنید
با تشکر
سلام
1) از کی برد استاندارد فارسی استفاده کنید
2) از فونت های B استفاده کنید
آقا واقعا دمت گرم
خیلی بدردم خورد
ممنون
موفق.
ممنون
مطلب کاربردی خوبی بود
کلی دنبالش بودم
به دوستان هم توصیه کردم
قربانت
موفق.
سلام ببخشید این کد را ت واکسس باید تو سوس بزاریم
سلام
سوس دقیقاً کجاشه؟
هر جا که تگ کدهای اکسس رو بگیره. مثلا یک تکس باکس بسازید و روش مساوری بزنید و این رو بنویسید. یا به قول خودتون در قسمت سورس تکس باکس بنویسید
مهندس سلام
با کدهایی که دادی خیلی حال کردم. خیلی باحاله. فقط یه نکته در ارتباط با کدهای مربوط به اکسس بگو و اون اینکه اکسس در حالت معمول تابع باقیمانده رو نمیشناسه و باید حتما تو vb نوشته بشه که فکر می کنم مشکل اکثر دوستانی که نتونستن از این کدها تو اکسس استفاده کنن همین بوده. با اجازه شما من کدها رو کمی تغییر دادم تا بتونم تابع باقیمانده رو حذف بکنم. دوستان به راحتی می تونن این کدها رو در default value خانه مورد نظر کپی کنن و حالش رو ببرن.
یا علی
سلام
خدا خیرت دهاد جوان.
ولی فک کنم اکسس 2007 به بعد داره کد باقیمانده رو.
SAL
=Right(Str(Int((Date()-7385)/365.25)+1299),4)
MAH
=(IIf((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))<186,Int((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))/31),IIf((Int((Date()-7385)/365.25)-Int((Int((Date()-7385)/365.25))/4)*4)=0,Int(((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-186)/30)+6,IIf((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))<336,Int(((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-186)/30)+6,Int(((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-336)/29)+11))))-Int((IIf((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))<186,Int((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))/31),IIf((Int((Date()-7385)/365.25)-Int((Int((Date()-7385)/365.25))/4)*4)=0,Int(((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-186)/30)+6,IIf((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))<336,Int(((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-186)/30)+6,Int(((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-336)/29)+11))))/12)*12+1
ROOZ
=IIf((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))<186,((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-Int((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))/31)*31)+1,IIf((Int((Date()-7385)/365.25)-Int((Int((Date()-7385)/365.25))/4)*4)=0,((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-186-Int(((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-186)/30)*30)+1,IIf((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))<336,((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-186-Int(((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-186)/30)*30)+1,((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-336-Int(((Int(Date()-7385-Int((Date()-7385)/365.25)*365.25))-336)/29)*29)+1)))
تشکر.
باسلام
خیلی ممنون از فرمول استادانه و سودمندتان
سلام
خواهش می کنم.
besyar tashakor mikonam
code haye access besyar ali javab dad va ali boodand,
moteshakeram
نوش جان!
:)
سلام
بسیار به توان بسیار از شما متشکرم.
بنده مترجم زبان و برنامه نویس هستم .
چندین پروژه انبارداری و حسابداری انجام داده ام اما هرگز به ذهنم خطور نکرده بود که با اکسس کار کنم.
بنده برای حل این مشکل کامپوننت نوشته بودن در حالیکه می شد با این کد مسئله را حل نمود.
کمی از دستم بر بیاد کوتاهی نمی کنم.
سلام
نوکرتم!
سلام دوست عزیز، اگه امکان داره کد سال، ماه و روز را با یکدیگر ترکیب نمایید که بتوان در یک فیلد از آن استفاده نمود متشکرم.
سلام
http://kmisagh.blogsky.com/1388/09/06/post-25/
باسلام
یک فرمول بسیار ساده جهت تبدیل تاریخ وساعت به شمسی:
در تیبل ساعت وتاریخ را Date/Time انتخاب کرده وفرمول Now()-226899+2 = را جلوی Default value تایپ کنید همچنین فرمت را شوت دیت یا شورت تایم تنظیم کرده input Mask هم براساس ساعت ویا تاریخ انتخاب کنید. ضمنا برای ساعت فرمول:Now()+2 = را جلوی Default value تایپ کنید
سلام
خیلی از حالت ها در نظر گرفته نشده است. می تونید تاریخ های مختلف رو تست کنید.
Now()-226899+2 =
؟
با سلام
افزونه(Add-In) تبدیل تاریخ 4000 ساله جهت استفاده در اکسل طراحی شده است. این افزونه از کتابخانه قدرتمند برنامه معروف تبدیل تاریخ 4000 ساله بهره می گیرد. این افزونه پاسخی به نیاز بسیاری کاربران که در محیط اکسل نیاز به انجام تبدیلات و محاسبات تاریخی دارند، می باشد.
از جمله ویژگیهای مفید این افزونه تبدیل عدد به حروف فارسی می باشد.
لینک دانلود
http://www.kanazspid.ir/Download/DateConvertorAdd_In.zip
سایت شخصی
http://www.sischer.ir
با تشکر
سید مصطفی هاشمی
با سلام
وقتی نرم افزارهایی مثل ادسافت هست که کل تاریخ رو درست می کنه، چه نیازی به این جور ادآن ها هست؟