روزنمای فارسی

[free1366]

سلام
من یه سوال داشتم .من یه کد واسه روزنمای فارسی میخوام که روز و ماه و سال رو به من نشون بده. یا روشی که بتونم این اطلاعات رو از PersianUtils در بیارم. مثلا امروز سه شنبه 18خرداد 1389 و ... اگه کسی میتونه به من کمک کنه ممنون میشم.

[titrajh]

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



Imports System.Globalization
Public Class Form1
Dim roz, mah, sal, day, msal, wday, mss As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call dconvert(System.DateTime.Now)

End Sub

Public Sub dconvert(ByVal dt)
Dim pdate As New PersianCalendar
Dim dat As New System.DateTime
Dim o As New roz
dat = Convert.ToDateTime(dt)
roz = (Convert.ToString(pdate.GetDayOfMonth(dat)))
mah = (Convert.ToString(pdate.GetMonth(dat)))
sal = (Convert.ToString(pdate.GetYear(dat)))
wday = (Convert.ToString(pdate.GetDayOfWeek(dat)))


day = o.droz(wday).ToString
mss = o.dmah1(mah).ToString

Label1.Text = sal + " " + "/" + " " + mah + " " + "/" + " " + roz + " " + day + " " + roz + " " + mss + " سال " + sal


End Sub

End Class


Public Class roz
Dim dax, dmah As String
Public Function droz(ByVal x As String) As String

'Dim dax As String
If x = "1" Then
dax = "دوشنبه سالروز تولد من"
'Return dax
Else
If x = "2" Then
dax = "سه شنبه"
'Return dax
Else
If x = "3" Then
dax = "چهارشنبه"
'Return dax
Else
If x = "4" Then
dax = "پنج شنبه"
' Return dax
Else
If x = "5" Then
dax = "جمعه"
' Return dax
Else
If x = "6" Then
dax = "شنبه"
' Return dax
If x = "7" Then
dax = "یک شنبه"
'Return dax
End If
End If
End If
End If
End If
End If
End If

Return dax

End Function

Public Function dmah1(ByVal y As String) As String

'Dim dax As String
If y = "1" Then
dmah = "فروردین"
'Return dax
Else
If y = "2" Then
dmah = "اردیبهشت"
'Return dax
Else
If y = "3" Then
dmah = "خرداد"
'Return dax
Else
If y = "4" Then
dmah = "تیر"
' Return dax
Else
If y = "5" Then
dmah = "مرداد"
' Return dax
Else
If y = "6" Then
dmah = "شهریور"
' Return dax
Else
If y = "7" Then
dmah = "مهر"
'Return dax
Else
If y = "8" Then
dmah = "آبان"
'Return dax
Else
If y = "9" Then
dmah = "آذر"
'Return dax
Else
If y = "10" Then
dmah = "دی"
'Return dax
Else
If y = "11" Then
dmah = "بهمن"
'Return dax
Else
If y = "12" Then
dmah = "اسفند"
'Return dax
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

Return dmah

End Function
End Class

[maxpayn2]

farsilibrary رو تو همین جا سرچ کن ، خیلی توپه