Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
06.05.2009, 15:03
|
|
Познающий
Регистрация: 27.03.2008
Сообщений: 30
Провел на форуме:
345913
Репутация:
10
|
|
[Delphi] Расчет времени
Приветствую всех.
Как известно - скоро у студентов сдача курсачей (запара ещё та =) ), но вот решить задание кусовой нет ни возможности, ни навыков (как преподают, особенно в начале, вы наверняка знаете), вот по этому прошу помощи в написании кода на Дэлфи.
Задача такова; написать программу, проводящую расчет времени (дней, часов, минут, секунд) между двумя датами учитывая все календарные правила (высокосный год, последние числа месяцов и т. д.). Формат даты: 15.01.2000 14:37:52 (ДД. ММ. ГГГГ). Временные рамки 1960 г. - 2020 г.
Пример: расчитать время между 01.01.2000 и 31.10.2009.
Решение: между 01.01.2000 и 31.10.2009 N-коичество дней, N-количество часов, N-коичество минут, N-коичество секунд.
Все. Буду благодарен всем за помощь в решении задачи. Спасибо.
Последний раз редактировалось Lord NightKon; 06.05.2009 в 15:05..
|
|
|
06.05.2009, 16:37
|
|
Постоянный
Регистрация: 20.03.2009
Сообщений: 564
Провел на форуме:
991929
Репутация:
395
|
|
чето помнится писал прогу для вычисления дней до денюхи )
Код:
// походу возвращает скока дней - передаешь день dd и месяц m (от 1 до 12)
// високосные года не учитывает
function dnei(dd,m:integer):integer;
var k,d:integer;
begin
for k:=1 to m do
begin
d:=31;
if k=2 then d:=29;
if (k=4) or (k=6) or (k=9) or (k=11) then d:=30;
dd:=dd+d;
end;
dnei:=dd;
end;
// а тут типа берется текущая дата и вычитается...
procedure TForm1.Button1Click(Sender: TObject);
var dat:TDateTime;
a,b:integer;
begin
dat:=date;
a:=dnei(strtoint(edit1.Text),combobox1.ItemIndex);
b:=dnei(strtoint(FormatDateTime('d',dat)),strtoint(FormatDateTime('m',dat))-1);
if a<b then a:=a+365;
label2.Caption:='Дней до денюхи осталось: '+inttostr(a-b);
end;
ну для минут и ваще времени можно умножить еще на 24 потом на 60... и тд
гуру кодеры делфисты не ругайтеся - это лучше чем ничего! ) |
|
|
|
06.05.2009, 16:54
|
|
Познающий
Регистрация: 28.03.2009
Сообщений: 52
Провел на форуме:
667098
Репутация:
32
|
|
Мля... Мне в 10 классе на 10 такую же задачку сказали решать, только реализация на паскале)))0 Задача была выполнена... могу найти код, если надо =)))
|
|
|
|
06.05.2009, 17:37
|
|
Познающий
Регистрация: 27.03.2008
Сообщений: 30
Провел на форуме:
345913
Репутация:
10
|
|
2zerokko - однозначно нужно - пожалуйста посмотри код
2Gar|k - спасибо за помощь, теперь есть от чего оттолкнуться
|
|
|
|
06.05.2009, 17:48
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Lord NightKon
Приветствую всех.
Как известно - скоро у студентов сдача курсачей (запара ещё та =) ), но вот решить задание кусовой нет ни возможности, ни навыков (как преподают, особенно в начале, вы наверняка знаете), вот по этому прошу помощи в написании кода на Дэлфи.
Задача такова; написать программу, проводящую расчет времени (дней, часов, минут, секунд) между двумя датами учитывая все календарные правила (высокосный год, последние числа месяцов и т. д.). Формат даты: 15.01.2000 14:37:52 (ДД. ММ. ГГГГ). Временные рамки 1960 г. - 2020 г.
Пример: расчитать время между 01.01.2000 и 31.10.2009.
Решение: между 01.01.2000 и 31.10.2009 N-коичество дней, N-количество часов, N-коичество минут, N-коичество секунд.
Все. Буду благодарен всем за помощь в решении задачи. Спасибо.
прикольные у вас курсачи, укладываются в одну строку... =\
Преподы отжигают.
PHP код:
ShowMessage(intToStr(DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text))));
P.S. не забудь подключить стандартный модуль DateUtils;
Проверял в Delphi 7
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
07.05.2009, 09:59
|
|
Познающий
Регистрация: 27.03.2008
Сообщений: 30
Провел на форуме:
345913
Репутация:
10
|
|
нужно ещё и время выщитать
|
|
|
|
07.05.2009, 10:40
|
Регистрация: 29.05.2002
Сообщений: 1,793
Провел на форуме:
2050916
Репутация:
0
|
|
Сообщение от Gar|k
чето помнится писал прогу для вычисления дней до денюхи )
ну для минут и ваще времени можно умножить еще на 24 потом на 60... и тд
гуру кодеры делфисты не ругайтеся - это лучше чем ничего! )
Не учитываются високосные годы и поправки григорианского календаря.
|
|
|
|
07.05.2009, 20:29
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
нет, однако наглые студенты.
не хватает сил посмотреть какие функции содержит модуль DateUtils???
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
20.05.2009, 00:46
|
|
Новичок
Регистрация: 11.04.2009
Сообщений: 13
Провел на форуме:
34367
Репутация:
0
|
|
год високосный если, если остаток от деления на 4 равен нулю
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
