رفتن به مطلب
  • 0

تقویم فارسی


رضا جابرپور

سوال

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

8 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

Sub Globals
Dim st As StudentLibrary 
End Sub

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...