Правильно перевести Int в DateTime

@cezer_ak · Регистрация: 14.02.2013

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

Добрый вечер ув. Программисты.

Есть 3и переменные: d,h,m

в них значение

Delphi

1
2
3

D:=2;
H:30;
M:86;

Как перевести все эти данные так чтоб получилось примерно следующее:

Delphi

1
2
3

D:=3; //Дня
H:=23; //Часа
M:=59; //Минут

Заранее спасибо.

@northener · 30.06.2014, 17:37

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

Как перевести все эти данные так чтоб получилось примерно следующее

Правильно? Никак. Между начальными и конечными значениями d,h,m нет никакой логической связи.

@Puporev · 30.06.2014, 17:41

Delphi

1
2
3

d:=d+1;
h:=h-7;
m:=m-27;

@cezer_ak · 30.06.2014, 17:45 **[ТС]**

А если перевести все в секунды как я могу правильно все это сделать?

Добавлено через 1 минуту
Puporev, если было бы так легко я бы не спрашивал но все равно спасибо.

@Puporev · 30.06.2014, 17:52

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

А если перевести все в секунды

Delphi

1	s:=60m+6060h+606024d;

@northener · 30.06.2014, 17:53

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

А если перевести все в секунды как я могу правильно все это сделать?

А что по твоему означает правильно?

@Puporev · 30.06.2014, 17:59

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

если было бы так легко я бы не спрашивал

Какой вопрос, такой и ответ

Добавлено через 6 минут
После обсуждения этой проблемы на одном из форумов в коне автор темы написал

Возможно, откажусь от (дурацкой) затеи.

@cezer_ak · 30.06.2014, 18:14 **[ТС]**

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

Какой вопрос, такой и ответ

Добавлено через 6 минут
После обсуждения этой проблемы на одном из форумов в коне автор темы написал

Мне понравилось ваше чувство юмора)))

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

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

А что по твоему означает правильно?

Правильно означает когда Минуты не превышают 59 Часы не превышают 23 а дни не превышают 30 или 31 ну или в случае февраля 28

Добавлено через 50 секунд

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

Delphi

1	s:=60m+6060h+606024d;

Так это есть после того как я получу секунды как мне их преврати в дни часы и минуты? Все тоже самое только делить?

@Puporev · 30.06.2014, 18:17

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

как мне их преврати в дни часы и минуты?

Так у тебя и так были дни часы и минуты

Добавлено через 23 секунды
Ты напиши по русски что тебе нужно...

@cezer_ak · 30.06.2014, 18:24 **[ТС]**

Puporev, Да они были но не в правильном формате(((( ну т.е. в минутах не может быть 86 в часах не может быть 30 и так далее при условии того что цифры меняются

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

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

Так у тебя и так были дни часы и минуты

Добавлено через 23 секунды
Ты напиши по русски что тебе нужно...

у меня есть дни часы и минуты точнее их не правильное подобие: 2 дня 30 часов 86 минут. цифры соответственно могут меняться минуты часы и дни могут быть больше могут быть меньше.
Нужно: Перевести их в правильную форму. По законам времени Часы не могут быть больше 23 минуты больше 59.
Надеюсь ещё больше не запутал)))

@cotseec · 30.06.2014, 18:31

cezer_ak, как получаются значения? есть подозрение, что это BCD формат, но приведенные цифры для него не совсем корректны

@Puporev · 30.06.2014, 18:39

Ну и переведи все в минуты. А потом посчитай.

Delphi

mn:=m+h*60+d*60*24;//перевод в минуты
m:=mn mod 60;//новое число минут
h:=m div 60 mod 24;
d:=m div (60*24);

вроде правильно, проверь.

Добавлено через 1 минуту
И при чем здесь DateTime???

@cezer_ak · 30.06.2014, 18:46 **[ТС]**

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

Ну и переведи все в минуты. А потом посчитай.

Delphi

mn:=m+h*60+d*60*24;//перевод в минуты
m:=mn mod 60;//новое число минут
h:=m div 60 mod 24;
d:=m div (60*24);

вроде правильно, проверь.

Добавлено через 1 минуту
И при чем здесь DateTime???

Не то(( Result равен: 0 дней а должно быть 3, 0 часов и 25 минут (((

@Puporev · 30.06.2014, 18:50

Здесь не допечатал я

Delphi

1 2	h:=mn div 60 mod 24; d:=mn div (60*24);

@cezer_ak · 30.06.2014, 18:55 **[ТС]**

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

cezer_ak, как получаются значения? есть подозрение, что это BCD формат, но приведенные цифры для него не совсем корректны

Значения это сумма столбца в котором много строк с следующими значениями:
Первые две цифры это дни вторые две часы третьи две минуты, но они в виде string

Delphi

подъитоженная сумма: 2 Дня; 30 часов; 86 минут; Но значения могут меняться и в большую и в меньшую сторону.

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

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

Здесь не допечатал я

Delphi

1 2	h:=mn div 60 mod 24; d:=mn div (60*24);

Похоже на правду) На сколько я могу быть уверен в этой функции? Ошибки в расчетах вероятны?

@Puporev · 30.06.2014, 18:59

Так я и просил проверить, это же тебе нужно. Я проверил в Паскале, вроде верно, но если ввести твои данные
D:=2;
H:30;
M:86;
то не получится
D:=3; //Дня
H:=23; //Часа
M:=59; //Минут
С потолка что ли взял?
Вот код проверки

Pascal

var m,h,d,mn:integer;
begin
d:=2;
h:=30;
m:=86;
mn:=m+h*60+d*60*24;//перевод в минуты
writeln('mn=',mn);
m:=mn mod 60;//новое число минут
h:=mn div 60 mod 24;//новое число часов
d:=mn div (60*24); //новое число дней
writeln(d,' ',h,' ',m);
mn:=m+h*60+d*60*24;//проверка
writeln('mn=',mn);
end.

@cezer_ak · 30.06.2014, 19:23 **[ТС]**

Вооооо гуд, спасибо работает. Благодарю.

@northener · 30.06.2014, 19:34

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

Как перевести все эти данные так чтоб получилось примерно следующее:
D:=3; //Дня
H:=23; //Часа
M:=59; //Минут

Если бы этого "примерно слудующего" в вопросе не было бы, ответ получил бы на 2 часа раньше.

@Cyborg Drone · 01.07.2014, 10:12

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

Delphi

m := m + s div 60;
s := s mod 60;
h := h + m div 60;
m := m mod 60;
d := d + h div 24;
h := h mod 24;

@Puporev · 01.07.2014, 10:17

Сообщение от Cyborg Drone

без дополнительных переменных

Я так понимаю что s у Вас вычисляется, что осталось за кадром. Это и есть дополнительная переменная. А в остальном чем это лучше моего

Delphi

1
2
3

m:=mn mod 60;//новое число минут
h:=mn div 60 mod 24;//новое число часов
d:=mn div (60*24); //новое число дней

где mn=s

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	30.06.2014, 18:31	11
	cezer_ak, как получаются значения? есть подозрение, что это BCD формат, но приведенные цифры для него не совсем корректны 1

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	30.06.2014, 17:37	2
	Сообщение от cezer_ak Как перевести все эти данные так чтоб получилось примерно следующее Правильно? Никак. Между начальными и конечными значениями d,h,m нет никакой логической связи. 0

@cezer_ak 5 / 5 / 3 Регистрация: 14.02.2013 Сообщений: 232
	30.06.2014, 17:45 [ТС]	4
	А если перевести все в секунды как я могу правильно все это сделать? Добавлено через 1 минуту Puporev, если было бы так легко я бы не спрашивал но все равно спасибо. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	30.06.2014, 17:53	6
	Сообщение от cezer_ak А если перевести все в секунды как я могу правильно все это сделать? А что по твоему означает правильно? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.06.2014, 17:59	7
	Сообщение от cezer_ak если было бы так легко я бы не спрашивал Какой вопрос, такой и ответ Добавлено через 6 минут После обсуждения этой проблемы на одном из форумов в коне автор темы написал Возможно, откажусь от (дурацкой) затеи. 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.06.2014, 18:17	9
	Сообщение от cezer_ak как мне их преврати в дни часы и минуты? Так у тебя и так были дни часы и минуты Добавлено через 23 секунды Ты напиши по русски что тебе нужно... 1

@cezer_ak 5 / 5 / 3 Регистрация: 14.02.2013 Сообщений: 232
	30.06.2014, 18:24 [ТС]	10
	Puporev, Да они были но не в правильном формате(((( ну т.е. в минутах не может быть 86 в часах не может быть 30 и так далее при условии того что цифры меняются Добавлено через 6 минут Сообщение от Puporev Так у тебя и так были дни часы и минуты Добавлено через 23 секунды Ты напиши по русски что тебе нужно... у меня есть дни часы и минуты точнее их не правильное подобие: 2 дня 30 часов 86 минут. цифры соответственно могут меняться минуты часы и дни могут быть больше могут быть меньше. Нужно: Перевести их в правильную форму. По законам времени Часы не могут быть больше 23 минуты больше 59. Надеюсь ещё больше не запутал))) 0

@cezer_ak 5 / 5 / 3 Регистрация: 14.02.2013 Сообщений: 232
	30.06.2014, 19:23 [ТС]	17
	Вооооо гуд, спасибо работает. Благодарю. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	30.06.2014, 19:34	18
	Сообщение от cezer_ak Как перевести все эти данные так чтоб получилось примерно следующее: D:=3; //Дня H:=23; //Часа M:=59; //Минут Если бы этого "примерно слудующего" в вопросе не было бы, ответ получил бы на 2 часа раньше. 0