نمایش تاریخ فارسی در Data Grid

[ghrzarei]

:گریه:لطفاً راهنمایی کنید
1- چطوری تاریخ میلادی در بانک را در Data Grid به صورت تاریخ شمسی نمایش بده
2- چطوری مقادیر دیگه داخل بانک را در همین Dat Grid به صورت دلخواه نمایش دهد (مثلا مقدار 0 را در کل سطرها بصورت الف نمایش دهد مقدار 1 به بصورت ب نمایش دهد)
اگر یک sample کوچک قرار بدین ممنون می شم با تشکر فراوان

[ali_md110]

ابتدا تابع تبدیل تاریخ فارسی

Public Function MiladiToShamsis(ByVal mydate As DateTime) As String
Try
Dim Date_Sh As New Globalization.PersianCalendar
Return Date_Sh.GetYear(Date.Now) & "/" & Format(Date_Sh.GetMonth(Date.Now), "00") & "/" & Format(Date_Sh.GetDayOfMonth(Date.Now), "00")
Catch ex As Exception
Return 0
End Try
End Function

Dg.CurrentRow.Cells(0).Value = MiladiToShamsis(Date.Now)
کد بالا اولین ستون در اولین ردیف دیتاگراید رو شمسی میکنه اگر خواستید تمام ستونها شمسی بشه
از حلقه استفاده کنید

For i As Integer = 0 To Dg.RowCount - 1
Dg.Rows(i).Cells(0).Value = MiladiToShamsis(Date.Now)
Next
سوال دومتون

For i As Integer = 0 To Dg.RowCount - 1
If Dg.Rows(i).Cells(1).Value = 0 Then
Dg.Rows(i).Cells(1).Value = "الف"
End If
Next
موفق باشید

[__H2__]

سلام
برای روش ساده تر میتوانید سری به تاپیک زیر بزنید
http://www.barnamenevis.org/forum/showthread.php?t=99438&page=2
موفق باشید.

[jalalnooritehrani]

من هم 3 كلاس دارم كه توي اين چند ساله از آنها استفاده ميكنم البته كار من نيست ولي بصورت رايگان سازندش در اختيار ديگران قرار داده است
من هم به شما هديه ميكنم
در كلاس بصورت خودكار در ديتاگريد يك تقويم شمسي ايجاد ميكنه و شما ميتوانيد نوع فيلد را تقويم شمسي در نظر بگيريد

[farrokhi]

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