سوال: درخواست برنامه براي تشخيص مدت حضور كارمند در اداره [بایگانی]

Aminch.pc

جمعه 14 فروردین 1388, 10:55 صبح

سلام
بازم از زحمات دوستان كه براي بحث ها و تاپيك هاي ويژوال بيسيك وقت مي زارن تشكر مي كنم
يه برنامه مي خواستم كه ساعت حضور يك كارمند و ساعت خروجش رو بهش بدي، مشخص كنه اين كارمند چند ساعت توي اداره حضور داشته؟

xxxxx_xxxxx

شنبه 15 فروردین 1388, 05:34 صبح

سلام
روش اين هم دقيقاً مثل اين سؤالتون (http://barnamenevis.org/forum/showthread.php?t=153233) هست.
حالا هر ساعت 60 دقيقه هست و هر دقيقه 60 ثانيه.
يك TextBox و يك CommandButton رو فرم بزاريد:

Private Sub Form_Load()
Text1.Text = Time
End Sub

Private Sub Command1_Click()
Hx = Hour(Text1.Text)
Mx = Minute(Text1.Text)
Sx = Second(Text1.Text)
H = Hour(Now) - Hx
M = Minute(Now) - Mx
If M < 0 Then H = H - 1: M = M + 60
S = Second(Now) - Sx
If S < 0 Then M = M - 1: S = S + 60
MsgBox H & ":" & M & ":" & S
End Sub

موفق باشيد/