نمایش ساعت و تاریخ

[nasiiiiiii]

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

[mhmoein]

سلام

برای نمایش تاریخ شمسی

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

Label1.Text = MiladiToShamsi(Now)

برای نمایش ساعت یه تایمر تو فرمت اضافه کن بعد رو تایمر دابل کلیک کن این کد رو تو توش اضافه کن در ضمن تایمر رو هم Enabled = True قرار بده.

Label1.Text = TimeOfDay

[hamidhassas]

سلام

برای نمایش تاریخ شمسی

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

Label1.Text = MiladiToShamsi(Now)

برای نمایش ساعت یه تایمر تو فرمت اضافه کن بعد رو تایمر دابل کلیک کن این کد رو تو توش اضافه کن در ضمن تایمر رو هم Enabled = True قرار بده.

Label1.Text = TimeOfDay

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


وقتی بر روی Label1 کلیک می کنم کمتر از 1 ثانیه یک تاریخی نشان می دهد اما سریع به ساعت سیستم تبدیل میشه.

لطفا بگویید هر کد را دقیقا در کجا باید نوشت و اگر تنضیمات خاصی باید انجام داد باید چه کرد.

تشکر

[mhmoein]

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