تقویم بین المللی

[رضا نانوا]

برنامه تقویم بین الملل هدیه به تمامی هکاران گرامی
فایلsetup را از پوشهdebug یافته و اجرا نمایید. منتظر نظرات شما هستم

[hesam_hma]

دوست عزیز ازتون متشکرم
لطفا برنامه هاتونو بصورت OpenSource قرار بدهید فایلهای اجرایی به کار نمیاد ، مثل اینکه فراموش کردید اینجا تالار برنامه نویسانه نه کاربران ... !
ممنون

[رضا نانوا]

دوست عزیز ازتون متشکرم
لطفا برنامه هاتونو بصورت OpenSource قرار بدهید فایلهای اجرایی به کار نمیاد ، مثل اینکه فراموش کردید اینجا تالار برنامه نویسانه نه کاربران ... !
ممنون




PrivateSub Show_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Show_Button.Click


Try
If ConverOfPrs_RadioButton.Checked = TrueThen
Christ_Label.Text = PrsCal.ToDateTime(Year_ComboBox().Text, Month_ComboBox().Text, Day_ComboBox().Text, 0, 0, 0, 0)
ChrsCurDate =



CDate(Christ_Label().Text)

Hijri_Label.Text = HjrCal.GetYear(ChrsCurDate) &



"/" & HjrCal.GetMonth(ChrsCurDate) & "/" & HjrCal.GetDayOfMonth(ChrsCurDate.AddDays(-1))

Persian_Label.Text = PrsCal.GetYear(ChrsCurDate) &



"/" & PrsCal.GetMonth(ChrsCurDate) & "/" & PrsCal.GetDayOfMonth(ChrsCurDate)

ChrsMonth_Label.Text = ChrsCal.GetMonth(Christ_Label().Text)

HjrMonth_Label.Text = HjrCal.GetMonth(Christ_Label().Text)
PrsMonth_Label.Text = PrsCal.GetMonth(Christ_Label().Text)
ElseIf ConverOfHjr_RadioButton.Checked = TrueThen
Christ_Label.Text = HjrCal.ToDateTime(Year_ComboBox().Text, Month_ComboBox().Text, Day_ComboBox().Text, 0, 0, 0, 0).AddDays(1)
ChrsCurDate =



CDate(Christ_Label().Text)

Hijri_Label.Text = HjrCal.GetYear(ChrsCurDate) &



"/" & HjrCal.GetMonth(ChrsCurDate) & "/" & HjrCal.GetDayOfMonth(ChrsCurDate.AddDays(-1))

Persian_Label.Text = PrsCal.GetYear(ChrsCurDate) &



"/" & PrsCal.GetMonth(ChrsCurDate) & "/" & PrsCal.GetDayOfMonth(ChrsCurDate)

ChrsMonth_Label.Text = ChrsCal.GetMonth(Christ_Label().Text)

HjrMonth_Label.Text = HjrCal.GetMonth(Christ_Label().Text)
PrsMonth_Label.Text = PrsCal.GetMonth(Christ_Label().Text)
ElseIf ConverOfChrs_RadioButton.Checked = TrueThen
Christ_Label.Text = ChrsCal.ToDateTime(Year_ComboBox().Text, Month_ComboBox().Text, Day_ComboBox().Text, 0, 0, 0, 0)
ChrsCurDate =



CDate(Christ_Label().Text)

Hijri_Label.Text = HjrCal.GetYear(ChrsCurDate) &



"/" & HjrCal.GetMonth(ChrsCurDate) & "/" & HjrCal.GetDayOfMonth(ChrsCurDate.AddDays(-1))

Persian_Label.Text = PrsCal.GetYear(ChrsCurDate) &



"/" & PrsCal.GetMonth(ChrsCurDate) & "/" & PrsCal.GetDayOfMonth(ChrsCurDate)

ChrsMonth_Label.Text = ChrsCal.GetMonth(Christ_Label().Text)

HjrMonth_Label.Text = HjrCal.GetMonth(Christ_Label().Text)
PrsMonth_Label.Text = PrsCal.GetMonth(Christ_Label().Text)
EndIf








End



Class

[رضا نانوا]

برای دیدن کدهای برنامه کلیک کنید