ник: bel
Делаю запрос такой запрос:
SELECT [Информационная записка].ФИО, [Информационная записка].Зап1или2, dhCTimeStr(Sum(dhCMinutes([КолЧас]))) AS КолЧас5
FROM [Информационная записка]
GROUP BY [Информационная записка].ФИО, [Информационная записка].Зап1или2
HAVING ((([Информационная записка].Зап1или2)="1"));
И модуль:
Declare Function GetProfileString Lib "kernel32.dll" Alias "GetProfileStringA" _
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long) As Long
Function dhCMinutes(dtmTime As Date) As Long
dhCMinutes = TimeValue(dtmTime) * 24 * 60
End Function
Function dhCTimeStr(lngMinutes As Long) As String
dhCTimeStr = Format(lngMinutes \ 60, "0") & _
GetTimeDelimiter() & Format(lngMinutes Mod 60, "00")
End Function
Private Function GetTimeDelimiter() As String
Const conMaxSize = 10
Dim strBuffer As String
Dim intLen As Integer
strBuffer = Space(conMaxSize)
intLen = GetProfileString("intl", "sTime", "", strBuffer, conMaxSize)
GetTimeDelimiter = Left(strBuffer, intLen)
End Function
И почему-то не работает 