کار با تاریخ و ساعت گوشی

[amirsafari 116]

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

[محمد رشوند 1,208]

سلام من میخوام توی برنامم تایخ و ساعت دستگاه رو بخونم و توی یه label  نمایش بدم

توی انجمن هم گشتم . چیزی پیدا نکردم

ممنون میشم راهنماییم کنید

کافیه Datetime.nowرو بریزی تو مقدار تکست

DateTime.SetTimeZone(0)
Dim date, time As Long
date = DateTime.Now
time = date Mod DateTime.TicksPerDay
date = date - time

[Elyas Erfani 3,582]

سلام

 

به همین راحتی مثلا من توی مسیج باکس گذاشتم شما بکنش متن لیبل :

Dim now As Long
now = DateTime.Now
Msgbox("The date is: " & DateTime.Date(now) & CRLF & _
       "The time is: " & DateTime.Time(now), "")