G
Guest
Dim time1 As date
Dim time2 As Date
Dim totaltime As Date
Dim str As String
str = "SELECT Lessons.time FROM Lessons WHERE Lessons.id =" & i & ""
Data1.RecordSource = str
Data1.Refresh
time1 = Time
time2 = Text1.Text
totaltime = time2 - time1
Text5.Text = totaltime
как преобразовать формат стринг в формат времени? потому что так нельзя потому time2 = Text1.Text
Dim time2 As Date
Dim totaltime As Date
Dim str As String
str = "SELECT Lessons.time FROM Lessons WHERE Lessons.id =" & i & ""
Data1.RecordSource = str
Data1.Refresh
time1 = Time
time2 = Text1.Text
totaltime = time2 - time1
Text5.Text = totaltime
как преобразовать формат стринг в формат времени? потому что так нельзя потому time2 = Text1.Text