HTTP Error 500.21 - Internal Server Error

[sg.programmer]

برای حل این مشکل چکاری باید بکنم
من از PersianDateTime.dll هم در برنامه ام استفاده میکنم. روی سیستم درسته وقتی میارم روی یک سیستم دیگه که IIS نصب کردم این خطا را میده.
قبلا اجرا میشد قبلا دات نت فریم ورک 2 بود الان ب ایا کامپوننت دات نت 4 شد و دات نت 4 هم نصب هست.

[Tekyegah]

سلام
یه کلاس بنویسید ... توی صفحاتتون این فانشن رو صدا بزنید :


Function datenow() As String
Dim far30 As New System.Globalization.PersianCalendar
Dim fary As String = ""
Dim farm As String = ""
Dim fard As String = ""
Dim fardw As String = ""
Dim farw As String = ""
Dim fardHou As String = ""
Dim fardMin As String = ""

Dim TimeString As DateTime = DateAndTime.Now()
Dim Intdiffrenttime As String = "+3.5"
Dim theUTCTime As DateTime
Dim localZone As TimeZone = TimeZone.CurrentTimeZone
theUTCTime = localZone.ToUniversalTime(TimeString)
theUTCTime = theUTCTime.AddHours(Intdiffrenttime)
fary = far30.GetYear(theUTCTime)
farm = far30.GetMonth(theUTCTime)
fard = far30.GetDayOfMonth(theUTCTime)
Dim Saat As String = far30.GetHour(theUTCTime)
Dim Daghighee As String = far30.GetMinute(theUTCTime)

If farm.Length = 1 Then farm = "0" + farm.ToString
If fard.Length = 1 Then fard = "0" + fard.ToString
If Saat.Length = 1 Then Saat = "0" + Saat.ToString
If Daghighee.Length = 1 Then Daghighee = "0" + Daghighee.ToString
'-----
Return (fary + "-" + farm + "-" + fard + " " + Saat + ":" + Daghighee)
End Function

[sg.programmer]

سلام
یه کلاس بنویسید ... توی صفحاتتون این فانشن رو صدا بزنید :


Function datenow() As String
Dim far30 As New System.Globalization.PersianCalendar
Dim fary As String = ""
Dim farm As String = ""
Dim fard As String = ""
Dim fardw As String = ""
Dim farw As String = ""
Dim fardHou As String = ""
Dim fardMin As String = ""

Dim TimeString As DateTime = DateAndTime.Now()
Dim Intdiffrenttime As String = "+3.5"
Dim theUTCTime As DateTime
Dim localZone As TimeZone = TimeZone.CurrentTimeZone
theUTCTime = localZone.ToUniversalTime(TimeString)
theUTCTime = theUTCTime.AddHours(Intdiffrenttime)
fary = far30.GetYear(theUTCTime)
farm = far30.GetMonth(theUTCTime)
fard = far30.GetDayOfMonth(theUTCTime)
Dim Saat As String = far30.GetHour(theUTCTime)
Dim Daghighee As String = far30.GetMinute(theUTCTime)

If farm.Length = 1 Then farm = "0" + farm.ToString
If fard.Length = 1 Then fard = "0" + fard.ToString
If Saat.Length = 1 Then Saat = "0" + Saat.ToString
If Daghighee.Length = 1 Then Daghighee = "0" + Daghighee.ToString
'-----
Return (fary + "-" + farm + "-" + fard + " " + Saat + ":" + Daghighee)
End Function

سلام و تشکر از پاسختون
این کد چکاری انجام میده؟و این مشکل راچطور حل میکنه؟

[Tekyegah]

دیگه از dll آماده استفاده نکنید ...

میتونید از این سورس توی پروژتون استفاده کنید . اگه از #C استفاده میکنید فقط کافیه تبدیلش کنید .

[sg.programmer]

تشکر مهندس
حالا چطور میشه برای تقویم استفاده کرد؟ چون تقویم دارم

[Tekyegah]

اگه میخواید از تقویم استفاده کنید بهتره از تقویم های آماده تو پروژتون استفاده کنید :

https://github.com/Mds92/MD.BootstrapPersianDateTimePicker