توضیح کامل درباره ی تقویم فارسی وتابعPersian Calender

[sagggad]

سلام دوستان.می خوام تواین تایپیک ازشمابخوام که هرکس هرچیز راجع به تاریخ شمسی درویژوال بیسیک.net
میدونه توضیح بده.مخصوصا راجع به متدPersian Calender
دوستان هرکس چیزی میدونه بگه خداییش ثواب داره!!!!!!
درضمن هرچی توضیح کامل تر باشه فهمش راحت تره ممنون ازشما دوستان عزیز:تشویق::تشویق::تشویق::تش� �یق::تشویق::لبخندساده::لبخند� �اده::متفکر::متفکر::متفکر:

[sagggad]

یعنی واقعا کسی چیزی نمیدونه؟؟؟؟:متعجب:

[sagggad]

بابایکی کمک کنه!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!:تشویق::تشویق::تشویق::ت� �ویق::تشویق::تشویق::تشویق::تش� �یق::تشویق::تشویق::تشویق::تشو� �ق::تشویق::تشویق::تشویق:

[sina.lor.boy]

خودتو کشتی :متعجب:

روز ماه سال و روز های هفته :


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim g As New Globalization.PersianCalendar
Try
My.Forms.lock_form.ShowDialog()
Me.Label7.Text = g.GetYear(Now).ToString + "/" + g.GetMonth(Now).ToString + "/" + g.GetDayOfMonth(Now).ToString
Select Case g.GetDayOfWeek(Now)
Case DayOfWeek.Friday
Label8.Text = "جمعه"
Case DayOfWeek.Saturday
Label8.Text = "شنبه"
Case DayOfWeek.Sunday
Label8.Text = "يكشنبه"
Case DayOfWeek.Monday
Label8.Text = "دوشنبه"
Case DayOfWeek.Tuesday
Label8.Text = "سه شنبه"
Case DayOfWeek.Thursday
Label8.Text = "چهار شنبه"
Case DayOfWeek.Wednesday
Label8.Text = "پنجشنبه"
End Select
Catch ex As Exception
MsgBox("Programmer: Sina Ansari", MsgBoxStyle.Information, "SINA")
End Try
End Sub


ساعت : اول یه تایمر بزار Enabled = True بعد Interval=1000 اینم کد :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Label6.Text = Format(Now, "HH:mm:ss")
End Sub

[sagggad]

ممنون ولی عجلم الکی نبوود

[rahnema1]

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

[mesiiran]

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

[rahnema1]

این که کد سی شارپ بید :ناراحت:

در ضمن وقتی سورس میزارید .... سورس یه پروه ویژوال استدیو رو بزارید :عصبانی:نه فایل txt :شیطان:

دوست عزیز مهم نحوه استفاده از این تابع هست
بفرما این هم آماده و تبدیل شده به VB

[behrooz69]

دوست من منظور سوالتو درست نفهمیدم ولی تا اونجایی که می تونم کمکت می کنم . اگه بخوای تو برنامت از تقویم فارسی استفاده کنی اگه نخوای تو لیبل و تکس و ... نشون بدی از dll : Taghvim_View استفاده کن که تو همین سایت موجوده و با سرچ پیدا می شه و به صورت دفترچه نشون می ده و گرافیکیه .
اما اگه بخوای به صورت لیبل و تکس باکس نشون بدی توصیه می کنم از dll : hm_farsicalendar اسفاده کنی که 1 Masketbox میذاره که تاریخ رو به شمسی ذخیره می کنه . و با این تیکه کدم می تونی اونو تو 1 لیبل یا تکس باکس فراخونی کنی :
LblTarikhJari.Text = HM_FarsiCalendar.FarsiDate.FarsiToday.FullNameDate
تاریخ جاری رو به صورت شمسی و حروف و عدد نشون می ده که می تونی به عنوان 1 پارامتر تو کریستال ریپورتتم از اون استفاده کنی که تو گذارش گیری هاتم تاریخ دقیق چاپ رو واست بزنه :D
این 2 تا فایلو زمیمه می کنم واست امیدوارم بدردت بخوره . فقط از تو vb.net و toolbax و راست کلیک و Chose item و انتخاب dll ها اونارو به vb.net خودت و پروژت اضافه کن

فایل ضمیمه :

113038