PDA

View Full Version : نمايش تاريخ و زمان



mahdi.a.v
یک شنبه 21 آبان 1391, 17:22 عصر
سلام
چه جوري ميشه تو ليبل تاريخ و ساعت و روز هاي هفته ( شنبه و يك شنبه و... ) نمايش داده بشه ؟

SHD.NET
یک شنبه 21 آبان 1391, 19:07 عصر
دوست عزیز کافی بود جست جو می کردی


http://barnamenevis.org/showthread.php?305609-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D9%86%D8%A7%D9%85-%D8%B1%D9%88%D8%B2-%D9%87%D9%81%D8%AA%D9%87
بازم سوالی بود در خدمتیم

\\\ موفق باشید ///

mahdi.a.v
یک شنبه 21 آبان 1391, 19:47 عصر
راستش من نمایش ساعتو بلد نیستم I:
میشه خودت یه کد برای نمایش تاریخ و زمان و روز های هفته بدی ؟؟؟ البته اگه رویداد هاشو بگی ممنون میشم

SHD.NET
یک شنبه 21 آبان 1391, 20:09 عصر
مثلا میخواهیم ساعتو روی یک لیبل نمایش بدیم .

برای اینکار یه timer اضافه می کنیم و Interval اون رو = 1000 و Enabled = True قرار می دیم . این کدو توی رویداد Tick اون اضافه می کنیم:

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = TimeOfDay
End Sub

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

Label1.Text = Date.Now

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

Label1.Text = Date.Today

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

Label1.Text = Date.Now.DayOfWeek.ToString

اگه میخوای روزای هفته رو به صورت فارسی دربیاره باید از این دستور استفاده کنی :

Dim DayNames As New Dictionary(Of String, String) From {{"Saturday", "شنبه"}, {"Sunday", "یکشنبه"}, {"Monday", "دوشنبه"}, {"Tuesday", "سه شنبه"}, {"Wednesday", "چهارشنبه"}, {"Thursday", "پنجشنبه"}, {"Friday", "جمعه"}}
Label1.Text = DayNames(Date.Now.DayOfWeek.ToString)

البته روش های دگ ای هم هست ، اما این ها ساده ترین روش ها بودند . امیدوارم راهنمایی شده باشید.

\\\ موفق باشید ///

__________________________

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

mahdi.a.v
سه شنبه 30 آبان 1391, 18:57 عصر
ميشه بگيد براي نمايش سال و ماه و روز هر كدوم بصورت تكي از چه كدي استفاده كنم؟

SHD.NET
سه شنبه 30 آبان 1391, 19:54 عصر
ميشه بگيد براي نمايش سال و ماه و روز هر كدوم بصورت تكي از چه كدي استفاده كنم؟

مواد مورد نیاز : یک عدد لیبل

برای نمایش روز به صورت جداگانه :
Label1.Text = Date.Today.Day


برای نمایش ماه به صورت جداگانه:
Label1.Text = Date.Today.Month


برای نمایش سال به صورت جداگانه:
Label1.Text = Date.Today.Year

SHD.NET
سه شنبه 30 آبان 1391, 19:56 عصر
برای اینکه بیشتر با توابع تاریخ و زمان آشنا بشی به اینجا (http://www.techrepublic.com/article/working-with-dates-and-times-in-vbnet/6089546)مراجعه کن