پروژه تبدیل تاریخ شمسی به قمری

[m2326499]

با سلام و احترام حضور همه

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

و میخاستم معادل همان تاریخ ، به قمری را نمایش بده

ممنون میشم کسی راهنمایی کنه

[alirezabahrami]

سلام
یا علی

[m2326499]

سلام
یا علی

منظورتون از یاعلی اینه که نمیشه ؟؟ یعنی اصلا راهی نداره ؟

[ehsanshahi]

منظورتون از یاعلی اینه که نمیشه ؟؟ یعنی اصلا راهی نداره ؟
این کار شدنیه یکم درگیرم ..وقت کنم واست نمونه میذارم

[m2326499]

سلام مجدد

من کلیات تقویم قمری رو بدست آوردم
ممنون میشم از بزرگوارانی که میتونن کمکی کنن بتونم این پروژه رو تموم کنم
-----------------------------------------------------
تعداد روزها در سال عادی : 354 روز
تعداد روزها در سال کبیسه : 355 روز

1- محرم 30 روز
2- صفر 29 روز
3- ربع الاول 30 روز
4- ربیع الثانی 29 روز
5- جمادی الاول 30 روز
6- جمادی الثانی 29 روز
7- رجب 30 روز
8- شعبان 29 روز
9- رمضان 30 روز
10- شوال 29 روز
11- ذی القعده 30 روز
12- ذی الحجه 30 روز

با سپاس فراوان

[Abbas Amiri]

سلام مجدد

من کلیات تقویم قمری رو بدست آوردم
ممنون میشم از بزرگوارانی که میتونن کمکی کنن بتونم این پروژه رو تموم کنم
-----------------------------------------------------
تعداد روزها در سال عادی : 354 روز
تعداد روزها در سال کبیسه : 355 روز

1- محرم 30 روز
2- صفر 29 روز
3- ربع الاول 30 روز
4- ربیع الثانی 29 روز
5- جمادی الاول 30 روز
6- جمادی الثانی 29 روز
7- رجب 30 روز
8- شعبان 29 روز
9- رمضان 30 روز
10- شوال 29 روز
11- ذی القعده 30 روز
12- ذی الحجه 30 روز

با سپاس فراوان

سلام
یک نکته را هم باید ذکر میکردید که این تعداد روزهای ماه در سالهای مختلف ، ممکن است تفاوت داشته باشد .
به ضمیمه این پست (http://barnamenevis.org/showthread.php?339004-%D8%AA%D9%82%D9%88%DB%8C%D9%85-%D9%82%D8%A7%D8%A8%D9%84-%D9%88%DB%8C%D8%B1%D8%A7%DB%8C%D8%B4&p=2219613&viewfull=1#post2219613)مراجعه کنید و در آنجا می توانید از تابع Shamsi2Ghamary استفاده کنید که خروجی آن یک آرایه هست . می توانید آنرا در یک متغیر Variant ذخیره کنید و اندیس های 0 تا 2 آنرا که به ترتیب سال و ماه و روز است را استفاده کنید.

یک راه خیلی ساده و با اشتباهات زیادتر هم استفاده از توابع داخلی VBA است که توصیه نمی شود.
Function Greg2Hijri(GregDate As Date) As String
VBA.Calendar = vbCalHijri
Greg2Hijri = GregDate
VBA.Calendar = vbCalGreg
End Function

[m2326499]

سلام
یک نکته را هم باید ذکر میکردید که این تعداد روزهای ماه در سالهای مختلف ، ممکن است تفاوت داشته باشد .
........
[/VB]

سلام جناب اقای امیری
به نکته خیلی خوبی اشاره فرمودید . (تعداد روزهای ماه ، در سالهای مختلف ثابت نیست) فکرمیکردم اگه اینو ذکر کنم ، کار یکم سخت بشه و کسی متوجه منظورم نشه ...

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

از حضرتعالی تقاضا دارم در صورت امکان و اگر فرصت کردید روی نمونه خودم این مشکل رو حل بفرمایید


باسپاس فراوان ازشما

[golbafan]

سلام
بهتره اول شمسی رو به میلادی و سپس میلادی رو به قمری تبدیل کنید

کدهای تبدیل تقویم شمسی به میلادی همه جا هست
http://barnamenevis.org/showthread.php?281309-%D8%AA%D9%82%D9%88%DB%8C%D9%85-%D8%B4%D9%85%D8%B3%DB%8C-%28Persian-Calendar%29-%D8%AF%D8%B1-%D9%88%DB%8C%DA%98%D9%88%D8%A7%D9%84-%D8%A7%D8%B3%D8%AA%D9%88%D8%AF%DB%8C%D9%88-2010-%28vs-2010-visual-studio-2010%29
https://msdn.microsoft.com/en-us/library/system.globalization.persiancalendar%28v=vs.110%29 .aspx


کدهای تبدیل میلادی به قمری هم همینطور...
http://www.codeproject.com/Articles/8838/Convert-date-from-Hijri-Calendar-to-Gregorian-Cale
http://stackoverflow.com/questions/8601725/hijri-and-gregorian-datetime-constructor
http://stackoverflow.com/questions/19075759/convert-between-calendars

[Abbas Amiri]

سلام جناب اقای امیری
به نکته خیلی خوبی اشاره فرمودید . (تعداد روزهای ماه ، در سالهای مختلف ثابت نیست) فکرمیکردم اگه اینو ذکر کنم ، کار یکم سخت بشه و کسی متوجه منظورم نشه ...

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

از حضرتعالی تقاضا دارم در صورت امکان و اگر فرصت کردید روی نمونه خودم این مشکل رو حل بفرمایید


باسپاس فراوان ازشما

سلام
تغییرات در فایل شما منظور شد.