تاريخ شمسي [بایگانی]

mononok

سه شنبه 13 مرداد 1388, 12:45 عصر

سلام
آيا اين امكان وجود داره كه موقع لود شدن فرمي تاريخ شمسي روي آن نمايش داده بشه
با تابعي مثل now تاريخ ميلادي نمايش داده ميشه براي تاريخ شمسي چيكار بايد كرد؟

mortezamhd

سه شنبه 13 مرداد 1388, 13:08 عصر

سلام دوست عزيز
من همين الان يك سرچ زدم يك نگاهي بنداز
http://barnamenevis.org/forum/showthread.php?t=171001
بگردي خيلي زياد پيداميشهههه
موفق باشي

Rahimiyan

یک شنبه 18 مرداد 1388, 16:20 عصر

دوست عزیز این Dll بکارت میاد؟ این میتونه تاریخ شمسی رو بهت بده.

ebrahimv

دوشنبه 19 مرداد 1388, 00:42 صبح

برات يه ماژول ميزارم كه سه حالت نمايش داره
اين ماژول به برنامت متصل كن بعد هرجا بنويسي

PDate(1)
يا
PDate(2)

يا
Pdate(3)

برات نمايش ميده

milad.biroonvand

دوشنبه 19 مرداد 1388, 10:17 صبح

سلام دوست عزيز

اين تابعشه

Protected Function PersianDate(ByVal k As Date) As String
Dim Per As String
Dim PerCalender As DateTimeFormatInfo = New CultureInfo("fa-IR", True).DateTimeFormat
Dim PerMonthNames As String() = New String() {"", "ه©ي©§ïë", "ں©§ï ى¬¢", "¦©§ں§", "¢ï©", "ê©§ں§", "¬ى©ïي©", "", "", "", "", ""}
PerCalender.Calendar = New GregorianCalendar
Dim ps As New PersianCalendar
Per = PerCalender.DayNames(k.DayOfWeek()) & " " & ps.GetDayOfMonth(k) & "/" & PerMonthNames(ps.GetMonth(k)) & "/" & ps.GetYear(k)
Return Per
End Function

شما مي توني در رويداد فرم لود يا shown بنويسي

me.text=persiandate(now)

به همين راحتي

با تشكر ميلاد بيرون وند

milad.biroonvand

دوشنبه 19 مرداد 1388, 10:18 صبح

به جاي اونهايي كه مشخص نيست ، به ترتيب از چپ به راست ، به جز كوتيشن اولي ، ماه ها رو به فارسي بنويس

فروردين، ارديبهشت،خرداد ... تا اسفند
يادت نره از چپ به راست