Разница дат

@Лунёв Виктор · Регистрация: 22.03.2009

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

Добрый вечер!
Пишу программу которая считает разницу дат в формате дд.мм.гггг

приведенный ниже код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
String den,mes,god;
  den=FormatDateTime("dd",DateTimePicker1->Date);
  mes=FormatDateTime("mm",DateTimePicker1->Date);
  god=FormatDateTime("yyyy",DateTimePicker1->Date);
 
 
 String den_1,mes_1,god_1;
 den_1=FormatDateTime("dd",DateTimePicker2->Date);
  mes_1=FormatDateTime("mm",DateTimePicker2->Date);
  god_1=FormatDateTime("yyyy",DateTimePicker2->Date);
 
  int rez_d=0;
    if (den_1>den)
    rez_d=den_1-den;
    else
  rez_d=den-den_1;
 
 
    int rez_m=0;
    if (mes_1>mes)
    rez_m=mes_1-mes;
    else
  rez_m=mes-mes_1;
 
 
   int rez_g=0;
    if (god_1>god)
    rez_g=god_1-god;
    else
  rez_g=god-god_1;
 
   Label5->Caption=rez_d;
  Label6->Caption=rez_m;
Label7->Caption=rez_g;

считает это чисто арифметически, что не является идеалом

функция DaysBetween() мне известна и возвращает разницу в днях:

C++
1
2
3
4
5
String Date1=FormatDateTime("dd.mm.yyyy",DateTimePicker1->Date);
String Date2=FormatDateTime("dd.mm.yyyy",DateTimePicker2->Date);
 
 
 Edit2->Text=DaysBetween(Date1,Date2);

Арифметические вычисления из данного числа несерьезны, так как не каждый год у нас =365 дней.

Вопрос есть ли функции вычисляющие разницу в заданном формате? Возможно мне не до конца известен синтаксис функции DaysBetween().

@Sasha · 27.11.2009, 19:36

Вот нашёл пример функции

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
String __fastcall TfrmMain::DiffDate(TDateTime cur, TDateTime last)
{
  unsigned short y;
  unsigned short m;
  unsigned short d;
  int       iDifference;
  String    sDifference;
  int       temp;
  iDifference = cur - last;
  TDateTime dDifference(iDifference);
  dDifference.DecodeDate(&y, &m, &d);
  y -= 1900;
  m -= 1;
  d += 1;
  if(d > 30)
  {
     d -= 30;
     m++;
  }
  if(m > 11)
  {
     m = 0;
     y ++;
  }
  sDifference = IntToStr(d) + " дней " +
                IntToStr(m) + " месяцев " +
                IntToStr(y) + " годов";
  return sDifference;
}

Может поможет

Добавлено через 11 минут
Для определекния высокосного года используй функцию IsLeapYear()

@Лунёв Виктор · 28.11.2009, 00:23 **[ТС]**

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

@Lord_Voodoo · 28.11.2009, 11:01

Лунёв Виктор, вообще тип данных TDateTime отлично поддерживает разницу. поэтому перевод даты в строку не нужен, даты отнимайте друг от друга.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Лунёв Виктор 8 / 8 / 1 Регистрация: 22.03.2009 Сообщений: 55
	28.11.2009, 00:23 [ТС]
	Честно не помогло....продолжаю биться, в мозгу висит алгоритм на оч много строчек кода, как сотворю отпишусь.... очень огорчило такая малая заинтересованность в данном вопросе 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	28.11.2009, 11:01
	Лунёв Виктор, вообще тип данных TDateTime отлично поддерживает разницу. поэтому перевод даты в строку не нужен, даты отнимайте друг от друга. 0