Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 28.11.2018
Сообщений: 28
1

Описать функцию Число дней, подсчитывающую, сколько дней прошло от 1 января 0001 года нашей эры до даты d

23.12.2018, 00:16. Просмотров 1383. Ответов 13
Метки нет (Все метки)


Delphi
1
2
3
4
5
6
7
8
9
type число =1..31; месяц =1..12; год =1..2000;
 
дата = record ч: число;
 
м: месяц;
 
г: год end;
 
деньнедели = (пн, вт, ср, чт, пт, сб, вс);
Считая, что все даты даются по григорианскому календарю ("новому стилю"), описать функцию Числодней(d), подсчитывающую, сколько дней прошло от 1 января 0001 года нашей эры до даты d.

Нужно сделать через Function.

Заранее спасибо! (Если не сложно, киньте весь код)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2018, 00:16
Ответы с готовыми решениями:

Описать функцию ЧислоДней(d), подсчитывающую, сколько дней прошло от 1 января 1-го года нашей эры до даты d
6. Дано type число = 1..31; месяц = 1..12; год = 1..2000; дата = record ч...

Описать функцию подсчитывающую сколько дней прошло от первого января 2005 года до даты d этого года.
Дан массив записи, представляющий собой календарь(число,месяц,год). Описать функцию подсчитывающую...

Множества.Месяц 1..30 Описать функцию число дней (m), определяющую количество дней в месяце (n) не високосного года.
Месяц 1..30 Описать функцию число дней (m), определяющую количество дней в месяце (n) не...

С 1 января 1990 года по некоторый день прошло m месяцев и n дней, определить название текущего месяца
С 1 января 1990 года по некоторый день прошло m месяцев и n дней, определить название текущего...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
13
60 / 46 / 20
Регистрация: 01.09.2017
Сообщений: 362
23.12.2018, 02:05 2
Глупое задание, не так ли? Я забыл какой год сейчас, нужно подсчитать по сложной формуле, в программе
0
0 / 0 / 0
Регистрация: 28.11.2018
Сообщений: 28
23.12.2018, 02:10  [ТС] 3
И смысл твоего сообщения? Выразить свое мнение в теме, где спрашивают решение?
0
60 / 46 / 20
Регистрация: 01.09.2017
Сообщений: 362
23.12.2018, 02:12 4
outlaw_greed, В учебных заведениях, где такие задания составляют, наверно они что-то такое курят там.
0
пофигист широкого профиля
4297 / 2816 / 797
Регистрация: 15.07.2013
Сообщений: 16,324
23.12.2018, 02:52 5
Цитата Сообщение от 920403 Посмотреть сообщение
Глупое задание, не так ли?
Задание не глупое, а даже интересное. Правда для кулинарного техникума - это явный перебор!
0
60 / 46 / 20
Регистрация: 01.09.2017
Сообщений: 362
23.12.2018, 04:44 6
northener, Это тоже самое, что сделать программу для расчёта количества пальцев у вас на руках, или расчёта количества глаз или ушей у каждого челобрюха
0
Модератор
1264 / 857 / 206
Регистрация: 31.05.2013
Сообщений: 5,855
Записей в блоге: 6
24.12.2018, 00:04 7
Цитата Сообщение от 920403 Посмотреть сообщение
нужно подсчитать по сложной формуле
Вообще-то никакой сложной формулы - всего одна функция из DateUtils - DaysBetween:
Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(DaysBetween(EncodeDate(0001, 01, 01), Now));
end;
0
пофигист широкого профиля
4297 / 2816 / 797
Регистрация: 15.07.2013
Сообщений: 16,324
24.12.2018, 02:17 8
Цитата Сообщение от Matan! Посмотреть сообщение
Вообще-то никакой сложной формулы - всего одна функция из DateUtils - DaysBetween:
Это проверено?
0
Модератор
1264 / 857 / 206
Регистрация: 31.05.2013
Сообщений: 5,855
Записей в блоге: 6
24.12.2018, 02:45 9
Цитата Сообщение от northener Посмотреть сообщение
Это проверено?
Конечно. Код выше.
0
Миниатюры
Описать функцию Число дней, подсчитывающую, сколько дней прошло от 1 января 0001 года нашей эры до даты d  
Модератор
6759 / 4353 / 1869
Регистрация: 21.01.2014
Сообщений: 18,417
Записей в блоге: 3
24.12.2018, 05:37 10
Matan!, не пойдет...
Я вот сейчас задание перечитал: у Вас функция Now, вернет текущую дату, т.е. пока еще 2018 г.
А согласно приведенной методичке, жизнь на Земле должна была закончится 31.12.2000 г. и дальнейшее летоисчисление - это все от лукавого...
0
Модератор
1264 / 857 / 206
Регистрация: 31.05.2013
Сообщений: 5,855
Записей в блоге: 6
24.12.2018, 08:49 11
D1973, ну я ведь пример привёл.. Да, мне нравится Now, хотя бы тем, что в ней три буквыи жить надо настоящим, а не помирать в 2000 году, когда я только в школу пошёл. Ну, если чё, то так:
Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(DaysBetween(EncodeDate(0001, 01, 01), EncodeDate(2000, 12, 31)));
end;
0
3568 / 3040 / 819
Регистрация: 29.08.2013
Сообщений: 20,282
Записей в блоге: 2
24.12.2018, 09:06 12
а фокус наверняка в том что делать это все без дополнительных модулей типа DateUtils
0
D1973
24.12.2018, 09:38
  #13

Не по теме:

Цитата Сообщение от qwertehok Посмотреть сообщение
делать это все без дополнительных модулей
Скорее сего, ибо эти задания - из 80-х годов прошлого века, когда 2000 год был далек, как звезды, а модуля DateUtils и в помине не было...

0
Модератор
1264 / 857 / 206
Регистрация: 31.05.2013
Сообщений: 5,855
Записей в блоге: 6
24.12.2018, 14:22 14
Цитата Сообщение от qwertehok Посмотреть сообщение
а фокус наверняка в том что делать это все без дополнительных модулей типа DateUtils
А ТС об этом где-то сказал? И что мешает перекопировать исходник этой функции к себе в проект?
Наша DaysBetween - это просто обёртка над SpanOfNowAndThen. Код последней тоже прост, как пробка:
Delphi
1
2
3
4
5
6
7
function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
begin
  if ANow < AThen then
    Result := Trunc(AThen - ANow)
  else
    Result := Trunc(ANow - AThen);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2018, 14:22

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

Календарь: подсчитать, сколько дней прошло с начала 2012 года до указанной даты в 2012 году
Требуется подсчитать, сколько дней прошло с начала 2012 года до указанной даты в 2012 году. ...

Сколько дней прошло с начала года
Сколько дней прошло с начала года Через функции. Excel

Сколько дней прошло от начала года?
Доброго времени суток! Что-то не могу составить формулу, которая считает, в какой по счету из дней...

Определить, сколько дней прошло с начала года
Формат день.месяц.год Определить сколько дней прошло с начала года, дату предыдущего дня Помогите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.