View Full Version : سوال: نمایش ساعت و تاریخ
nasiiiiiii
دوشنبه 02 خرداد 1390, 23:32 عصر
سلام
دوستان عزیز من می خوام وقتی فرم اول برنامه ام باز می شه ساعت و تاریخ رو نمایش بده اگه می شه راهنمایی کنید:خجالت::خجالت::خجالت:
mhmoein
سه شنبه 03 خرداد 1390, 08:26 صبح
سلام
برای نمایش تاریخ شمسی
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
سه شنبه 03 خرداد 1390, 10:02 صبح
سلام
برای نمایش تاریخ شمسی
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
سه شنبه 03 خرداد 1390, 10:53 صبح
از این نمونه استفاده کنید
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.