تاريخ شمسي

[غلامرضا نو]

فايل shamsi.dll را از همين سايت كه دوستان گذاشته بودند دانلود كردم ولي وقتي ميخواهم به vb.net اضافه كنم پيغام خطا مبني بر درست نبودن كامپايل آنرا ميدهد خواهشا يكي كمك كنه/
شديدا نياز دارم
با تشكر

[heidary.mahdi]

با عرض سلام :
دوستان اين فايل shamsi.dll به References add نمي شود . البته گفتني است كه من از فايل FarsiLibrary استفاده مي كنم. مي خوام بدونم يهتر از اونه ؟ يا نه !
با تشكر

[ebraham]

سلام بهترين راه استفاده از persian calander خود vs است چرا از اون استفاده نميكنيد؟

[bia2joker]

این هم تابع تبدیل میلادی به شمسی
PrivateFunction MiladiToShamsi(ByVal MDate AsDate) AsString
MiladiToShamsi = ""
Dim pc AsNew Globalization.PersianCalendar
Dim Sal AsInteger = pc.GetYear(MDate)
Dim Mah AsInteger = pc.GetMonth(MDate)
Dim Roz AsInteger = pc.GetDayOfMonth(MDate)
MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/" & Format(Roz, "00")
Return MiladiToShamsi
EndFunction

مثلا تاریخ امروز را بخواهیم بدست بیاوریم

MsgBox(MiladiToShamsi(Now))

[ahmadreza517]

سلام دوست عزیز بد نیست به این آدرس سری بزنی
http://mobtakerbartar.persianblog.ir/post/14