hamideh_m
چهارشنبه 14 مهر 1389, 22:04 عصر
سلام
Public Structure fullpersian
Dim dow_to_int As Integer
Dim day As Integer
Dim month As Integer
Dim year As Integer
Dim dow As String
Dim moyear As String
Dim str_day As String
Dim str_month As String
End Structure
Public Function convertdayofweek(ByVal tarikh As Date) As fullpersian
Dim pc As New Globalization.PersianCalendar
Dim fp As New fullpersian
Dim dow As DayOfWeek = pc.GetDayOfWeek(tarikh)
If dow = DayOfWeek.Saturday Then fp.dow = "شنبه" : fp.dow_to_int = 1
If dow = DayOfWeek.Sunday Then fp.dow = "یک شنبه" : fp.dow_to_int = 2
If dow = DayOfWeek.Monday Then fp.dow = "دو شنبه" : fp.dow_to_int = 3
If dow = DayOfWeek.Tuesday Then fp.dow = "سه شنبه" : fp.dow_to_int = 4
If dow = DayOfWeek.Wednesday Then fp.dow = "چهار شنبه" : fp.dow_to_int = 5
If dow = DayOfWeek.Thursday Then fp.dow = "پنج شنبه" : fp.dow_to_int = 6
If dow = DayOfWeek.Friday Then fp.dow = "جمعه" : fp.dow_to_int = 7
fp.year = pc.GetYear(tarikh)
Dim moyear As Integer = pc.GetMonth(tarikh)
fp.month = moyear
If moyear = 1 Then fp.moyear = "فروردین"
If moyear = 2 Then fp.moyear = "اردیبهشت"
If moyear = 3 Then fp.moyear = "خرداد"
If moyear = 4 Then fp.moyear = "تیر"
If moyear = 5 Then fp.moyear = "مرداد"
If moyear = 6 Then fp.moyear = "شهریور"
If moyear = 7 Then fp.moyear = "مهر"
If moyear = 8 Then fp.moyear = "آبان"
If moyear = 9 Then fp.moyear = "آذر"
If moyear = 10 Then fp.moyear = "دی"
If moyear = 11 Then fp.moyear = "بهمن"
If moyear = 12 Then fp.moyear = "اسفند"
fp.day = pc.GetDayOfMonth(tarikh)
If fp.day < 10 Then fp.str_day = "0" & fp.day Else fp.str_day = fp.day
If fp.month < 10 Then fp.str_month = "0" & fp.month Else fp.str_month = fp.month
Return fp
End Function
Public Function m2fa() As String
Dim fpp As fullpersian = convertdayofweek(Date.Now)
Return fpp.year & "/" & fpp.str_month & "/" & fpp.str_day
End Functionمن اين كلاسو از اين سايت گرفتم ولي موقع فراخواني تو labelمشكل دارم .اينو چه جوري استفاده ميكنن
Public Structure fullpersian
Dim dow_to_int As Integer
Dim day As Integer
Dim month As Integer
Dim year As Integer
Dim dow As String
Dim moyear As String
Dim str_day As String
Dim str_month As String
End Structure
Public Function convertdayofweek(ByVal tarikh As Date) As fullpersian
Dim pc As New Globalization.PersianCalendar
Dim fp As New fullpersian
Dim dow As DayOfWeek = pc.GetDayOfWeek(tarikh)
If dow = DayOfWeek.Saturday Then fp.dow = "شنبه" : fp.dow_to_int = 1
If dow = DayOfWeek.Sunday Then fp.dow = "یک شنبه" : fp.dow_to_int = 2
If dow = DayOfWeek.Monday Then fp.dow = "دو شنبه" : fp.dow_to_int = 3
If dow = DayOfWeek.Tuesday Then fp.dow = "سه شنبه" : fp.dow_to_int = 4
If dow = DayOfWeek.Wednesday Then fp.dow = "چهار شنبه" : fp.dow_to_int = 5
If dow = DayOfWeek.Thursday Then fp.dow = "پنج شنبه" : fp.dow_to_int = 6
If dow = DayOfWeek.Friday Then fp.dow = "جمعه" : fp.dow_to_int = 7
fp.year = pc.GetYear(tarikh)
Dim moyear As Integer = pc.GetMonth(tarikh)
fp.month = moyear
If moyear = 1 Then fp.moyear = "فروردین"
If moyear = 2 Then fp.moyear = "اردیبهشت"
If moyear = 3 Then fp.moyear = "خرداد"
If moyear = 4 Then fp.moyear = "تیر"
If moyear = 5 Then fp.moyear = "مرداد"
If moyear = 6 Then fp.moyear = "شهریور"
If moyear = 7 Then fp.moyear = "مهر"
If moyear = 8 Then fp.moyear = "آبان"
If moyear = 9 Then fp.moyear = "آذر"
If moyear = 10 Then fp.moyear = "دی"
If moyear = 11 Then fp.moyear = "بهمن"
If moyear = 12 Then fp.moyear = "اسفند"
fp.day = pc.GetDayOfMonth(tarikh)
If fp.day < 10 Then fp.str_day = "0" & fp.day Else fp.str_day = fp.day
If fp.month < 10 Then fp.str_month = "0" & fp.month Else fp.str_month = fp.month
Return fp
End Function
Public Function m2fa() As String
Dim fpp As fullpersian = convertdayofweek(Date.Now)
Return fpp.year & "/" & fpp.str_month & "/" & fpp.str_day
End Functionمن اين كلاسو از اين سايت گرفتم ولي موقع فراخواني تو labelمشكل دارم .اينو چه جوري استفاده ميكنن