Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];
Вниз
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;
вроде бы работает
← →
SergP © (2004-06-08 22:51) [11]
> [8] webpauk (08.06.04 21:50)
> "+1" - + 1 сутки!!!
Ну если сам знаешь, то тогда в чем проблема?
Я просто не понял сабжевого вопроса, в чем тебе нужно значение секунды, а как оказалось в сутках.
А в сутках обычно 86400 секунд. Разделить - не проблема...
← →
BFG9k (2004-06-09 16:46) [12]Ну вы вообще. Действительно 1с=1/(24*60*60) . В чем проблема ?
← →
Weber © (2004-06-09 17:05) [13]
> BFG9k (09.06.04 16:46) [12]
Ну вот - опередили! 8(
← →
Anatoly Podgoretsky © (2004-06-09 17:10) [14]webpauk (08.06.04 22:07) [10]
Что то не заметно, чтобы здесь секунда прибавлялась
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.037 c
