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

**1q2w3e4rr** · 2012/12/02, 04:48

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

به این آدرس زیر برو ..... دوتا فایل هستش که یکی پی دی اف و اونیکی هم فایل اکسل. هر دوشونو دانلود کن.
تو فایل پی دی اف نحوه کار رو با فایل اکسل رو نوشته....

توابع تاریخ هجری شمسی در Excel و تبدیل عدد به حروف Excel فرساران

**jasmin** · 2012/12/04, 18:51

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

نوشته اصلی توسط 1q2w3e4rr

به این آدرس زیر برو ..... دوتا فایل هستش که یکی پی دی اف و اونیکی هم فایل اکسل. هر دوشونو دانلود کن.
تو فایل پی دی اف نحوه کار رو با فایل اکسل رو نوشته....

توابع تاریخ هجری شمسی در Excel و تبدیل عدد به حروف Excel فرساران

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

**1q2w3e4rr** · 2012/12/06, 03:23

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

راستش از صفحه 8 تا 12 به صورت کامل نحوه اضافه کردن فرمول ها به فایلتون رو خیلی کامل با شکل نشون داده.....

در مورد کارایی فرمول ها هم از صفحه 17 به بعد خوب توضیح داده که!!!

پیشنهاد میکنم بک باره دیگه بخونیدش... التبه من یه فایل که حاوی این فرمول ها رو برانون میزارم ، ولی کارایی فرمول ها رو باید وقت بزارید بخونید.

[/php]http://uplod.ir/jlux9yecyaat/Book1.xlsm.htm

**اهورا** · 2012/12/17, 15:26

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

سلام دوست من
تابعي به نام ABH وجود دارد كه اين كارو انجام ميده كه بايد به اكسل شما ADD IN شود.
من نتونستم اينجا آپلودش كنم
بهم ايميل بزن برات بفرستم
f.yaghoubi@kayson-ir.com[/code][/quote]

**nartamis** · 2014/09/01, 20:56

دوست عزیز از این کدی که میذارم استفاده کن.
کپی پیست کن در یه سلول. تاریخ امروز رو به شمسی محاسبه میکنه

کد PHP:


=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))))

**jmkhah** · 2014/09/01, 22:20

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

**حسام بحرانی** · 2014/09/01, 23:23

نوشته اصلی توسط nartamis

دوست عزیز از این کدی که میذارم استفاده کن.
کپی پیست کن در یه سلول. تاریخ امروز رو به شمسی محاسبه میکنه

کد PHP:


=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))))

سلام
از مزایای این فرمول این است که به راحتی و با کمترین حجم، تاریخ روز سیستم را که بر اساس تاریخ میلادی تنظیم شده است را به تاریخ شمسی تبدیل می کند. این مزیت ما را قادر خواهد ساخت تا در فرم هایی که نیاز فراوان بروزرسانی در آنها دیده می شود ( مانند پرینت های روزانه، هفتگی، ماهانه و .. )، بطور خودکار تاریخ بروزرسانی را به هجری شمسی ارائه می دهد.
در سیستم هایی که برای جداسازی آرگومانها از سمی کالن ( ; ) بجای کالن ( , ) استفاده می نمایند، می توانند به راحتی همان فرمول را به صورت زیر در سیستم و در واقع اکسل خود پیاده نموده و اجرا نمایند.
با تشکر از دوست عزیزمون nartamis * .

کد PHP:


=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))))

**nartamis** · 2014/09/01, 23:43

خب این چه کاریه آخه!!!!

میخوایم خودش اتوماتیک هر تارخی رو تبدیل کنه
این کد چون داخلش تایع Today گذاشتم همین امروز رو تبدیل میکنه. البته اینو برا کار خودم نوشتم که میشه به راحتی ادیتش کرد

**nartamis** · 2014/09/12, 03:24

علیرضاجان چشب به تاریخم دقت میکنم

یه سوال
این کدی که نوشتمو میخوام طوری باشه که وقتی تاریخ امروز رو ثبت کردم دیگه فردا تغییر نکنه.(چون داخل کد از تابع Today استفاده شده تاریخ روز رو به شمسی تبدیل میکنه) من میخوام وقتی یه مثلا واریز وجه رو ثبت کردم و تارخ خورد دیگه تغییر نکنه. راه حلی دارید شما؟؟

سپاس فرآوان

**حسام بحرانی** · 2014/09/12, 03:45

نوشته اصلی توسط nartamis

علیرضاجان چشم به تاریخم دقت میکنم

یه سوال
این کدی که نوشتمو میخوام طوری باشه که وقتی تاریخ امروز رو ثبت کردم دیگه فردا تغییر نکنه.(چون داخل کد از تابع Today استفاده شده تاریخ روز رو به شمسی تبدیل میکنه) من میخوام وقتی یه مثلا واریز وجه رو ثبت کردم و تاریخ خورد دیگه تغییر نکنه. راه حلی دارید شما؟؟
سپاس فراوان

سلام
چرا به جای این فرمول ( که نسبتاً طولانی هم هست )، بصورت دستی تاریخ روز رو وارد نمی کنید؟
به نظر شما اینکار راحت تره که مثلاً چند عدد رو بنویسید یا اینکه چند سطر فرمول رو کپی کنید؟!

البته بعضی مواقع ممکنه ندونیم تاریخ امروز چیست؟ در اینصورت می تونیم سلولی که فرمول بالا در اون هست رو کپی نموده و در محل مورد نظر ( مثلاً تاریخ واریز وجه ) به جای Paste از Paste Value استفاده نماییم.
موفق باشید.

**nartamis** · 2014/09/12, 04:31

نوشته اصلی توسط حسام بحرانی

سلام
چرا به جای این فرمول ( که نسبتاً طولانی هم هست )، بصورت دستی تاریخ روز رو وارد نمی کنید؟
به نظر شما اینکار راحت تره که مثلاً چند عدد رو بنویسید یا اینکه چند سطر فرمول رو کپی کنید؟!

البته بعضی مواقع ممکنه ندونیم تاریخ امروز چیست؟ در اینصورت می تونیم سلولی که فرمول بالا در اون هست رو کپی نموده و در محل مورد نظر ( مثلاً تاریخ واریز وجه ) به جای paste از paste value استفاده نماییم.
موفق باشید.

حسام جان
من میخوام به محض اینکه در سلول x مقدار وارد شد در سلول y خودکار تاریخ روز بخوره. چرا؟ چون کاربرام تنبل هستن وتاریخ رو وارد نمی کنن!!!

دیگه مجبورم به فکر راه حلی باشم تاریخ خود به خود ثبت بشه

**nartamis** · 2014/09/13, 11:56

نبود یاری کننده ایییی؟؟؟؟

**ali.b** · 2014/09/13, 12:01

دوست عزیز این کد رو در قسمت VB اون شیتی که مد نظرت هست کپی کن

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

کد:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range("a3")
If c <> "" And c.Offset(0, 3) = "" Then
c.Offset(0, 3) = Time
c.Offset(0, 2) = J_TODAY()
Exit Sub
End If
Next
End Sub