Скачать: CL | DM;

Как получить ряд времени с интервалом 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 вот такой формат записи. Сейчас сделано влоб, т.е. весь ряд вручную записан. А хочется циклом

---

← →
galexis ©   (2004-04-14 13:48) [6]

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

---

← →
han_malign ©   (2004-04-14 14:06) [7]

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], я вообще молчу...

---

← →
han_malign ©   (2004-04-14 14:07) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c