Разница дат

@Лунёв Виктор · Регистрация: 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 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Лунёв Виктор 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

Опции темы