Перемножение полей минуты/секунды в Excel - VB

Узнай цену своей работы

Формулировка задачи:

Есть, например значение в формате 'минуты:секунды', допустим - 315:99. Так? И есть стоимость 1-ой минуты - 0,42 коп. Можно ли умножить первое на второе и как ? Второй вопрос: в таблице Exel есть две колонки: первая - Ф.И.О., вторая - Сумма. На другом листе есть тоже две колонки, например, Ф.И.О. и Сумма_Итого. В первой таблице, как понимаете, значения Ф.И.О. могут повторяться немеренно раз, изменяться могут только суммы. А на втором листе по каждой из Ф.И.О. должна заноситься сумма всех сумм по одной фамилии. Чё-то путанно объяснил, ну может кто поймёт. На VFP 6.0 обэяснил бы, да незачем - сам знаю. Это ведь я придуряюсь Ламером, так-то я вообще-то программер на VFP 6.0 b Delfi 5.0+немножко администратор узла Интернет. Хотя в VB&VBA действительно ламер. Куда деваться? Хочу и его узнать. Спасибо. ZandR P.S. Кому если вдруг что надо по Delfi или по VFP, а может даже и просто по FoxPro 2.* - звоните. № одиги (аськи не имею, потомук как одига больше нравиться) - 3387787; Nik - Zavi© Жду. И ещё раз спасибо.

Решение задачи: «Перемножение полей минуты/секунды в Excel»

textual
Листинг программы
Private Sub Obrabotka ()
Dim i1, i2, max1, max2 As Integer
Dim FlagFIO As Boolean
 
max1 = 'макс номер записи в FIO1, SUM1
For i1 = 0 to max1
FlagFIO = True
If max2 <> 0 Then
For i2 = 0 to max2
If FIO1(i1) = FIO2(i2) Then 'добавляем только сумму 
SUM2 (i2) = SUM2 (i2) + SUM1 (i1) 
FlagFIO = False
End If
Next
End If
If FlagFIO Then 'добавляем новую запись целиком
max2 = max2 + 1
FIO2(max2) = FIO1(i1)
SUM2(max2) = SUM1(i1)
End If
Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.2 из 5