как перевести данные функции Now в часы, например?
В одной ячейке получаю Now. Через нек. время, когда делаю перерыв на обед, получаю новое Now. Разницу пишу в третьей ячейке: 0,00538194444379769. Можно ли из этого числа вытащить часы, а когда цифра станет больше, то и дни?
Тип Now какой?
Цитата: @pixo $oft
Тип Now какой?
Это текущее время
Код:
Dim strTimeSecond As String
strTimeSecond = Second(Now)
'есть функции
'Month
'Day
'Hour
'Minute
strTimeSecond = Second(Now)
'есть функции
'Month
'Day
'Hour
'Minute
Код:
Option Explicit
Dim vntTimeStart, vntTimeFinish
Dim dtmTimeSummary As Date
Private Sub cmdStartFinish_Click()
Static blnTrigger As Boolean
With cmdStartFinish
If blnTrigger Then
blnTrigger = False
.Caption = "Пуск"
vntTimeFinish = Time
dtmTimeSummary = dtmTimeSummary + (vntTimeFinish - vntTimeStart)
txtTimeWorkProject.Text = dtmTimeSummary
Else
blnTrigger = True
.Caption = "Стоп"
vntTimeStart = Time
End If
End With
End Sub
Dim vntTimeStart, vntTimeFinish
Dim dtmTimeSummary As Date
Private Sub cmdStartFinish_Click()
Static blnTrigger As Boolean
With cmdStartFinish
If blnTrigger Then
blnTrigger = False
.Caption = "Пуск"
vntTimeFinish = Time
dtmTimeSummary = dtmTimeSummary + (vntTimeFinish - vntTimeStart)
txtTimeWorkProject.Text = dtmTimeSummary
Else
blnTrigger = True
.Caption = "Стоп"
vntTimeStart = Time
End If
End With
End Sub
А приведенный код суммирует только минуты и часы? Проблема в том, что работа будет скорее всего занимать несколько дней и отчет нужно давать в количестве потраченных дней с точностью до полудня. По-моему, данный вариант будет считать только часы и минуты.
Я понял? что надо добиться. Чтобы в приведенном окошке "Время работы над проектом" тикало бы время с учетом кол-ва дней, часов и минут (ну и можно чтобы секунды бежали. А когда я нажму стоп, оно бы записалось в активную ячейку. А потом если я опять запущу таймер, он должен взять уже записанное время и к нему прибавлять опять же секунды, часы и дни, пока не нажато стоп. И тогда опять записать новое полученное значение в активную ячейку. Так будет запоминаться и прибавлять новое время к уже посчитаному + видно, что работа над проектом идет. Пока я сам попробую, но на успех особе не рассчитываю. (хотя подскажка уже очень полезная, - спасибо большое, "2008й"!).
извините за опечатки - все в спешке и в нервотрепке )))