ایجاد تقویم شمسی در محیط vb

[mehr_vb]

با سلام به همه دوستان عزیز
چه جوری میتونم یه تقویم شمسی را در محیط vb بذارم؟؟

[damanpak]

با سلام به همه دوستان عزیز
چه جوری میتونم یه تقویم شمسی را در محیط vb بذارم؟؟

سلام،شما میتونید از کامپوننت ها و دی ال ال های آماده استفاده کنید
یک نمونه رو براتون میزام
دانلود دی ال ال تاریخ شمسی96517

[mehr_vb]

ممنون از راهنماییتون میشه به طور کامل توضیح بدید این دی ال ال را باید کجای محیط استفاده کنم؟؟

[systam]

توی تالار جستجو کن زیاده

[mehr_vb]

چه جوری میتونم یه کامپوننت رو در محیط دات نت وارد کنم؟

[damanpak]

سلام دوباره؛
اول فایل رو از حالت زیپ خارج کن بعد توی محیط وی بی دات نت روی toolbox راست کلیک کن و گزینه Choose Items رو انتخاب کن
بعد توی سربرگ .Net Freamwork Components گزینه Browse رو بزن و فایل دی ال ال که دانلود کردی رو انتخاب کن و در نهایت Ok رو بزن
حال توی tool box دوتا گزینه جدید اضافه شدن که یکی مربوط به تقویم فارسی هستش و اون رو توی فرم برنامه ات قرار بده و برنامه رو اجرا کن.موفق باشید!!!!!!!!!!!!

[nima_8m]

این تابع رو به برنامت اضافه کن

Public Function MiladiToShamsi(ByVal MDate As Date) As String
MiladiToShamsi = ""
Dim pc As New Globalization.PersianCalendar
Dim Sal As Integer = pc.GetYear(MDate)
Dim Mah As Integer = pc.GetMonth(MDate)
Dim Roz As Integer = pc.GetDayOfMonth(MDate)
MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/" & Format(Roz, "00")
Return MiladiToShamsi
End Function


و اینجوری ازش استفاده کن

labele1.Text = MiladiToShamsi(Date.Now)

[damanpak]

این تابع رو به برنامت اضافه کن ......


اگه اشتباه نکنم منظور mehr_vb کامپوننت تقویم شمسی بود که بتونه موقع اجرای برنامه کاربر تاریخ مورد نظر رو توی اون انتخاب کنه نه تابع شمسی واسه کدنویسی

[mehr_vb]

ممنون از راهنمایی کاملتون. انجام دادم درست شد :تشویق:

[nima_8m]

ممنون از راهنمایی کاملتون. انجام دادم درست شد :تشویق:

از همون dll استفاده کردید؟؟؟

اگه از کامپوننت یا DLL دیگه ای استفاده کردید بزارید ما هم استفاده کنیم

مرسی

[y.saied]

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




این تابع رو به برنامت اضافه کن

Public Function MiladiToShamsi(ByVal MDate As Date) As String
MiladiToShamsi = ""
Dim pc As New Globalization.PersianCalendar
Dim Sal As Integer = pc.GetYear(MDate)
Dim Mah As Integer = pc.GetMonth(MDate)
Dim Roz As Integer = pc.GetDayOfMonth(MDate)
MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/" & Format(Roz, "00")
Return MiladiToShamsi
End Function


و اینجوری ازش استفاده کن

labele1.Text = MiladiToShamsi(Date.Now)

[zahedi121]

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

[JaVa]

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

این هم خوبه:

قالب بندی زمان و تاریخ (ِDate And Time)
(http://barnamenevis.org/showthread.php?350677-%D9%82%D8%A7%D9%84%D8%A8-%D8%A8%D9%86%D8%AF%DB%8C-%D8%B2%D9%85%D8%A7%D9%86-%D9%88-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-(%D9%90Date-And-Time)&highlight=%D9%82%D8%A7%D9%84%D8%A8+%D8%B2%D9%85%D8 %A7%D9%86)
موفق باشید

[y.saied]

روش ساده تری به ذهنتون نمیرسه؟

[zahedi121]

سلام
یعنی یک select case هفت تایی خیلی سخته ؟!!

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

موفق باشید

[y.saied]

سلام
سخت که نیس .... بازم ممنون