محاسبه زمان ؟؟

[سپهر-111]

سلام دوستان گل

قبل از هرچیز،از کلییه دوستان بابت راهنماییهای مفیدی که فرموده اند کمال تشکر را دارم

دوستان من میخوام توی دو تا بازه ، زمان بدست بیارم و زمان دومی رو از اولی کم کنم

مثلا 10:20:30 زمان اول

زمان دوم 10:30:10

زمان اول را از زمان دوم کم میکنیم

جواب : 10:20 دقیقه

من با دستور STRING=Time زمان بدست میارم ولی چون رشته هست نمیتونم عملیات ریاضی روش انجام بدم ، ممنون میشم اگه راهنمایی کنید

درضمن میخوام حجم کدش خیلی کم باشه

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

[mohammadriano]

dim h as integer
dim m as integer
dim s as integer
h = left$(yourtime,2)
m = mid(yourtime,4,2)
s = right$(yourtime,2)

[arenaw]

سلام

Dim TimeRes As Date
Dim StrRes As String
TimeRes = CDate(CDate(Text2) - CDate(Text1))
StrRes = Hour(TimeRes) & ":" & Minute(TimeRes) & ":" & Second(TimeRes)

[سپهر-111]

dim h as integer
dim m as integer
dim s as integer
h = left$(yourtime,2)
m = mid(yourtime,4,2)
s = right$(yourtime,2)



سلام دوست من
ممنون زحمت کشیدی
ولی ارور میده . . .
من اینطوری نوشتم
ممنون میشم اگه چک کنید


Private Sub Command3_Click()
Dim yourtime As String

Dim h As Integer
Dim m As Integer
Dim s As Integer
yourtime = TimeValue(Time)
h = Left$(yourtime, 2)
m = Mid(yourtime, 4, 2)
s = Right$(yourtime, 2)
Text1.Text = h
Text2.Text = m
Text3.Text = s

End Sub

[m.4.r.m]

ساعت رو جدا جدا دقیقه رو هم جدا کن هر کدوم رو با مقدار براربری خودش کسر کن بعد به حالت زمان بنویس یعنی 10 رو با 10 کسر کن بشه ساعت 20 رو با 10 کسر کن بشه دقیقه که میشه 00:10 به همین راحتی

[mohammadriano]

سلام دوست من
ممنون زحمت کشیدی
ولی ارور میده . . .
من اینطوری نوشتم
ممنون میشم اگه چک کنید


Private Sub Command3_Click()
Dim yourtime As String

Dim h As Integer
Dim m As Integer
Dim s As Integer
yourtime = TimeValue(Time)
h = Left$(yourtime, 2)
m = Mid(yourtime, 4, 2)
s = Right$(yourtime, 2)
Text1.Text = h
Text2.Text = m
Text3.Text = s

End Sub
چک کردم مشکلی نداشت
از این روش هم می تونید استفاده کنید

Text1.Text = Hour(yourtime)
Text2.Text = Minute(yourtime)
Text3.Text = Second(yourtime)

[محسن واژدی]

سلام علیکم
تابع زیر را هم بررسی کنید:

Public Function DiffTime(sTime1$, sTime2$) As String
Dim H1, M1, S1, H2, M2, S2, RH, RM, RS
H1 = Hour(sTime1$): M1 = Minute(sTime1$): S1 = Second(sTime1$)
H2 = Hour(sTime2$): M2 = Minute(sTime2$): S2 = Second(sTime2$)
RH = Abs(H1 - H2): RM = Abs(M1 - M2): RS = Abs(S1 - S2)
DiffTime = IIf(RH < 10, "0" & RH, RH) & ":" & IIf(RM < 10, "0" & RM, RM) & ":" & IIf(RS < 10, "0" & RS, RS)
End Function


برای مثال:

Private Sub Command1_Click()
MsgBox DiffTime("10:20:30", "10:30:10")
End Sub


موفق باشید