تقویم فارسی

[رضا جابرپور 179]

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

[رضا جابرپور 179]

کسری جان میشه بیشتر توضیح بدی من می خوام ایام رو به من بده مثل شنبه یکشنبه و ... ممنون می شم

[کسری نعمتی مهمان]

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

dim l as list
l.add("shanbe")
l.add("1shanbe")
l.add("2shanbe")
l.add("3shanbe")

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

[رضا جابرپور 179]

مرسی که پیگیری کسری جان می خوام اتوماتیک باشه لطف کن مثال بزار روی یه label

[مجید آرتا 5,874]

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

اینجوری نمیشه کار بنده خدارو راه بندازیم

[کسری نعمتی مهمان]

Student Library

بفرمایید

[مجید آرتا 5,874]

ببین دوست عزیز بنده فقط تونستم اسم ماه رو در بیارم

باید یکم کار کنم تا بتونم اسم ایام هفته رو بدست بیارم

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

Sub Globals
Dim tqvim As StudentLibrary
Private day_lbl As Label
Private month_name_lbl As Label
Private year_lbl As Label
End Sub

Sub show_btn_Click
Dim str As String  
str=tqvim.getPersianDate(0,0,0,"/")
year_lbl.Text=str.SubString2(1,4)
Dim ss As String
ss=str.SubString2(5,6)
day_lbl.Text=str.SubString(7)
Select ss
	Case "1"
		month_name_lbl.Text="فروردین"
	Case "2"
		month_name_lbl.Text="اردیبهشت"
	Case "3"
		month_name_lbl.Text="خرداد"
	Case "4"
		month_name_lbl.Text="تیر"
	Case "5"
		month_name_lbl.Text="مرداد"
	Case "6"
		month_name_lbl.Text="شهریور"
	Case "7"
		month_name_lbl.Text="مهر"
	Case "8"
		month_name_lbl.Text="آبان"
	Case "9"
		month_name_lbl.Text="آذر"
	Case "10"
		month_name_lbl.Text="دی"
	Case "11"
		month_name_lbl.Text="بهمن"
	Case "12"
		month_name_lbl.Text="اسفند"
End Select

End Sub

[رضا جابرپور 179]

آفرین خیلی جالبه ادامه بدید متشکرم

[کسری نعمتی مهمان]

یه کتابخونه هست به اسم Student Library که امید آقاجانی عزیز نوشتن

ببینید این کد کارتونو راه میندازه یا نه

Sub Globals
Dim st As StudentLibrary 
End Sub

st.getPersianDate("سال","ماه","روز","/")

اگه فکر میکنین این کمک میکنه بگین کتابخونه رو پیوست کنم