Как получить ряд времени с интервалом 30 минут.

← →
galexis © (2004-04-14 13:07) [0]

Нужен ряд времени с интервалом 30 минут за сутки, т.е. исходное время 0000 (такой формат надо), потом что то прибавить надо, чтобы получилось 0030, потом 0100, 0130,...2330,2400. Как это сделать?
Спасибо

← →
infom © (2004-04-14 13:15) [1]

for j:=1 to 24 do for i:=0 to 1 do begin str:="0"; str:=intToStr(i*3) + str; str:=intToStr(j) + str; end;

← →
infom © (2004-04-14 13:16) [2]

а еще str надо в цикле куда то писать

← →
Anatoly Podgoretsky © (2004-04-14 13:17) [3]

Надо прибавить 30 минут. Операция стандартная D := D + Delta, где Delta равна 30 минутам, в цикле пока меньше или равно, или в фиксированном на определенное количество итераций.

Подсказка в сутках 24 часа, в часе 60 минут, задача найти чему равно 30 минут от полных суток.

← →
Amoeba © (2004-04-14 13:17) [4]

> Как получить ряд времени с интервалом 30 минут

Опиши как следует свою задачу, а то на твой вопрос можно дать массу одинаково верных, нно взаимосключающих друг друга ответов.

← →
galexis © (2004-04-14 13:30) [5]

Нужно выгружать данные из БД в XML файл. Выгружаю напрямую, т.е в обычный текстовый файл <period start=""+DT+"0000" end=""+DT+"0030">. DT - это дата. Получается 200402010030 вот такой формат записи. Сейчас сделано влоб, т.е. весь ряд вручную записан. А хочется циклом

Оказывается в delphi есть можно такое:
delta:=StrToTime("00:30")-StrToTime("00:00"); //Double
D:=D+delta; //Double
TM:=TimeToStr(D); //string

function DT30Series(foo: integer): string; const cHalf: array[boolean]of string=("00","30"); var fHalf: boolean; begin fHalf:=(foo and 1)=0; foo:=foo shr 2; Str(foo mod 24, Result); if(Length(Resul)=1)then Result:="0"+Result; Result:=Result+cHalf[fHalf]; end;
- ряд - начиная с нулевого индекса, на 48 заворачивается в ноль(mod 24). Никаких дополнительных модулей кроме System, про то во сколько раз это быстрее чем [6], я вообще молчу...

foo:=foo shr 1; - зарапортовался

Как получить ряд времени с интервалом 30 минут. Найти похожие ветки