Функция Excel МИНУТЫ.

[Dante07]

Мне нужен приблизительный код данной функции на языке VBA с проверкой на ошибки..
Чтобы написано было не профессионалом а как будто студент писал - можно немного корявенький но чтоб работал правильно...
заранее спасибо)

[EducatedFool]

Чтобы написано было не профессионалом а как будто студент писал

так вот и попробуйте написать самостоятельно
хоть пару строк...
а мы подправим, если работать не будет

[Dante07]

Public Function Minutte(m As Variant) As Variant
Dim a As Integer
Dim d As Double
b = m / 0.000694444
a = b Mod 60
Minutte = a
End Function

вот чё я написал но тут не хватает проверок на ошибки штоб выдавала то же что и оригинальная функция

[Dante07]

помогите кто-нибудь(((

[Казанский]

Public Function Minutte(m As Variant) As Variant
Dim b
If m < 0 Then Minutte = CVErr(xlErrNum): Exit Function
b = (m - Int(m)) * 24 'часы
b = (b - Int(b)) * 60 'минуты
Minutte = Int(b)
End Function

Работает ПОЧТИ как встроенная функция, различия проявляются, если вводить дробные секунды, например 22:19:59,9
Встроенная функция округляет, наша - нет