как написать на vba стандарные функции excel

[ibrahimov]

Может кто-то знает как можно на vba написать такие стандартные функции экселя как
ДОЛЯГОДА (у меня даты почему-то как-то неправильно вычитаются, как если бы я использовал эту стандартную функцию)
СУММ (не знаю как сделать так, что бы количество аргументов функции не было фиксированным)

Мне нужно не коды программ функций, а знать как решить те проблеммы, которые я указал в круглых скобках

[Sasha_Smirnov]

http://www.proklondike.com/contentview.php?content=487

Там в том числе много полезного про работу с датами и массивами.

В частности, для суммирования чисел можно использовать динамический массив. А, например, для Word существует конструкция
Selection.Calculate,
возвращающая (в переменную) СУММУ чисел из выделенного вами фрагмента текста (при этом дробные числа — через точку, если не ошибаюсь).

[Sasha_Smirnov]

Уточню: при языке "Английский" в региональных стандартах.
При языке "Русский", "Французский" и нек. других
Selection.Calculate
считает дробными числа с запятой (а не с точкой) внутри.

[Sasha_Smirnov]

Вот пример: здесь функция SummaChisel — с*переменным количеством аргументов. Пример отлажен.

Option Explicit
Sub AnyProg()
MsgBox "Сумма чисел = " & SummaChisel(-1, -2, 3, 0.5)
End Sub


Function SummaChisel(ParamArray m() As Variant)
Dim i As Long
For i = 0 To UBound(m)
SummaChisel = SummaChisel + m(i)
Next
End Function

[Sasha_Smirnov]

Примечание. MsgBox выдаёт здесь (вы не поверите...):
"Сумма чисел = 0.5"