Работа с временем

@KraterMPN · Регистрация: 18.07.2012

Author24 — интернет-сервис помощи студентам

Нужно сформировать таблицу из таблицы по такому типу:

1. таблица:

00:00:58 1
00:01:02 0
00:01:40 1
00:01:50 0
00:01:55 0
00:01:56 1
00:02:01 1
00:02:05 1
00:02:59 1
00:03:01 1

из 1 таблицы сформировать следующее:

00:00:58 1
00:01:56 1
00:02:59 1

Как такое можно сделать?

Т.е. из таблицы 1 необходимо взять только те строки, которые являются по времени концами минуты.

т.е. нужны данные на конец каждой минуты.

@Nutserus · 05.09.2012, 13:50

Нифига не понятно, что такое конец минуты?

Почему "00:02:01 1" - конец минуты, а "00:01:55 0" концом минуты не является?

@Puporev · 05.09.2012, 14:07

И вообще что такое конец минуты?

@Dmitrinik · 05.09.2012, 15:36

Как это сделать, понятно. Непонятно, что представляют из себя сами таблицы. Но если допустить, что часы, минуты и секунды первой таблицы занесены в массивы Hour1, Min1, Sec1, а вторую таблицу затем заполнить из массивов Hour2, Min2, Sec2, то можно сделать примерно так

Delphi

Var
............
Hour1, Min1, Sec1, Hour2, Min2, Sec2 : Array[1..20] of byte;
............
Function MinuteFinish(TableSize: integer): integer;
//TableSize - число строк в исходной таблице
Var i,  k : integer;
    hourX, minX : byte;
    yes     : boolean;
  begin
    k:=0;
    hourX:=hour1[1];
    minX :=min1[1];
    For i:=2 to TableSize do
     If (hourX<>hour1[i]) or (minX<>min1[i]) then
       begin
          inc(k);
          hour2[k]:=hour1[i-1]; min2[k]:=min1[i-1]; sec2[k]:=sec1[i-1];
          hourX:=hour1[i];
          minX :=min1[i];
          yes:=true;
       end
     Else yes:=false;
    If not yes then
     begin
        inc(k);
        hour2[k]:=hour1[TableSize]; min2[k]:=min1[TableSize]; sec2[k]:=sec1[TableSize];
     end;
    MinuteFinish:=k;  //функция вернет число "конца" минут
  end;

Надеюсь понятно, что массивы Hour2, Min2, Sec2 послужат для заполнения второй таблицы

@KraterMPN · 05.09.2012, 16:41 **[ТС]**

Сообщение от Nutserus

Нифига не понятно, что такое конец минуты?

Почему "00:02:01 1" - конец минуты, а "00:01:55 0" концом минуты не является?

Где Вы это увидели?

Добавлено через 24 секунды
Dmitrinik, спасибо, попробую

@Nutserus · 05.09.2012, 16:44

Сообщение от KraterMPN

Где Вы это увидели?

Ой, ну что мы тут под дурачка косим, сообщение отредактировал сразу как прочел ответ, и теперь "Где Вы это увидели?"...

@KraterMPN · 05.09.2012, 16:49 **[ТС]**

нет, отредактировал сообщение я через секунд 30 после того, как создал его. После Вашего сообщения я ничего не редактировал. Поэтому, пожалуйста без "дурачка".

Поэтому и спросил - "где Вы это увидели?".

@Ev1l · 05.09.2012, 18:25

по моему масивов через чур много, если формат записей всегда один и тот же например: hh:mm:ss[Space]текст то можно просто строку обрабатывать и работать с ней через DataTime я делал читалку логов, брал строку из файла тхт бил ее на части в масивы Strings(StringList) и обрабатывал время отдельно, щас пошукаю прогу попробую код сбросить

Добавлено через 19 минут

Delphi

1	ListBox5.Items.Add(Copy(s,a,b));

этой операцией мы копируем разные куски кода в разные масивы, тебе хватит двух листбоксов, 1 для времени, 2й для данных.
далее про время:

Delphi

1 2	var tdt1,tdt2: TDateTime; tdt1:=StrToTimeDef(inp[k,l],0);

этой мы из строки делаем время, а дальше работаем с ней как со временем, в еденице 24 часа, тоесть если tdt=0,50 то в строке это будет как 12:00:00, ну и так далее тип данных Double где целая часть =дата, дробная=время, дата в твоих расчетах не участвует поэтому целую часть можно не трогать

Добавлено через 10 минут
так как тебе надо находить только данные на конец минуты/часа то ставишь планку n = (1/1440) и сравниваешь свою строку с этим числом, ищешь ближайшее снизу(n>tdt), нашел запомнил, если время превысило планку, поднимаешь n:=n+1/1440, и так далее

@KraterMPN 0 / 0 / 0 Регистрация: 18.07.2012 Сообщений: 49
		1
	Работа с временем 05.09.2012, 13:47. Показов 880. Ответов 7 Метки нет (Все метки) Нужно сформировать таблицу из таблицы по такому типу: 1. таблица: 00:00:58 1 00:01:02 0 00:01:40 1 00:01:50 0 00:01:55 0 00:01:56 1 00:02:01 1 00:02:05 1 00:02:59 1 00:03:01 1 из 1 таблицы сформировать следующее: 00:00:58 1 00:01:56 1 00:02:59 1 Как такое можно сделать? Т.е. из таблицы 1 необходимо взять только те строки, которые являются по времени концами минуты. т.е. нужны данные на конец каждой минуты. 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	05.09.2012, 13:50	2
	Нифига не понятно, что такое конец минуты? Почему "00:02:01 1" - конец минуты, а "00:01:55 0" концом минуты не является? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.09.2012, 14:07	3
	И вообще что такое конец минуты? 0

@KraterMPN 0 / 0 / 0 Регистрация: 18.07.2012 Сообщений: 49
	05.09.2012, 16:41 [ТС]	5
	Сообщение от Nutserus Нифига не понятно, что такое конец минуты? Почему "00:02:01 1" - конец минуты, а "00:01:55 0" концом минуты не является? Где Вы это увидели? Добавлено через 24 секунды Dmitrinik, спасибо, попробую 0

@Nutserus 210 / 169 / 24 Регистрация: 24.04.2012 Сообщений: 615
	05.09.2012, 16:44	6
	Сообщение от KraterMPN Где Вы это увидели? Ой, ну что мы тут под дурачка косим, сообщение отредактировал сразу как прочел ответ, и теперь "Где Вы это увидели?"... 0

@KraterMPN 0 / 0 / 0 Регистрация: 18.07.2012 Сообщений: 49
	05.09.2012, 16:49 [ТС]	7
	нет, отредактировал сообщение я через секунд 30 после того, как создал его. После Вашего сообщения я ничего не редактировал. Поэтому, пожалуйста без "дурачка". Поэтому и спросил - "где Вы это увидели?". 0

	05.09.2012, 18:25