تاریخ شمسی و میلادی و قمری

[zibaaa]

سلام
میشه راهنمایی بفرمایید با چه دستوری میشه تاریخ روز رو هم به شمسی بصورت چهارشنبه 31 فروردین 1390 نشون داد
هم قمری بصورت 16 جمادی الاول 1432
هم میلادی بصورت April 20 2011
ممنون

[m_mohadese]

شما میتونید از dll تبدیل تاریخ میلادی به شمسی استفاده کنی که قابلیت به دست آ<ردن روز هفته و ماه را نیز دارد ..

[m_mohadese]

نام dll یادم رفت . farhanishamsi

[Hadiir.net]

سلام
من یه ساب برات میزارم که با استفاده از کتابخانه داخلی خود دات نت تقویم رو بهت میده
این کد رو خودم نوشتم و شاید زیاد پیشرفته و جالب نباشه اما تقویم شمسی روز جاری رو بهت میده (من ازش توی یه تکست باکس استفاده کردم) ببین به دردت میخوره ؟ برای سایر تقویم ها هم میتونی از همین روش استفاده کنی

خروجی این ساب هم این شکلیه: پنج شنبه،1،اردیبهشت،1390



Imports oPC = System.Globalization.PersianCalendar
Imports VB = Microsoft.VisualBasic
Public Class Form1
Dim PC As New oPC
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' MessageBox.Show(PC.IsLeapYear(1390).ToString)
SetPC()
End Sub
Private Sub SetPC()

SetTitle()
End Sub






Private Sub SetTitle()
Dim D(6) As String
Dim M(11) As String
Dim Temp As String = ""
Dim DoM As Integer = PC.GetDayOfMonth(Now)
Dim DoW As Integer = PC.GetDayOfWeek(Now)
Dim MoY As Integer = PC.GetMonth(Now)
Dim YYYY As Integer = PC.GetYear(Now)
D(0) = "شنبه" : D(1) = "یک شنبه" : D(2) = "دوشنبه" : D(3) = "سه شنبه" : D(4) = "چهارشنبه" : D(5) = "پنج شنبه" : D(6) = "جمعه"
M(0) = "فروردین" : M(1) = "اردیبهشت" : M(2) = "خرداد" : M(3) = "تیر" : M(4) = "مرداد" : M(5) = "شهریور" : M(6) = "مهر" : M(7) = "آبان" : M(8) = "آذر" : M(9) = "دی" : M(10) = "بهمن" : M(11) = "اسفند"
'================================================= ='
'Get day of week
Select Case DoW
Case 1
Temp = D(2)
Case 2
Temp = D(3)
Case 3
Temp = D(4)
Case 4
Temp = D(5)
Case 5
Temp = D(6)
Case 6
Temp = D(0)
Case 7
Temp = D(1)
End Select
'================================================= ='
Temp = Temp & "،" & DoM & "،"
'================================================= ='
'Get month of year:
Dim MMM As String = M(MoY - 1)
'================================================= ='
Temp = Temp & MMM & "،" & YYYY
'================================================= ='
Me.TextBox_Top.Text = Temp
End Sub

[ali_isp]

سلام وقت شما بخير من اين سورس رو اجرا كردم متاسفانه روز هفته رو نمايش نميده
خروجي تكست باكس اينجوريه: 18 ارديبهشت 1390