Строковый календарь в университет

@DoctorWV · Регистрация: 18.03.2017

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

Из строки, содержащей корректно заданную дату в формате "dd.mm.yy", где dd – день, mm – месяц, yy – год, получите строку с датой, отстоящей от заданной на n дней назад, в том же формате.

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

Тема- строки, нельзя решать задачу другими способами.

Найденный код:

PureBasic

 Sub obrabotka(ByVal Str1 As String, ByVal n As Integer, ByRef Str2 As String)
        Dim month1, month, year, x, y, z As Integer
        x = CInt(Mid(Str1, 1, 2)) 'дни
        y = CInt(Mid(Str1, 4, 2)) 'месяцы
        z = CInt(Mid(Str1, 7)) 'года
        year = (x + n) \ 360 'изменение года
        month = (x + n) \ 30 'изменение месяца
        If x + n < 31 Then
            Str2 = CStr(x + n) & Mid(Str1, 3)
        Else
            month1 = month + y
            While month1 > 12
                month1 = month1 - 12
            End While
            Str2 = CStr(Format(x + n - month * 30, "00")) & "." & CStr(Format(month1, "00")) & "." & CStr(Format(z + year, "00"))
        End If
    End Sub

@ViterAlex · 18.03.2017, 21:01

VB.NET

Sub obrabotka(ByVal Str1 As String, ByVal n As Integer, ByRef Str2 As String)
    Dim _date As DateTime = DateTime.Parse(Str1)
    Str2 = _date.AddDays(-n).ToString("dd.mm.yy")
End Sub

	18.03.2017, 21:01

Строковый календарь в университет

Решение