بدست آوردن اختلاف دو زمان با ساعت سیستم

سلام
برنامه ساده ای نوشته ام که میتواند اختلاف دو زمان را با ساعت سیستم بدست آورد وخروجی آن در یک فایل متنی ذخیره میشود .مشکل اینجاست:تا زمانیکه مدول فرم بسته نشده ویا از برنامه خارج نشده ام بخوبی کار میکند ولی با خروج از برنامه دیگه جواب نمیده.
شرح برنامه:برنامه ورود وخروج کارکنان را ثبت ومیزان تاخیر را گزارش میکندبفرمایید چطور میشه بعد از طی مدت دلخواه مثلا سه ساعت بعدبرنامه به متغير د تايم مراجعه كند واختلاف آنرا با ساعت سيستم محاسبه كند؟

کد:

---

Private Sub zaman()
Dim TheTime As Date
If Option1.Value = True Then
Label1.Caption = Time
Text1.Text = DateAdd("h", 2, Time)
Else
Label4.Caption = Label1.Caption
End If
If Option2.Value = True Then
TheTime = Text1.Text
Label2.Caption = Time
If Label2.Caption > TheTime Then
Label6.Caption = Format(Str(Time - TheTime), "hh:mm:ss")
End If

If Label2.Caption < TheTime Then
Label6.Caption = "زودتر"
Else
Label6.Caption = "به موقع"

End If
End If
End Sub

---

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
حضرت علي ع:هركس به من حرفي بياموزد مرا بنده خود ساخته است.

dastiary عزیز
در مورد کدی که نوشتید هیچ نکته خاصی بنظر نمی رسه که مطرح کنم، ولی متاسفانه منظور شما رو از اینکه می فرمایید

نقل قول:

---

نوشته شده توسط dastiary

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

---

متوجه نمی شم.
و اما اگه مساله اینه که شما می خواین مقدار Time سه ساعت پیش رو در جایی برای مراجعه بعدی داشته باشید، دو راه به نظر من می رسه. یکی اینکه اگه این تابع zaman رو مکررا صدا می زنید، می دونین که در هر بار فراخوانی متغیر TheTime از نو ایجاد می شه و مقدار پیش فرض متغیری از نوع تاریخ رو می گیره. بهمین دلیل شما اگه قصد دارین از طریق همین متغیر به زمان سه ساعت پیش دسترسی داشته باشین، می تونین اون رو از نوع Static تعریف کنین. یعنی بجای دستور

کد:

---

Dim TheTime As Date

---

بنویسین:

کد:

---

Static TheTime As Date

---

بدین ترتیب مقدار متغیر TheTime تا زمانیکه کد شما اجرا می شود، تغییر نمی کند(البته مگر آنکه خودتان تغییرش بدهید)
راه دیگری که بنظر می رسد، یادداشت کردن ساعت موردنظر در یک فایل برای مثال موقت در مسیر برنامه است. شما می تونین مقدار و نام متغیری رو که در آینده به اون نیاز خواهید داشت درون یک فایل بصورت متنی بنویسید و بعد از خواندن آن آنرا حذف کنید.
امیدوارم تونسته باشم جوابتون رو بدم.
موفق باشید

نقل قول:

---

نوشته شده توسط bithiah

dastiary عزیز
در مورد کدی که نوشتید هیچ نکته خاصی بنظر نمی رسه که مطرح کنم، ولی متاسفانه منظور شما رو از اینکه می فرمایید متوجه نمی شم.
و اما اگه مساله اینه که شما می خواین مقدار Time سه ساعت پیش رو در جایی برای مراجعه بعدی داشته باشید، دو راه به نظر من می رسه. یکی اینکه اگه این تابع zaman رو مکررا صدا می زنید، می دونین که در هر بار فراخوانی متغیر TheTime از نو ایجاد می شه و مقدار پیش فرض متغیری از نوع تاریخ رو می گیره. بهمین دلیل شما اگه قصد دارین از طریق همین متغیر به زمان سه ساعت پیش دسترسی داشته باشین، می تونین اون رو از نوع Static تعریف کنین. یعنی بجای دستور

کد:

---

Dim TheTime As Date

---

بنویسین:

کد:

---

Static TheTime As Date

---

بدین ترتیب مقدار متغیر TheTime تا زمانیکه کد شما اجرا می شود، تغییر نمی کند(البته مگر آنکه خودتان تغییرش بدهید)
راه دیگری که بنظر می رسد، یادداشت کردن ساعت موردنظر در یک فایل برای مثال موقت در مسیر برنامه است. شما می تونین مقدار و نام متغیری رو که در آینده به اون نیاز خواهید داشت درون یک فایل بصورت متنی بنویسید و بعد از خواندن آن آنرا حذف کنید.
امیدوارم تونسته باشم جوابتون رو بدم.
موفق باشید

---

دوست عزیز سلام
تغییر کد Dim TheTime As Date بصورت Static TheTime As Date مشکل را حل کرد.
از لطفتون خیلی خیلی ممنونم
حضرت علی(ع):هرکس به من حرفی بیاموزد،مرا بنده خود ساخته است.