استفاده از ساعت سیستم

[saba_asj]

سلام دوستان
من می خوام تو برنامم از ساعت سیستم استفاده کنم و همینطور اختلاف دو زمان مشخص رو بر حسب ساعت محاسبه کنم .لطفا راهنماییم کنید.:گریه:

[مهران رسا]

استفاده از ساعت سیستم :



Dim SysTime as String
SysTime=Time$



برای محساسبه اختلاف دو زمان باید هر دو رو به صورت کامل به ثانیه تبدیل ، و بعد از اینکه از هم کم کردی در نهایت اونها رو بر 3600 تقسیم کنی .

[Pr0grammer]

دوست عزیز در این پست (http://barnamenevis.org/forum/showpost.php?p=614350&postcount=15) از این تاپیک (http://barnamenevis.org/forum/showthread.php?t=116848) یه ابزار به نام StopWatch هست که فکر کنم می تونه کارتونو راه بندازه! فقط کافیه شما از متد GetHour این ابزار استفاده کنید.

اگه مشکلی داشتید بهم PM بدید...
موفق باشید

[vbhamed]

سلام

براي به دست آوردن اختلاف 2 تا ساعت از تابع DateDiff استفاده كنيد



Dim d1 As Date, d2 As Date, T&, L&
Dim h%, m%, s%

d1 = #12:10:05 PM#
d2 = #12:00:00 PM#

T = DateDiff("s", d1, d2)
L = T

h = L \ 3600
L = L - h * 3600

m = L \ 60
L = L - m * 60

h = Abs(h)
m = Abs(m)
s = Abs(L)

MsgBox T & " Second" & vbCrLf & h & ":" & m & ":" & s