گرفتن ساعت از کاربر

[ben799 2]

سلام 

خدا قوت 

من می خوام یک برنامه ای بنویسم که ساعت رو از کاربر بگیره و با زمان حال مقایسه کنه 

من از timedialog  استفاده کردم ولی به جایی نرسیدم 

	Dim time As TimeDialog
	Dim h As Long
	DateTime.TimeFormat =  "HH"
	Button1.Text = DateTime.Time(DateTime.Now)
	time.Is24Hours = True
	h= DateTime.GetHour(time.Show("","","yes","no","",Null))
	Label1.Text = h

 

[ben799 2]

در در 23 آذر 1399 در 21:16، Mthzf1384 گفته است :

سلام دوست عزیز

به نظرم شما یه نگاهی به تاپیک زیر بندازید امیدوارم مشکلتون حل بشه

تاپیک بالا برای مقایسه دو زمانه 

فکر کنم از کد زیر هم بتونی زمان حال رو بگیری:

DateTime.TimeFormat = "hh:mm"
DateTime.Time(DateTime.Now)

 

سلام ممنون 

جواب درستشو پیدا کردم برای دوستانی که نمی دونن می زارم

*****توجه *****:  '    Dim time As TimeDialog این جا موند

'	time.Is24Hours = True
'	Dim th , tm As Int
'	th=DateTime.GetHour(DateTime.Now)
'	tm=DateTime.GetMinute(DateTime.Now)
'	time.Show("","","yes","no","",Null)
'	Label1.Text = time.Hour &" : "& time.Minute
'	If th = time.Hour And tm = time.Minute Then
'		Msgbox("salam","")
'	End If

بعد از استفاده از time.show ساعتی که وارد کردیم در متغیرهای time.Hour و time.minute ذخیره می شوند

[Mthzf1384 123]

در 12 ساعت قبل، ben799 گفته است :

سلام 

خدا قوت 

من می خوام یک برنامه ای بنویسم که ساعت رو از کاربر بگیره و با زمان حال مقایسه کنه 

من از timedialog  استفاده کردم ولی به جایی نرسیدم 

	Dim time As TimeDialog
	Dim h As Long
	DateTime.TimeFormat =  "HH"
	Button1.Text = DateTime.Time(DateTime.Now)
	time.Is24Hours = True
	h= DateTime.GetHour(time.Show("","","yes","no","",Null))
	Label1.Text = h

 

سلام دوست عزیز

به نظرم شما یه نگاهی به تاپیک زیر بندازید امیدوارم مشکلتون حل بشه

تاپیک بالا برای مقایسه دو زمانه 

فکر کنم از کد زیر هم بتونی زمان حال رو بگیری:

DateTime.TimeFormat = "hh:mm"
DateTime.Time(DateTime.Now)