Разность дат и приведение ее к количеству дней, месяцев, лет

@Алксандр_ · Регистрация: 16.09.2011

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

Доброго времени суток, уважаемые! Пожалуйста, подскажите: есть-ли какое-либо решение (метод, способ) преобразования разности дат, полученную путем вычитания DateTimePicker-ов одного из другого, в дни, месяцы, года с учетом високосности лет и прочей календарной ...премудрости (необходимо для подсчета стажа)

@Busine2012 · 06.03.2012, 18:41

Visual Basic
1
2
3
4
5
6
7
8
Sub Procedure()
    'Значения Interval:
        'd - день;
        'm - месяц;
        'yyyy - год.
    Debug.Print DateDiff(Interval:="yyyy", Date1:="6.03.2012", Date2:="7.03.2012", _
        FirstDayOfWeek:=vbMonday, FirstWeekOfYear:=vbFirstJan1)
End Sub

Примечание, чтобы увидеть работу кода: View - Immediate Window.

@Апострофф · 06.03.2012, 22:27

А если к количеству лет:месяцев:дней?

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim d1 As Date, d2 As Date
 
Function DD(interval As String) As Long
  While DateAdd(interval, 1, d1) <= d2
    d1 = DateAdd(interval, 1, d1)
    DD = DD + 1
  Wend
End Function
 
Sub Main()
  d1 = CDate("27.08.2000")
  d2 = CDate("29.08.2010")
  MsgBox DD("yyyy") & ":" & Format(DD("m"), "00") & ":" & Format(DD("d"), "00")
End Sub

@minob · 07.03.2012, 17:53

Сообщение от Апострофф

А если к количеству лет:месяцев:дней?

Приведенный алгоритм не всегда дает верный результат
Например,
если d1 - 31.12.2000, d2 - 31.03.2001, то результат - 0:03:03;
если d1 - 31.01.2000, d2 - 30.01.2001, то результат - 0:12:01;
и т.д.

@skol13 · 29.05.2012, 18:00

Добрый день!
Решал похожую задачу - наткнулся в поиске на эту тему.
Вижу, что к какому то конкретному решению не пришли.
Если вопрос еще актуален, предлагаю рассмотреть мой вариант.
Вроде бы все считает верно.
Прошу простить за название функции и отсутствие определения необходимости подставлять в выходные данные слова "лет" или "год", "месяц" или "месяцев" и "дней" или "день".

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function test(dateBig As Date, dateLow As Date)
    Dim d1, m1, y1, d2, m2, y2, d, m, y, i
    d1 = Day(dateBig): m1 = Month(dateBig): y1 = Year(dateBig)
    d2 = Day(dateLow): m2 = Month(dateLow): y2 = Year(dateLow)
    i = 0
    While DateSerial(y2 + i, m2, d2) <= dateBig
        i = i + 1
    Wend
    y = i - 1
    i = 0
    While DateSerial(y2 + y, m2 + i, d2) <= dateBig
        i = i + 1
    Wend
    m = i - 1
    d = dateBig - DateSerial(y2 + y, m2 + m, d2)
    test = y & " лет, " & m & " месяцев и " & d & " дней."
End Function

ну и проверку правильности ввода дат забыл сделать

@kniga · 21.05.2013, 09:20

Сообщение от minob;
[VB

Function FAge_YY_MM_DD$(StartDate As Date, EndDate As Date)
Dim m&, d%, ds%, de%
If StartDate >= EndDate Then FAge_YY_MM_DD = "00-00-00": Exit Function
m = (DateDiff("m", StartDate, EndDate)): ds = Day(StartDate): de = Day(EndDate)
If ds > de Then
m = m - 1: d = Day(DateSerial(Year(EndDate), Month(EndDate), 0))
If ds > d Then d = de Else d = de + d - ds
Else
d = de - ds
End If
FAge_YY_MM_DD = Format$(m \ 12, "00") & "-" & Format$(m Mod 12, "00") & "-" & Format$(d, "00")
End Function[/VB]

Здравствуйте, пытаюсь применить вышеуказанную функцию, предложенную ув. minob. Подскажите пж, как правильно вставить вместо StartDate (я так понял это имя поля) имя на русском языке, да еще и с пробелом... (у меня оно Контактное лицо) и вместо EndDate не могу вставить Date() - редактор выделяет строку красным.

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Алксандр_ 0 / 0 / 0 Регистрация: 16.09.2011 Сообщений: 11

	Разность дат и приведение ее к количеству дней, месяцев, лет 21.02.2012, 14:56. Показов 17021. Ответов 24 Метки нет (Все метки) Доброго времени суток, уважаемые! Пожалуйста, подскажите: есть-ли какое-либо решение (метод, способ) преобразования разности дат, полученную путем вычитания DateTimePicker-ов одного из другого, в дни, месяцы, года с учетом високосности лет и прочей календарной ...премудрости (необходимо для подсчета стажа) 0