hour(...)
minute(...)
second(...)

JohnSНапример Hour(4.01143518518492) =0 . Что то не то !!!!
Всё то. Это 0 часов 16 минут 28 секунд 3 января 1900 года.

Iskander68H = Fix(N)
M = (N - Fix(H)) * 60
S = (M - Fix(M)) * 60

DoubleToTime = Fix(H) & ": " & Fix(M) & ":" & CInt(S)
Того же можно достичь гораздо проще:
format(4.01143518518492,"hh:nn:ss")

Iskander68debug.Print doubletotime(4.01143518518492)
4:0:41
Значит, эта функция работает неправильно. Целая часть (в данном случае 4) - это дни.

JohnSЯ запутался в конец , если сложить например поле Time за месяц то получается что находится в целой части за время не считается !!!
Разумеется. Целая часть, как было сказано выше, - это целые дни.

Iskander68ВС, функция работает так, как было задумано: просто я понял так, что задача
"в запросе преобразовать в часы\мин\сек" - найти сумму промежутков, а не
дату/время.
Но функция принимает один параметр. Каким образом она вычисляет сумму?

Iskander68Описка. Не сумму, а просто принимает аргумент как промежуток, а не точку во
времени.
Но способ кодировки времени от этого не зависит.

Iskander68ВС, пардон за занудство, но нету у меня там дней! Только часы, минуты и
секунды! Я исходил из того, что в поле были записаны часы в десятичных
дробях - отсюда и взаимонепонимание. Если целая часть - дни (что вероятнее
всего) тогда, ессно моя функция ни причем, будет погоду показывать. Если
целая часть - часы, тогда все нормально с ней. Автор не указал, что ему
нужно перевести в дни, часы и т.д. а только в часы и т.д.
Я тоже пардон за занудство.

Стандартный способ хранения дат/времен в Аксессе - это дни как целая часть и остальное как дробная. Если автор вопроса придерживается другого способа, то он был бы должен это указать и описать этот способ , ибо других способов можно придумать много разных . Я исходил из того, что речь о стандартном способе.