1 секунда

← →
webpauk (2004-06-08 21:31) [0]

Г-да! Может кто подскажет численное значение 1 секунды

← →
SergP © (2004-06-08 21:34) [1]

Тебе в чем?

← →
Petr V. Abramov © (2004-06-08 21:35) [2]

Адын. В любой системе счисления :)

← →
webpauk (2004-06-08 21:36) [3]

в формате Float

← →
webpauk (2004-06-08 21:37) [4]

StrToTime("18:00:01")-StrToTime("18:00:00");
дает не слишком точный Result

← →
webpauk (2004-06-08 21:38) [5]

нужно, чтобы к текущему времени прибавлять определенное кол-во секунд

← →
YuRock © (2004-06-08 21:43) [6]

Now + 1

← →
webpauk (2004-06-08 21:48) [7]

> YuRock
сам пробовал или кто подсказал?

← →
webpauk (2004-06-08 21:50) [8]

"+1" - + 1 сутки!!!

← →
YuRock © (2004-06-08 21:54) [9]

Извините, был не прав. Вот, что пришло в голову (из правильного):

var dtFrom, dtNeed: TDateTime; begin dtFrom := Now; dtNeed := EncodeDateTime(YearOf(dtFrom), MonthOf(dtFrom), DayOf(dtFrom), HourOf(dtFrom), MinuteOf(dtFrom), SecondsOf(dtFrom) + 1, MillisecondOf(dtFrom)); end;

Хотя и это не совсем корректно (из-за того, что в текущем времени может идти 60-я минута, 60-я секунда и т.д., а в этом случае прибавлять нельзя).

← →
webpauk (2004-06-08 22:07) [10]

Нашел :
var Start,Period:TDateTime; При старте: Period:=StrToTime("1:30:00"); Start:=Now; procedure ChckTime; var Current:TDateTime; s:string; begin Current:=Now; if (Current - Start) >= Period then begin Start:=Current; s:=FormatDateTime("dd"/"mm"/"yyyy hh:nn:ss",Now); .... end; end;

вроде бы работает

> [8] webpauk (08.06.04 21:50)
> "+1" - + 1 сутки!!!

Ну если сам знаешь, то тогда в чем проблема?
Я просто не понял сабжевого вопроса, в чем тебе нужно значение секунды, а как оказалось в сутках.
А в сутках обычно 86400 секунд. Разделить - не проблема...

← →
BFG9k (2004-06-09 16:46) [12]

Ну вы вообще. Действительно 1с=1/(24*60*60) . В чем проблема ?

> BFG9k (09.06.04 16:46) [12]

Ну вот - опередили! 8(

webpauk (08.06.04 22:07) [10]
Что то не заметно, чтобы здесь секунда прибавлялась

1 секунда Найти похожие ветки