افزودن به ساعت

[ali reza mansoori 2]

دوستان یک لیبل دارم که ساعت جاری رو نمایش میده حالا می خوام در یک لیبل دیگه همون ساعت رو یک ساعت و نیم جلو ببره و نمایش بده
اگه راهی به ذهنتون میرسه دریغ نکنید

[saeed_r67]

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

[aryasoft2872]

ساعت رو ضربدر 3600 کن بعدش دقیقه رو ضربدر 60،بعدش ثانیه و نتایج دوتای قبلی رو جمع کن حالا مقداری که می خوای رو کم یا زیاد کن،سپس دوباره با تقسیم متوالی،ساعت،دقیقه و ثانیه رو به دست بیار...

[M.T.P]

سلام
یه تایمر با Interval هزار بزارین با دو تا Label
کد تایمر:



Dim H As Double
H = Timer
H = H + 5400
Label1.Caption = Time
Label2.Caption = TimeSerial(Fix((H / 3600)), Round(((H / 60) Mod 60)), Fix(H Mod 60))

[ali reza mansoori 2]

سلام
یه تایمر با Interval هزار بزارین با دو تا Label
کد تایمر:



Dim H As Double
H = Timer
H = H + 5400
Label1.Caption = Time
Label2.Caption = TimeSerial(Fix((H / 3600)), Round(((H / 60) Mod 60)), Fix(H Mod 60))


جناب M.T.P (http://barnamenevis.org/forum/member.php?u=132020) خیلی عالی بود دست شما ...

[vbhamed]

سلام

ضمن تشكر از M.T.P عزيز، اينم مي‌تونيد تو تايمر بزاريد كه يكم ساده تر و قابل فهم تره

Label1 = Time
Label2 = Format$(DateAdd("n", 90, Label1), "HH:MM:SS ampm")


يا بازم ساده تر

Label1 = Time
Label2 = FormatDateTime(DateAdd("n", 90, Label1))


اون "n" ميگه مقدار بعدي يعني 90 به دقيقه است كه بايد به زمان اضافه بشه
اگر 90- هم بزاري از زمان جاري كم مي كنه
براي ثانيه از "s" و براي ساعت از "h" استفاده كنيد
براي بقيه موارد مثل روز و ماه و سال هم به MSDN مراجعه شود