X
تبلیغات
رایتل

تبدیل متفاوت تاریخ شمسی به میلادی و بالعکس در آفیس

8 شهریور 1388

سلام

جهت حمایت از این وبلاگ، وبسایت شهید رسول را تبلیغ و اطلاع رسانی کنید:

shahidrasul.ir


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

( فایل اکسل 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)، نوع مقادیر را به تاریخ تغییر دهید).