سلام
جهت حمایت از این وبلاگ، وبسایت شهید رسول را تبلیغ و اطلاع رسانی کنید:
در پست های قبلی، پستی داشتم که به روشی متفاوت در آفیس تاریخ میلادی رو به شمسی تغییر می داد. اما در بسیاری از ورودی های وبلاگ دیدم که بیشتر به دنبال عکس این تبدیل هستند. از آنجایی که رویه من در آفیس عدم استفاده از ماژول هست، یک روش ساده برای این کار طراحی کردم که تاریخ شمسی رو به تاریخ میلادی تبدیل می کنه:
( فایل اکسل 2007 رو از اینجا می تونید دانلود کنید، حجم: 10 کیلوبایت فرمت: zip در صورتی که اکانت جی میل ندارید از اینجا دانلود کنید. پسورد: kmisagh.blogsky.com. استفاده با درج منبع بلامانع است.)
فرض کنید تاریخ مورد نظر شما در سلول O18 ذخیر شده است:
کد سال (ابتدا باید قسمت سال را از کل تاریخ جدا نمود و میزان فاصله ی آن را از تاریخ اولیه به دست آورد):
=IF(MOD(LEFT(O18;SEARCH("/";O18)-1);4)=3;INT((LEFT(O18;SEARCH("/";O18)-1)-1299)*365.25)-1;INT((LEFT(O18;SEARCH("/";O18)-1)-1299)*365.25))
کد ماه (بعد از آن نوبت به ماه می رسد که از کل تاریخ جدا شود و تعداد روز گذشته از سال به دست آید):
=IF(VALUE(MID(O18;SEARCH("/";O18)+1;SEARCH("/";O18;SEARCH("/";O18)+1)-SEARCH("/";O18)-1))<8;(MID(O18;SEARCH("/";O18)+1;SEARCH("/";O18;SEARCH("/";O18)+1)-SEARCH("/";O18)-1)-1)*31;(MID(O18;SEARCH("/";O18)+1;SEARCH("/";O18;SEARCH("/";O18)+1)-SEARCH("/";O18)-1)-1)*30+6)
کد روز (روز گذشته در هر ماه):
=MID(O18;SEARCH("/";O18;SEARCH("/";O18;SEARCH("/";O18)+1))+1;2)
کد کلی (که از مجموع سه عدد بالا به اضافه 7385 به دست می آید):
=IF(MOD(LEFT(O18;SEARCH("/";O18)-1);4)=3;INT((LEFT(O18;SEARCH("/";O18)-1)-1299)*365.25)-1;INT((LEFT(O18;SEARCH("/";O18)-1)-1299)*365.25))
+IF(VALUE(MID(O18;SEARCH("/";O18)+1;SEARCH("/";O18;SEARCH("/";O18)+1)-SEARCH("/";O18)-1))<8;(MID(O18;SEARCH("/";O18)+1;SEARCH("/";O18;SEARCH("/";O18)+1)-SEARCH("/";O18)-1)-1)*31;(MID(O18;SEARCH("/";O18)+1;SEARCH("/";O18;SEARCH("/";O18)+1)-SEARCH("/";O18)-1)-1)*30+6)
+MID(O18;SEARCH("/";O18;SEARCH("/";O18;SEARCH("/";O18)+1))+1;2)+7385
تعجب نکنید! این عدد همان تاریخ مورد نظر است، کافی است در تنظیمات سلول مورد نظر را با فرمت تاریخ تنظیم کنید (روی سلول راست کلیک کنید و در فرمت سل (format cell)، نوع مقادیر را به تاریخ تغییر دهید).
به نام خدا
سلام
آقا شما خجالت نمی کشی توی کار ما کامپیوتری ها دخالت میکنی؟
تو برو مثلا روش چگونه با امبردست به جای سیم چین یا کف چین سیم را ویرایش نماییم بنویس:دی
سلام
طاعات قبول!
مگه آخه من دل ندارم؟ شما که آفیس رو آدم حساب نمی کنید! به هر حال یکی باید پیدا بشه که آفیس به ملت یاد بده یا نه؟
با سلام
اگر موافق هستید یک نگاهی به وبلاگ
www.farsaran.blogfa.com
من بیندازید تا تبادل لینکی با هم داشته باشید. لطفا به من ایمیل بزنید.
مرسی
سلام
با مطلبی تحت عنوان مرگ و مرگ آگاهی به روز کردم
یا علی مدد
سلام
آقا میثم عکست خیلی خوشگله ها...
سلام
خودتی!
لذت بردم تو را خدا خیر دهد من از تبدیل تاریخ میلادی به شمسی در اکسس ۲۰۰۳و اکسل ۲۰۰۳ استفاده کردم این هم بسیار مفید بود منتظر ابتکارات بعدی شما هستم
behtar azs shoma be parvarsh shotormorghtan bepardazez marg bar asl velayat faghe va eslam fasheste
نه دیگه شما ها رو پرورش دادیم بسه.
الآن کار جدید دست گرفتیم، که گندکاری هاش چند سال دیگه رو می شه!!!
جدای از شوخی، این جا فک کنم وبلاگ سیاسی ای نیست! نمی دونم شما چرا انقدر اینجا عصبانی شدی!!
سلام رفیق
من این کدها رو تو افیس 2010 پیاده کردم اما تاریخ درست در نمیاید
تبدیل میلادی به شمسی درسته ولی شمسی به میلادی درست نیست
سلام
سلام مجدد
درست شد رفیق 7385 رو اضافه نکرده بودم
مرسی
سلام مجدد
سلام میشه یه مثال برای ما تازه کارها بزنید
من وقتی این کد ها را در اکسل کپی میکنم هی بهم اررو میده
نمی دونم چکار باید کنم؟
ممنون میشم راهنماییم کنید
سلام
فایل هایی که در بلاگ گذاشته شده رو دانلود کنید.
احتمالا فرمول های شما با "," جدا شده است به جای ";"
اگر فایل های رو دانلود کنید متوجه می شید.