HTTP Error 500.21 - Internal Server Error
برای حل این مشکل چکاری باید بکنم
من از PersianDateTime.dll هم در برنامه ام استفاده میکنم. روی سیستم درسته وقتی میارم روی یک سیستم دیگه که IIS نصب کردم این خطا را میده.
قبلا اجرا میشد قبلا دات نت فریم ورک 2 بود الان ب ایا کامپوننت دات نت 4 شد و دات نت 4 هم نصب هست.
نقل قول: HTTP Error 500.21 - Internal Server Error
سلام
یه کلاس بنویسید ... توی صفحاتتون این فانشن رو صدا بزنید :
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
نقل قول: HTTP Error 500.21 - Internal Server Error
نقل قول:
نوشته شده توسط
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
سلام و تشکر از پاسختون
این کد چکاری انجام میده؟و این مشکل راچطور حل میکنه؟
نقل قول: HTTP Error 500.21 - Internal Server Error
دیگه از dll آماده استفاده نکنید ...
میتونید از این سورس توی پروژتون استفاده کنید . اگه از #C استفاده میکنید فقط کافیه تبدیلش کنید .
نقل قول: HTTP Error 500.21 - Internal Server Error
تشکر مهندس
حالا چطور میشه برای تقویم استفاده کرد؟ چون تقویم دارم
نقل قول: HTTP Error 500.21 - Internal Server Error
اگه میخواید از تقویم استفاده کنید بهتره از تقویم های آماده تو پروژتون استفاده کنید :
https://github.com/Mds92/MD.Bootstra...DateTimePicker