تبدیل تاریخ میلادی به شمسی در اکسل

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

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

علت این مهم این است که باید مداوم به صورت دستی تاریخ ها را را به شمسی تبدیل کنیم. البته اگر با اکسل در این مطلب شناخت بیشتری پیدا کنید، متوجه خواهید شد که با کمک تنظیمات اصلی تاریخ برنامه های تغییر تاریخ، کار را برای شما راحت خواهند کرد.

چندین روش برای تغییر تاریخ میلادی به شمسی در اکسل وجود دارد که در ادامه به شکل مختصر هر یک را توضیح می دهیم. ما را در ادامه مطلب دنبال کنید.

تبدیل تاریخ به کمک قالب بندی سلولی:

این روش برای تغییر تاریخ می‌تواند ساده‌ترین شیوه باشد و در نسخه های جدید اکسل می‌توان از آن استفاده کرد.

اگر بخواهیم بدون ایجاد تنظیمات تاریخ میلادی را به شمسی تبدیل کنیم و این کار را به صورت دستی انجام دهیم اکسل آن تاریخ را به شکل میلادی تشخیص می‌دهد و محاسبات ریاضی آن اشتباه خواهد بود.

اهمیت این هم بدین منظور است که گاهی ما نیاز داریم که فاصله روزهای بین دو ماه را تخمین بزنیم و یا تاریخ های مربوط به پروژه ها را جهت بایگانی در اختیار داشته باشیم. به همین منظور لازم است تا تاریخ هایی که توسط اکسل ارائه می شود درست باشد و خود این نرم‌افزار نیز این تاریخ ها را به رسمیت بشناسد.

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

برای مثال در تصویر زیر ستون A دارای تاریخ میلادی است. و ستون B مختص درج تاریخ شمسی ایجاد شده است.

برای اینکه اکسل ما بتواند تاریخ شمسی را نیز به درستی محاسبه کند به تنظیمات ستون مورد نظر رفته و روی گزینه Date کلیک میکنیم.

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

برای اینکه این کار به درستی تکمیل شود از فرمول B= A استفاده می‌کنیم تا مقادیر موجود در ستون A=B  و بالعکس به شکل صحیح تبدیل تاریخ را انجام دهند.

کدنویسی VBA  و تبدیل تاریخ میلادی به شمسی در اکسل

با استفاده از کدنویسی VBA نیز می توانید تبدیل تاریخ را انجام دهید. برای این کار کافی است تا تابع m2s  با ویژگی های مشخص در دسترس ما باشد و ما مطابق با متن کد زیر یک سلول را از تاریخ میلادی به شمسی تبدیل کنیم.

Function m2s(myDate, Optional Format = 0)
iDay = Day(myDate)
iMonth = Month(myDate)
iYear = Year(myDate)
iWeekday = Weekday(myDate)

jdn = civil_jdn(iYear, iMonth, iDay)
Call jdn_persian(jdn, iYear, iMonth, iDay)

Select Case iWeekday
Case 1
Rooz = ChrW(1740) & ChrW(1705) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607)
Case 2
Rooz = ChrW(1583) & ChrW(1608) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607)
Case 3
Rooz = ChrW(1587) & ChrW(1607) & ChrW(8204) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607)
Case 4
Rooz = ChrW(1670) & ChrW(1607) & ChrW(1575) & ChrW(1585) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607)
Case 5
Rooz = ChrW(1662) & ChrW(1606) & ChrW(1580) & ChrW(8204) & ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607)
Case 6
Rooz = ChrW(1580) & ChrW(1605) & ChrW(1593) & ChrW(1607)
Case 7
Rooz = ChrW(1588) & ChrW(1606) & ChrW(1576) & ChrW(1607)
End Select

Select Case iMonth

Case 1
mah = ChrW(1601) & ChrW(1585) & ChrW(1608) & ChrW(1585) & ChrW(1583) & ChrW(1740) & ChrW(1606)
Case 2
mah = ChrW(1575) & ChrW(1585) & ChrW(1583) & ChrW(1740) & ChrW(1576) & ChrW(1607) & ChrW(1588) & ChrW(1578)
Case 3
mah = ChrW(1582) & ChrW(1585) & ChrW(1583) & ChrW(1575) & ChrW(1583)
Case 4
mah = ChrW(1578) & ChrW(1740) & ChrW(1585)
Case 5
mah = ChrW(1605) & ChrW(1585) & ChrW(1583) & ChrW(1575) & ChrW(1583)
Case 6
mah = ChrW(1588) & ChrW(1607) & ChrW(1585) & ChrW(1740) & ChrW(1608) & ChrW(1585)
Case 7
mah = ChrW(1605) & ChrW(1607) & ChrW(1585)
Case 8
mah = ChrW(1570) & ChrW(1576) & ChrW(1575) & ChrW(1606)
Case 9
mah = ChrW(1570) & ChrW(1584) & ChrW(1585)
Case 10
mah = ChrW(1583) & ChrW(1740)
Case 11
mah = ChrW(1576) & ChrW(1607) & ChrW(1605) & ChrW(1606)
Case 12
mah = ChrW(1575) & ChrW(1587) & ChrW(1601) & ChrW(1606) & ChrW(1583)

End Select

Select Case Format

Case 1
m2s = Rooz & “,” & iYear & “/” & iMonth & “/” & iDay
Case 2
m2s = Rooz & ” ” & horofi(iDay) & ” ” & mah & ” ” & ChrW(1605) & ChrW(1575) & ChrW(1607) & ” ” & horofi(iYear)
Case 3
m2s = iYear
Case 4
m2s = iMonth
Case 5
m2s = iDay
Case 0
m2s = iYear & “/” & iMonth & “/” & iDay
Case Else
m2s = “Only one of this number as format(0,1,2,3,4,5) for help visit http://sakhteman.wordpress.com”
End Select

End Function

سخن پایانی

امیدواریم که در این مطلب از نایت ملودی، بیشتر با اکسل آشنا شده باشید و بتوانید با استفاده از راهکارهای تبدیل تاریخ، اینکار را به آسانی در اکسل خود انجام دهید. در سایر مطالب نایت ملودی می توانید در هر زمینه، به روزترین ها را مشاهده کنید. شما تا به حال تبدیل تاریخ در اکسل انجام داده اید؟ کدام راهکار بیان شده برای شما آسان تر خواهد بود؟