درخواست سورس كد نمايش تاريخ سيستم به شمسي همراه با روز هفته

[yaser2290]

سلام عزيزان من براي برنامه دبيرخانه سورس كدي رو ميخوام كه به من در يك ليبل نمايش تاريخ سيستم را به شمسي و همراه با روز هفته نشون بده. نمونه سه شنبه 01/05/1387

[komail_sh]

سلام
این فایل یه class هست که باید به برنامت اضافه کنی

[komail_sh]

ظاهرا فایل ضمیمه نشد
اینم فایل
20820

[shamsoft]

خود دات نت کلاسی به نام PersianCalendar (http://msdn.microsoft.com/en-us/library/system.globalization.persiancalendar.aspx) از ورژن دوم Framework به کلاسهاش اضافه کرده که متاسفانه کمتر کسی رو دیدم که ازش استفاده کنه!
من خودم از تابع زیر برای تاریخ جاری استفاده می کنم:

Public Function CurrDate() As String
Dim a As New System.Globalization.PersianCalendar
Dim b As Date = Date.Now
Return a.GetYear(b) & "/" & AddZero(a.GetMonth(b)) & "/" & AddZero(a.GetDayOfMonth(b))
End Function

Private Function AddZero(ByVal Var As String) As String
If Len(Var) = 1 Then Return "0" & Var Else Return Var
End Function

روز هفته هم که با میلادی فرقی نداره. Date.Now.DayOfWeek روز هفته رو به انگلیسی بهتون میده که با یه Select Case ساده می تونید به فارسی تبدیلش کنید

[morteza_261]

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

[nefrat]

سلام من الان اون کلاس اول رو دانلود کردم ...
چطوری میتونم توی یک LABLE نشون بدم؟؟؟
در ضمن یه خطای کوچیک هم هست >
اولین
End Function
میگه :
توی ضمیمه گذاشتم!