Loop текстовые поля и ячейки

Question

Мне нужна помощь, чтобы сделать этот код короче. (См. Ниже) У меня есть много текстовых полей со временем в моей форме, которые я хочу скопировать в файл Excel. Некоторые из полей должны были быть на 15 минут меньше в листе Excel, и я хотите зациклить эти текстовые поля и скопировать результат в правильную ячейку. Мой код работает, но я хочу сделать это для большего количества текстовых полей одновременно.

Тпй

    Dim d1re1 As Date = TextBox5.Text
    TextBox5.Text = d1re1.ToLongTimeString()
    Dim d1nre1 As Date = d1re1.AddMinutes(-15)
    xlsp1.Cells(7, 100) = d1nre1.ToLongTimeString


    Dim d1re2 As Date = TextBox7.Text
    TextBox7.Text = d1re2.ToLongTimeString()
    Dim d1nre2 As Date = d1re2.AddMinutes(-15)
    xlsp1.Cells(7, 102) = d1nre2.ToLongTimeString

Answer 1

Идея здесь в том, что линии как-то делают одинаково, но с разными параметрами. Здесь функции входят в картину. Вы можете просто создать универсальный метод, вызывая его для ex: SetDateToFieldscand принимает параметры: исходное текстовое поле и какую ячейку нужно обновить.

Таким образом, вам нужно всего лишь вызвать метод с разными параметрами.