Определить, сколько дней осталось до экзамена, до защиты диплома (в днях, годах, месяцах, часах, минутах)

@Ирина126 · Регистрация: 14.10.2019

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

@MrCrown · 29.10.2019, 12:48

Ребят, вот смотрю я на вас уже вторую неделю и всё жду, когда же вы, наконец, поймёте, что задача в таком виде не имеет решения (точного решения).

Всё дело в том, что количество дней в месяце непостоянно, и может быть 28, 29, 30 и 31.Это вы конечно понимаете, но продолжаете с завидным упорством стучаться в закрытую дверь. Поясню на примере.
Возьмём две даты (поближе друг к другу, чтобы можно было посчитать на пальцах). 05.01.2019 и 20.03.2019. Здесь мы имеем интервал из 26 дней января, полного февраля и 20 дней марта. Итого: 1 месяц и 46 дней. Фактически - это 2 месяца и сколько-то дней. Но сколько? 18 (46-28)? 17? 16? 15?
В .NET есть структура TimeSpan. Она считает интервалы времени только в днях, часах, минутах... именно по этой причине. "Не дураки сидят, верно да?" (А.Райкин). В принципе, можно считать, что задача решена, но с допущением, что количество дней в абстрактном месяце равно 31.
P.S. Мне пора, пожалуй, вступать в сообщество зануд

@Gilford · 29.10.2019, 15:21

MrCrown, ну задача про другое.
Я понял как:
05.01.2019 - 20.03.2019
Получается 2 месяца и 15 дней.
Просто сразу убираем 28/30/31 дней.
И вот получается, что задача уже решаема.
А год подсчитать можно просто разделив 365 (правда без високосного... хм)

@Orlangur · 29.10.2019, 15:28

Не, ну как же, мы можем пойти по тёмному пути и к одной дате добавлять по минуте, попутно считая сколько прошло минут, часов, дней, месяцев, лет

Точно, но долго

@MrCrown · 29.10.2019, 15:34

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

Просто сразу убираем 28/30/31 дней.

Gilford, так сколько убираем - 28, 30 или 31 ?

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

... хм

Вот и я про то же.

@Orlangur · 29.10.2019, 15:39

Типа вот так

VB.NET
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
DateTimePicker1.Value = "05.01.2019 12:15:00"
        DateTimePicker2.Value = "20.03.2019 17:23:00"
        Dim d1 = DateTimePicker1.Value
        Dim d2 = DateTimePicker2.Value
 
        Dim minutes As Integer = 0
        Dim hours As Integer = 0
        Dim days As Integer = 0
        Dim months As Integer = 0
        Dim years As Integer = 0
 
        While d1 < d2
            d1 = d1.AddMinutes(1)
            minutes += 1
            If minutes = 60 Then
                minutes = 0
                hours += 1
            End If
            If hours = 24 Then
                hours = 0
                days += 1
                If days = DateTime.DaysInMonth(d1.Year, d1.Month) Then
                    days = 0
                    months += 1
                    If months = 12 Then
                        years += 1
                        months = 0
                    End If
                End If
            End If
        End While
 
        MsgBox("Лет: " & years & vbNewLine & "Месяцев:" & months & vbNewLine &
               "Дней: " & days & vbNewLine & "Часов: " & hours & vbNewLine & "Минут: " & minutes)

@Тим70 · 29.10.2019, 15:52

A_Qz, У вас очень удобный ввод данных

@MrCrown · 29.10.2019, 15:59

Orlangur1991, это ничего не меняет. Всё равно нужно принять допущение, что условный месяц, который получился сложением числа дней из двух других месяцев (примерно половина случаев), состоит из 31 дня. (Почему не 30 или 28 ?). В вашем коде вы делаете такое допущение, беря последний вычисляемый месяц.

@Orlangur · 29.10.2019, 16:10

MrCrown, не могу догнать

можете привести примеры дат в которых это не сработает?

@A_Qz · 29.10.2019, 16:30

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

Ребят, вот смотрю я на вас уже вторую неделю и всё жду, когда же вы, наконец, поймёте, что задача в таком виде не имеет решения (точного решения). Всё дело в том, что количество дней в месяце непостоянно, и может быть 28, 29, 30 и 31.Это вы конечно понимаете, но продолжаете с завидным упорством стучаться в закрытую дверь. Поясню на примере.
Возьмём две даты (поближе друг к другу, чтобы можно было посчитать на пальцах). 05.01.2019 и 20.03.2019. Здесь мы имеем интервал из 26 дней января, полного февраля и 20 дней марта. Итого: 1 месяц и 46 дней. Фактически - это 2 месяца и сколько-то дней. Но сколько? 18 (46-28)? 17? 16? 15?

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

MrCrown, ну задача про другое.
Я понял как:
05.01.2019 - 20.03.2019
Получается 2 месяца и 15 дней.
Просто сразу убираем 28/30/31 дней.
И вот получается, что задача уже решаема.

Нет, там считается все точно. Не важно сколько было дней в прошедших месяцах, в решении просто говорится сколько месяцев, и сколько лет, без учета високосный он или нет.
Все это определяется и учитывается методами, а они точные:

VB.NET
1
2
Dmon = DateDiff(DateInterval.Month, T1, T2)
Dy = DateDiff(DateInterval.Year, T1, T2)

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

Но мое решение точное. Там чисто прагматически: столько то лет, месяцев, дней...
Поэтому претензии MrCrown, не обоснованы и не по содержанию, решаемой задачи.

Добавлено через 4 минуты

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

MrCrown, не могу догнать можете привести примеры дат в которых это не сработает?

Да, MrCrown, приведите пример дат, где будет ошибка. А я проверю в своей программе и результат приведу вам.

@MrCrown · 29.10.2019, 16:41

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

можете привести примеры дат в которых это не сработает?

Orlangur1991, вы их использовали в своём коде. Дело в том, что кроме вашего существует ещё 3 правильных результата:
2 месяца и 16 дней
2 месяца и 17 дней
2 месяца и 18 дней
Всё зависит от того, сколько дней в том условном месяце, который получился в результате сложения дней оставшейся части января и части марта. Ну я уже просто не знаю, как ещё донести свою логику. Попробуйте просто представить себе интервал в виде оси времени с засечками по месяцам.

@A_Qz · 29.10.2019, 16:47

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

Всё зависит от того, сколько дней в том условном месяце

А разве все не учитывается методом:

VB.NET
1
days = DateTime.DaysInMonth(d1.Year, d1.Month)

?

@Orlangur · 29.10.2019, 16:48

MrCrown, Но ведь я просто иду от первой даты до второй по минутам, попутно увеличивая количество пройденных часов, дней, месяцев, лет, причем тут условный месяц?

Определить, сколько дней осталось до экзамена, до защиты диплома (в днях, годах, месяцах, часах, минутах)

@A_Qz · 29.10.2019, 19:21

Приношу извинения, но в моем коде следует указать:

VB.NET
1
2
Private sD1, sD2 As String
Private T1,T2 as Date

и в строке 41 ошибка:

VB.NET
1
 Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * DateDiff(DateInterval.Year, T1, T2)

Надо заменить на выражение (отнять единицу):

VB.NET
1
 Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * DateDiff(DateInterval.Year, T1, T2) - 1

Добавлено через 2 часа 21 минуту
В окончательной редакции мой код:

VB.NET
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Imports System.Data
Public Class Form1
Private D1, D2, M1, M2, Y1, Y2 As Integer
Private Dh, Dday, Dmon, Dy As Integer
Private sD1, sD2 As String
Private T1, T2 As Date
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
D1 = nmbDay1.Value
M1 = cmbMonth1.SelectedIndex + 1
Y1 = nmbYear1.Value
nmbDay1.Maximum = DateTime.DaysInMonth(Y1, M1)
If D1 > nmbDay1.Maximum Then
   nmbDay1.Value = nmbDay1.Maximum 
   D1 = nmbDay1.Value
End If
D2 = nmbDay2.Value
M2 = cmbMonth2.SelectedIndex + 1
Y2 = nmbYear2.Value
nmbDay2.Maximum = DateTime.DaysInMonth(Y2, M2)
If D2 > nmbDay2.Maximum Then
   nmbDay2.Value = nmbDay2.Maximum 
   D2 = nmbDay2.Value
End If
sD1 = "#" & CStr(D1) & "/" & CStr(M1) & "/" & CStr(Y1) & "#"
T1 = CDate(sD1)
sD2 = "#" & CStr(D2) & "/" & CStr(M2) & "/" & CStr(Y2) & "#"
T2 = CDate(sD2)
If M1 > M2 Then
   If D1 > D2 Then   'M1 > M2   
      hD = DateTime.DaysInMonth(Y1, M1)
      Dday = DateTime.DaysInMonth(Y1, M1) - D1 + D2
      Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * (DateDiff(DateInterval.Year, T1, T2) - 1) - 1
      Dy = DateDiff(DateInterval.Year, T1, T2) - 1
    Else  'M1 > M2  D1<D2  
      Dday = D2 - D1
      Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * (DateDiff(DateInterval.Year, T1, T2) - 1)
      Dy = DateDiff(DateInterval.Year, T1, T2) - 1
    End If
Else  'M1<M2  D1>D2  
    If D1 > D2 Then
       hD = DateTime.DaysInMonth(Y1, M1)
       Dday = DateTime.DaysInMonth(Y1, M1) - D1 + D2
       Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * DateDiff(DateInterval.Year, T1, T2) - 1
       Dy = DateDiff(DateInterval.Year, T1, T2)
    Else 'M1 < M2   D1 < D2  
       Dday = D2 - D1
       Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * DateDiff(DateInterval.Year, T1, T2)
       Dy = DateDiff(DateInterval.Year, T1, T2)
      End If
End If
MsgBox("Всего осталось: " & CStr(Dy) & " лет, " & CStr(Dmon) & " месяцев, " & CStr(Dday) & " дней")
End Sub
Private Sub cmbMonth1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbMonth1.SelectedIndexChanged
     nmbDay1.Maximum = DateTime.DaysInMonth(Y1, M1)
     If nmbDay1.Value > nmbDay1.Maximum Then nmbDay1.Value = nmbDay1.Maximum
End Sub 
Private Sub cmbMonth2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbMonth2.SelectedIndexChanged
     nmbDay2.Maximum = DateTime.DaysInMonth(Y2, M2)
     If nmbDay2.Value > nmbDay2.Maximum Then nmbDay2.Value = nmbDay2.Maximum 
End Sub
End Class

@MrCrown · 30.10.2019, 10:40

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

А разве все не учитывается методом

A_Qz, учитывается, но в "полных" месяцах в данном интервале.

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

причем тут условный месяц?

Orlangur1991, условный месяц - это моя терминология. Это месяц

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

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

Т.е. единственный правильный ответ в таком формате - 0 лет 1 месяц и 46 дней. Вы эти 46 дней представляете как 1 месяц и 15 дней. Почему не 16? Ведь в месяце бывает и 30 дней.
Да, - это формальная логика. Но ведь мы не бабушки, продающие клубнику в баночках. Мы ~~должны~~ обязаны знать точно, сколько ягод в баночке

@A_Qz · 30.10.2019, 11:53

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

A_Qz, учитывается, но в "полных" месяцах в данном интервале.

Метод:

VB.NET
1
Dday = DateTime.DaysInMonth(Y1, M1)

, где M1 - от 1 до 12, а Y1 - ваш год: 2019, 2020...
дает точное количество дней конкретно для указанного месяца и года. Если год - високосный, то в феврале укажет - 29, если - нет, то 28. И так для каждого месяца.
Все строго и точно. Соберите программу Orlangur1991, или мою и проверьте. Вы убедитесь, что они не ошибаются.

@MrCrown · 30.10.2019, 14:21

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

Все строго и точно. Соберите программу Orlangur1991, или мою и проверьте. Вы убедитесь, что они не ошибаются.

A_Qz, ну вот опять... Я вам про Фому, а вы про Ерёму. Перечитайте внимательно мои посты. Я прекрасно знаю что делает метод DaysInMonth. Я лишь хочу доказать, что эта задача в формате годы/месяцы/дни не имеет однозначного решения в определённых интервалах времени. Однозначное решение может быть только в формате дни/часы/минуты/секунды/миллисекунды.

@A_Qz · 30.10.2019, 16:16

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

Я лишь хочу доказать, что эта задача в формате годы/месяцы/дни не имеет однозначного решения в определённых интервалах времени. Однозначное решение может быть только в формате дни/часы/минуты/секунды/миллисекунды.

Согласен. Если вам необходима такая точность, то вы вольны так считать. А кому-то, с практической точки зрения, будет достаточно точности годы/месяцы/дни. Условно он будет считать с 12 часов дня первой даты и до 12 часов дня второй даты и дни будут посчитаны правильно. А если есть необходимость считать часы, минуты, секунды - то программу можно расширить и на эти отрезки, тогда будет точнее. Какая вам будет нужна точность, такую и можно посчитать.

@MrCrown · 31.10.2019, 13:35

A_Qz, вы опять меня не поняли. Здесь речь не идёт о точности до миллисекунд, а о неоднозначности результата, который вы получаете в формате месяцы/дни. В некоторых диапазонах вы получите один из четырёх правильных результатов. Посмотрите на мой корявый рисунок.

В диапазоне от 05.01 до 20.03 мы имеем один полный месяц и 46 дней, полученных по сумме оставшейся части января и части марта. Разумеется мы можем считать эти 46 дней как месяц и сколько то дней (я уже повторяюсь). Но как применить к этому "условному" месяцу функцию DaysInMonth? ведь он не имеет названия. Ваш код считает, что в нём 31 день(т.е. в последнем вычисляемом, в данном
случае в марте). Но это не корректно, и здесь принципиальная ошибка, т.к. в месяце бывает и 30 дней, т.е. в каком-то другом диапазоне, код вычтет 30 дней, или 28. Я не имею претензий к вашему коду, я в него даже не вникал, это бессмысленно, некорректно само условие задачи.
В общем, я устал уже толочь воду в ступе, мне нечего больше добавить к вышесказанному. Выхожу из темы.

@A_Qz · 31.10.2019, 19:03

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

В диапазоне от 05.01 до 20.03 мы имеем один полный месяц и 46 дней, полученных по сумме оставшейся части января и части марта. Разумеется мы можем считать эти 46 дней как месяц и сколько то дней (я уже повторяюсь). Но как применить к этому "условному" месяцу функцию DaysInMonth?

Я просто прагматично доверился методу:

VB.NET
1
Dmon = DateDiff(DateInterval.Month, T1, T2)

А он указывает, что в этом интервале 2 месяца.
Где T1 (и T2) определяется по формату:

VB.NET
1
2
sD1 = "#" & CStr(D1) & "/" & CStr(M1) & "/" & CStr(Y1) & "#"
T1 = CDate(sD1)

Осталось только из второй даты вычесть первую дату и получилось 2 месяца и 15 дней.
Но, наверное, формально вы правы.

@A_Qz · 01.11.2019, 06:40

Есть ещё одно дополнение в мой идиотский код:

VB.NET
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Imports System.Data
Public Class Form1
Private D1, D2, M1, M2, Y1, Y2 As Integer
Private Dh, Dday, Dmon, Dy As Integer
Private sD1, sD2 As String
Private T1, T2 As Date
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
D1 = nmbDay1.Value
M1 = cmbMonth1.SelectedIndex + 1
Y1 = nmbYear1.Value
nmbDay1.Maximum = DateTime.DaysInMonth(Y1, M1)
If D1 > nmbDay1.Maximum Then
   nmbDay1.Value = nmbDay1.Maximum 
   D1 = nmbDay1.Value
End If
D2 = nmbDay2.Value
M2 = cmbMonth2.SelectedIndex + 1
Y2 = nmbYear2.Value
nmbDay2.Maximum = DateTime.DaysInMonth(Y2, M2)
If D2 > nmbDay2.Maximum Then
   nmbDay2.Value = nmbDay2.Maximum 
   D2 = nmbDay2.Value
End If
sD1 = "#" & CStr(D1) & "/" & CStr(M1) & "/" & CStr(Y1) & "#"
T1 = CDate(sD1)
sD2 = "#" & CStr(D2) & "/" & CStr(M2) & "/" & CStr(Y2) & "#"
T2 = CDate(sD2)
If M1 > M2 Then
   If D1 > D2 Then   'M1 > M2   
      hD = DateTime.DaysInMonth(Y1, M1)
      Dday = DateTime.DaysInMonth(Y1, M1) - D1 + D2
      Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * (DateDiff(DateInterval.Year, T1, T2) - 1) - 1
      Dy = DateDiff(DateInterval.Year, T1, T2) - 1
    Else  'M1 > M2  D1<D2  
      Dday = D2 - D1
      Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * (DateDiff(DateInterval.Year, T1, T2) - 1)
      Dy = DateDiff(DateInterval.Year, T1, T2) - 1
    End If
Else  'M1<M2  D1>D2  
    If D1 > D2 Then
       hD = DateTime.DaysInMonth(Y1, M1)
       Dday = DateTime.DaysInMonth(Y1, M1) - D1 + D2
       If M1 = M2 Then
           Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * (DateDiff(DateInterval.Year, T1, T2) - 1) - 1
           Dy = DateDiff(DateInterval.Year, T1, T2) - 1
       Else
           Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * DateDiff(DateInterval.Year, T1, T2) - 1
           Dy = DateDiff(DateInterval.Year, T1, T2)
       End If
    Else 'M1 < M2   D1 < D2  
       Dday = D2 - D1
       Dmon = DateDiff(DateInterval.Month, T1, T2) - 12 * DateDiff(DateInterval.Year, T1, T2)
       Dy = DateDiff(DateInterval.Year, T1, T2)      
    End If
End If
MsgBox("Всего осталось: " & CStr(Dy) & " лет, " & CStr(Dmon) & " месяцев, " & CStr(Dday) & " дней")
End Sub
Private Sub cmbMonth1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbMonth1.SelectedIndexChanged
     nmbDay1.Maximum = DateTime.DaysInMonth(Y1, M1)
     If nmbDay1.Value > nmbDay1.Maximum Then nmbDay1.Value = nmbDay1.Maximum
End Sub 
Private Sub cmbMonth2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbMonth2.SelectedIndexChanged
     nmbDay2.Maximum = DateTime.DaysInMonth(Y2, M2)
     If nmbDay2.Value > nmbDay2.Maximum Then nmbDay2.Value = nmbDay2.Maximum 
End Sub
End Class

Добавлено через 15 минут
Ещё погонял в разных комбинациях - больше не увидел дефектов и не доработок.
Этот алгоритм хорош тем, что быстро считает.

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@Ирина126 0 / 0 / 0 Регистрация: 14.10.2019 Сообщений: 24

	Определить, сколько дней осталось до экзамена, до защиты диплома (в днях, годах, месяцах, часах, минутах) 21.10.2019, 10:29. Показов 4180. Ответов 39 Метки нет (Все метки) Определить, сколько дней осталось до экзамена, до защиты диплома (в днях, годах, месяцах, часах, минутах) 0

@MrCrown 1550 / 1527 / 325 Регистрация: 03.10.2012 Сообщений: 1,558
	29.10.2019, 12:48
	Ребят, вот смотрю я на вас уже вторую неделю и всё жду, когда же вы, наконец, поймёте, что задача в таком виде не имеет решения (точного решения). Всё дело в том, что количество дней в месяце непостоянно, и может быть 28, 29, 30 и 31.Это вы конечно понимаете, но продолжаете с завидным упорством стучаться в закрытую дверь. Поясню на примере. Возьмём две даты (поближе друг к другу, чтобы можно было посчитать на пальцах). 05.01.2019 и 20.03.2019. Здесь мы имеем интервал из 26 дней января, полного февраля и 20 дней марта. Итого: 1 месяц и 46 дней. Фактически - это 2 месяца и сколько-то дней. Но сколько? 18 (46-28)? 17? 16? 15? В .NET есть структура TimeSpan. Она считает интервалы времени только в днях, часах, минутах... именно по этой причине. "Не дураки сидят, верно да?" (А.Райкин). В принципе, можно считать, что задача решена, но с допущением, что количество дней в абстрактном месяце равно 31. P.S. Мне пора, пожалуй, вступать в сообщество зануд 0

@Gilford 92 / 74 / 24 Регистрация: 31.03.2013 Сообщений: 257
	29.10.2019, 15:21
	MrCrown, ну задача про другое. Я понял как: 05.01.2019 - 20.03.2019 Получается 2 месяца и 15 дней. Просто сразу убираем 28/30/31 дней. И вот получается, что задача уже решаема. А год подсчитать можно просто разделив 365 (правда без високосного... хм) 0

@Orlangur Лень — мое второе и 3231 / 2418 / 688 Регистрация: 28.11.2014 Сообщений: 3,603 Записей в блоге: 3
	29.10.2019, 15:28
	Не, ну как же, мы можем пойти по тёмному пути и к одной дате добавлять по минуте, попутно считая сколько прошло минут, часов, дней, месяцев, лет Точно, но долго 0

@Тим70 Любитель 1054 / 764 / 161 Регистрация: 27.01.2019 Сообщений: 1,543
	29.10.2019, 15:52
	A_Qz, У вас очень удобный ввод данных 0

@MrCrown 1550 / 1527 / 325 Регистрация: 03.10.2012 Сообщений: 1,558
	29.10.2019, 15:59
	Orlangur1991, это ничего не меняет. Всё равно нужно принять допущение, что условный месяц, который получился сложением числа дней из двух других месяцев (примерно половина случаев), состоит из 31 дня. (Почему не 30 или 28 ?). В вашем коде вы делаете такое допущение, беря последний вычисляемый месяц. 0

@Orlangur Лень — мое второе и 3231 / 2418 / 688 Регистрация: 28.11.2014 Сообщений: 3,603 Записей в блоге: 3
	29.10.2019, 16:10
	MrCrown, не могу догнать можете привести примеры дат в которых это не сработает? 0

@Orlangur Лень — мое второе и 3231 / 2418 / 688 Регистрация: 28.11.2014 Сообщений: 3,603 Записей в блоге: 3
	29.10.2019, 16:48
	MrCrown, Но ведь я просто иду от первой даты до второй по минутам, попутно увеличивая количество пройденных часов, дней, месяцев, лет, причем тут условный месяц? 0

@MrCrown 1550 / 1527 / 325 Регистрация: 03.10.2012 Сообщений: 1,558
	31.10.2019, 13:35
	A_Qz, вы опять меня не поняли. Здесь речь не идёт о точности до миллисекунд, а о неоднозначности результата, который вы получаете в формате месяцы/дни. В некоторых диапазонах вы получите один из четырёх правильных результатов. Посмотрите на мой корявый рисунок. В диапазоне от 05.01 до 20.03 мы имеем один полный месяц и 46 дней, полученных по сумме оставшейся части января и части марта. Разумеется мы можем считать эти 46 дней как месяц и сколько то дней (я уже повторяюсь). Но как применить к этому "условному" месяцу функцию DaysInMonth? ведь он не имеет названия. Ваш код считает, что в нём 31 день(т.е. в последнем вычисляемом, в данном случае в марте). Но это не корректно, и здесь принципиальная ошибка, т.к. в месяце бывает и 30 дней, т.е. в каком-то другом диапазоне, код вычтет 30 дней, или 28. Я не имею претензий к вашему коду, я в него даже не вникал, это бессмысленно, некорректно само условие задачи. В общем, я устал уже толочь воду в ступе, мне нечего больше добавить к вышесказанному. Выхожу из темы. 0