مشکل تاریخ در نت فرم ورک 4 به بالا

[hamidrezax1]

سلام دوستان وقت بخیر من با فانکشن های متفاوتی تاریخ رو تغیر میدادم و مشکلی در این خصوص نداشتم.مثلا با دستور NOW میتونم تاریخ میلادی سیستم رو بدست بیارم اما به محض اینکه از نت فرم ورک 4 استفاده میکنم همین دستور تاریخ رو به من فارسی برمیگردونه.لطفا اگر کسی از دوستان راه کاری داره ممنون میشم راهنمایی کنه(ویندوز 10 و این رو هم بگم فقط برای یک سیستم نمیخوام لطفا این رو در نظر بگیرین که راهنمایتون تغیرات تنظیمات ساعت و تاریخ ویندوز نباشه ) با تشکر

[Mahmoud.Afrad]

حروف فارسی ؟ یا شمسی؟

کد بزارید. برای بار چندهزارم داریم میگیم.

[hamidrezax1]

سلام وقت بخیر
عرض کردم کد زیاده منتحی زمانی که شما از دات نت 3.5 به 4 و بالاتر میرید در ویندوز 10 که تاریخ فارسی باشه کلا ساختار فارسی میشه




Public Function Miladi2Shamsi(ByVal miladiDate As Date) As String
Dim pc As New PersianCalendar
Dim sb As New StringBuilder
sb.AppendFormat("{0}/{1}/{2}", pc.GetYear(miladiDate).ToString(), pc.GetMonth(miladiDate).ToString("D2"), pc.GetDayOfMonth(miladiDate).ToString("D2"))
Return sb.ToString()
End Function









Function ShamsiToMiladi(ByVal ShamsiDate As String) As String
If IsNumeric(ShamsiDate.Replace("/", "")) = False Then Return 0
Try
If ShamsiDate.Length <> 10 Then Return 0
Dim Date_Sh As New Globalization.PersianCalendar()
Dim Date_M As DateTime = Date_Sh.ToDateTime(ShamsiDate.Substring(0, 4), ShamsiDate.Substring(5, 2), _
ShamsiDate.Substring(8, 2), _
0, 0, 0, 0, _
Globalization.PersianCalendar.PersianEra)
Return Date_M.ToShortDateString
Catch ex As Exception
Return 0
End Try
End Function

[Mahmoud.Afrad]

ساختار datetime میلادی هست منتها در زمان نمایش ویندوز برحسب تنظیماتش شمسی نشون میده. در خط ۱۰ از متد تبدیل شمسی به میلادی از متد tostring استفاده کنید و فرمت مناسب را به پارامتر اول و invariantculture را به عنوان پارامتر دوم بهش بدید.
https://docs.microsoft.com/en-us/dotnet/api/system.globalization.cultureinfo.invariantculture

[hamidrezax1]

سلام وقت بخیر من این دیده بودم منتحی نتونستم پیاده سازی کنم.لطفا میشه بیشتر راهنمایی کنید و یا در صورت امکان این کد رو تصیح کنید




Public Shared Sub Main()
Dim sw As New StreamWriter(".\DateData.dat")
Dim dtIn As DateTime = DateTime.Now
Dim invC As CultureInfo = CultureInfo.InvariantCulture
sw.WriteLine(dtIn.ToString("r", invC))
sw.Close()
Dim sr As New StreamReader(".\DateData.dat")
Dim input As String
While (input = sr.ReadLine()) IsNot Nothing
Console.WriteLine("Stored data: {0}" & vbLf, input)
Dim dtOut As DateTime = DateTime.Parse(input, invC, DateTimeStyles.RoundtripKind)
Dim frFr As New CultureInfo("fr-FR")
Console.WriteLine("Date formatted for the {0} culture: {1}", frFr.Name, dtOut.ToString("f", frFr))
Dim deDe As New CultureInfo("de-De")
Console.WriteLine("Date formatted for {0} culture: {1}", deDe.Name, dtOut.ToString("f", deDe))
End While
sr.Close()
End Sub




البته کد بالا در خط



While (input = sr.ReadLine()) IsNot Nothing




این ارور رو میده



'IsNot' requires operands that have reference types, but this operand has the value type 'Boolean'

[Mahmoud.Afrad]

Return Date_M.ToString( Globalization.CultureInfo.InvariantCulture)

اگر فقط تاریخ نیاز هست با استفاده از فرمت مثلا

Return Date_M.ToString("yyyy/MM/dd", Globalization.CultureInfo.InvariantCulture)

[hamidrezax1]

ممنونم دوست عزیز
برای تبدیل شمسی به میلادی فرمایش شما درست اعمال میشه ، اما برای میلادی به شمسی چکار باید کرد ممنون میشم راهنمایی بفرمایید

البته مشکل من توی تقویم های برعکس هست مثلا گاهی تاریخ بعضی از سیستم ها 2020/01/01 هست و گاهی 01/01/2021 که دچار مشکل میشم وگرنه این تابع مشکل رو حل میکنه




Public Function Miladi2Shamsi(ByVal miladiDate As String) As String
Dim [date] As DateTime = Convert.ToDateTime("" + miladiDate.Substring(0, 4) + "-" + miladiDate.Substring(5, 2) + "-" + miladiDate.Substring(8, 2) + "T00:00:00.001Z")
Dim persianDateString As String = [date].ToString("yyyy/MM/dd", New CultureInfo("fa-IR"))
Return persianDateString
End Function