تبدیل تاریخ میلادی به شمسی در گزارش ایجاد شده توسط Crystal Report

[nazanin0]

دوستان عزیز سلام

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

می خوام Print Date گزارشم رو به شمسی تبدیل کنم این مطالب رو هم می دونم:
یه پارامتر به اسم print date رو گزارشم قرار بدم در فرم مربوطه رو دکمه ای که باید صفحه گزارش رو باز کنه کد زیر رو بنویسم



rd.setparametervalue("printdate",......)
در قسمت.... باید چه چیزی بنویسم؟در ضمن rd=report document
با تشکر

[ali_najari]

دوست عزيز با استفاده از كد زير بايد تاريخ سيستم رو به شمسي تبديل كنيد و بعد توي گزارش وارد كنيد! يعني بصورت زيز:




Public Function MiladiToShamsi(ByVal MDate As Date) As String


MiladiToShamsi = “”


Dim pc As New Globalization.PersianCalendar


Dim Sal As Integer = pc.GetYear(MDate)
Dim Mah As Integer = pc.GetMonth(MDate)
Dim Roz As Integer = pc.GetDayOfMonth(MDate)


MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/" & Format(Roz, "00")


Return MiladiToShamsi



End Function



سپس از طريق زير مقدار دهي ميكنيد!


rd.setparametervalue("printdate",MiladiToShamsi(Now))