Рассчитываем разность дат от текущей даты

@xxx_73 · Регистрация: 06.01.2014

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

Есть текущая дата, и есть дата рождения в реквизите(дата регистрации). Нужно в табличную чать поместить результат в (год, месяц, дней).

1C
1
2
НачалоДняТекущейДаты = НачалоДня(ТекущаяДата()); 
ДатаРож=НачалоДняТекущейДаты-Объект.Дата;

Синтаксической ошибки нет, но наверно арифметические действия нельзя напрямую с Объектом совершать? Поможете разобраться и разъяснит по соседски?

@Yulunga · 13.10.2024, 23:01

Maks, ты имеешь в виду

1C
1
2
3
сообщение = новый сообщениепользователю;
сообщение.текст = "персонажу " + лет + " лет, " + месяцев + " месяцев, " + дней + " дней.";
сообщение.сообщить();

?

@Maks · 14.10.2024, 08:26

Лет = Год(Объект.ДатаСегодня)-Год(Объект.ДатаРождения);
Месяцев = Месяц(Объект.ДатаСегодня)-Месяц(Объект.ДатаРождения);
Дней = День(Объект.ДатаСегодня)-День(Объект.ДатаРождения);
Если Дней < 0 Тогда
Месяцев = Месяцев - 1;
Дней = (КонецМесяца(Объект.ДатаСегодня)+1 - НачалоМесяца(Объект.ДатаСегодня))/86400 + Дней;
КонецЕсли;
Если Месяцев < 0 Тогда
Лет = Лет - 1;
Месяцев = 12 + Месяцев;
КонецЕсли;

Будет ли работать данный алгоритм в обратном порядке?
Т.е., если изменить условие наоборот, поменять местами "Объект.ДатаСегодня" и "Объект.ДатаРождения"?

@Аватар · 14.10.2024, 09:10

не будет. но если в начале проверить какая из дат меньше и навести порядок то будет )

@polax · 14.10.2024, 09:27

увидел, что уже ответили

@Maks · 14.10.2024, 10:03

Сообщение от Аватар

но если в начале проверить какая из дат меньше и навести порядок то будет

В начале при установке переменных, или в условии?

@Аватар · 14.10.2024, 10:50

сделал бы функцию, две даты в параметрах дата1 и дата2
две переменных: датаменьшая и датабольшая
в начале
датаменьшая = ?(дата1 < дата2, дата1, дата2);
датабольшая = ?(дата1 < дата2, дата2, дата1);
и дальше все Объект.ДатаРождения заменить на датаменьшая,
а Объект.ДатаСегодня на датабольшая )
результат можно структурой оформить, или строкой

@Maks · 14.10.2024, 11:05

Сообщение от Аватар

дата1 < дата2

Я так понимаю Дата1=ТекущаяДата?

Сообщение от Аватар

результат можно структурой оформить, или строкой

Строкой типа Сообщить();?

@Аватар · 14.10.2024, 11:16

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

Я так понимаю Дата1=ТекущаяДата?

не важно, функция сама разберется где большая

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

Строкой типа Сообщить();?

как Yulunga выше предложил или свою красоту навести, я бы структурой где года, месяцы, дни и строкой, иногда же важно сколько полных лет.

@Maks · 14.10.2024, 11:21

Аватар, если я правильно понял, то сначала нужно написать функцию, а уже потом процедуру? Последняя поймет куда ей обратиться за Дата1 и Дата2?

@Аватар · 14.10.2024, 11:26

об процедуре речи же не было, предлагалось оформить код от polax функцией. можно конечно и процедурой при желании, только результат тогда в параметрах процедуры

@Maks · 14.10.2024, 11:34

Аватар, необходимо создать команду на общей форме. При создании в поле "Действие" создается именно процедура. Ее можно заменить на функцию? Или функцию создать отдельно, а в процедуре указать ее выполнение?

@Аватар · 14.10.2024, 11:37

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

Или функцию создать отдельно, а в процедуре указать ее выполнение?

ну да

@Maks · 14.10.2024, 11:47

Аватар, правильно ли я собрал функцию?

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
датаменьшая = ?(дата1 < дата2, дата1, дата2);
датабольшая = ?(дата1 < дата2, дата2, дата1);
Лет = Год(датабольшая)-Год(датаменьшая);
Месяцев = Месяц(датабольшая)-Месяц(датаменьшая);
Дней = День()-День(датаменьшая);
Если Дней < 0 Тогда
Месяцев = Месяцев - 1;
Дней = (КонецМесяца(датабольшая)+1 - НачалоМесяца(датабольшая))/86400 + Дней;
КонецЕсли;
Если Месяцев < 0 Тогда
Лет = Лет - 1;
Месяцев = 12 + Месяцев;
КонецЕсли;

@Аватар · 14.10.2024, 12:24

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
функция РазностьДат(дата1, дата2)
    датаменьшая = ?(дата1 < дата2, дата1, дата2);
    датабольшая = ?(дата1 < дата2, дата2, дата1);
    Лет = Год(датабольшая)-Год(датаменьшая);
    Месяцев = Месяц(датабольшая)-Месяц(датаменьшая);
    Дней = День(датабольшая)-День(датаменьшая);
    Если Дней < 0 Тогда
        Месяцев = Месяцев - 1;
        Дней = (КонецМесяца(датабольшая)+1 - НачалоМесяца(датабольшая))/86400 + Дней;
    КонецЕсли;
    Если Месяцев < 0 Тогда
        Лет = Лет - 1;
        Месяцев = 12 + Месяцев;
    КонецЕсли;
    результат = "персонажу " + Лет + " лет, " + Месяцев + " месяцев, " + Дней + " дней.";
Конецфункции

@Yulunga · 14.10.2024, 13:01

Аватар, сравним 31.1.24 и 29.2.24
лет = 0
м = 1
д = 29-31=-2
д меньше нуля следовательно
м = 0
д = (1.3.24 - 1.2.24)/86400 -2. уменьшаемое, видимо, равно 29. поэтому д = 29-2 = 27
итого персонажу 0 л 0 м и 27 дней
правильно я посчитал?

@Аватар · 14.10.2024, 13:14

да там всегда тонкости с февралем, когда то давно в фоксе мучался с этим, а мне к сожалению проверить не чем, 1с не стоит, фокс забыл почти, а корячиться в excel нет ни какого желания. а код не от меня, от polax-а

@Maks · 14.10.2024, 14:17

Yulunga, на счет февраля выше уже написано:

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

Моменты с високосным годом абсолютно не влияют. Месяц и Год программа сама определит, без разницы сколько дней в феврале. А дней, если запрос будет в феврале, НачалоМечяца и КонецМесяца сами определят сколько дней

Остается проверить на практике, например, задав точные значения (даты) для переменных.

@Аватар · 14.10.2024, 21:43

там в #34 забыл возврат результата сделать, вот что значит практика давно отсутствует )

@Maks · 14.10.2024, 21:45

Сообщение от Аватар

там в #34 забыл возврат результата сделать, вот что значит практика давно отсутствует

Тут, главное, база остальное думающий в направлении по сабжу человек сам допишет, для иных данный топик не предназначен.

Новые блоги и статьи Все статьи Все блоги /
Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .
Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .

Рассчитываем разность дат от текущей даты

Решение

Решение

@Аватар 5393 / 1465 / 513 Регистрация: 31.05.2012 Сообщений: 5,153
	14.10.2024, 09:10
	не будет. но если в начале проверить какая из дат меньше и навести порядок то будет ) 0

@polax 7176 / 1778 / 648 Регистрация: 16.01.2015 Сообщений: 7,347
	14.10.2024, 09:27
	увидел, что уже ответили 0

@Аватар 5393 / 1465 / 513 Регистрация: 31.05.2012 Сообщений: 5,153
	14.10.2024, 10:50
	сделал бы функцию, две даты в параметрах дата1 и дата2 две переменных: датаменьшая и датабольшая в начале датаменьшая = ?(дата1 < дата2, дата1, дата2); датабольшая = ?(дата1 < дата2, дата2, дата1); и дальше все Объект.ДатаРождения заменить на датаменьшая, а Объект.ДатаСегодня на датабольшая ) результат можно структурой оформить, или строкой 1

@Maks Супер-модератор 9726 / 5579 / 649 Регистрация: 13.03.2013 Сообщений: 19,228 Записей в блоге: 65
	14.10.2024, 11:21
	Аватар, если я правильно понял, то сначала нужно написать функцию, а уже потом процедуру? Последняя поймет куда ей обратиться за Дата1 и Дата2? 0

@Аватар 5393 / 1465 / 513 Регистрация: 31.05.2012 Сообщений: 5,153
	14.10.2024, 11:26
	об процедуре речи же не было, предлагалось оформить код от polax функцией. можно конечно и процедурой при желании, только результат тогда в параметрах процедуры 1

@Maks Супер-модератор 9726 / 5579 / 649 Регистрация: 13.03.2013 Сообщений: 19,228 Записей в блоге: 65
	14.10.2024, 11:34
	Аватар, необходимо создать команду на общей форме. При создании в поле "Действие" создается именно процедура. Ее можно заменить на функцию? Или функцию создать отдельно, а в процедуре указать ее выполнение? 0

@Yulunga Модератор 4771 / 967 / 269 Регистрация: 22.04.2013 Сообщений: 6,648 Записей в блоге: 1
	14.10.2024, 13:01
	Аватар, сравним 31.1.24 и 29.2.24 лет = 0 м = 1 д = 29-31=-2 д меньше нуля следовательно м = 0 д = (1.3.24 - 1.2.24)/86400 -2. уменьшаемое, видимо, равно 29. поэтому д = 29-2 = 27 итого персонажу 0 л 0 м и 27 дней правильно я посчитал? 0

@Аватар 5393 / 1465 / 513 Регистрация: 31.05.2012 Сообщений: 5,153
	14.10.2024, 13:14
	да там всегда тонкости с февралем, когда то давно в фоксе мучался с этим, а мне к сожалению проверить не чем, 1с не стоит, фокс забыл почти, а корячиться в excel нет ни какого желания. а код не от меня, от polax-а 0

@Аватар 5393 / 1465 / 513 Регистрация: 31.05.2012 Сообщений: 5,153
	14.10.2024, 21:43
	там в #34 забыл возврат результата сделать, вот что значит практика давно отсутствует ) 1