'=ColTime(Time1;Time2;Startrange;Endrange;GetTotalNumber)

'Startrange er området for møde*tider*.

'Endrange er området for "gå-hjem" *tider*.

'Time1 og Time2 er intervallet, der ønskes undersøgt. Højst 24 timer!

'Time1 og Time2 er cellereferencer til tider (18:15)

'eller funktionen TID(18;15;) indtastet direkte

'GetTotalNumber er valgfri (1 or 0 (standard)). Hvis den

'sættes til 1(én). returnerer funktionen det antal gange

'det søgte interval findes.

'Fra regnearket:

' =ColTime($F$2;$G$2;A2;C2)

'hvor fx F2=22:00 og G2=7:00

' =ColTime(TID(22;;);TID(7;;);A2;C2)

'Træk cellen ned med fyld-håndtaget

'Eller akkumuleret:

' =ColTime(F2;G2;A2:A100;C2:C100)

'hvor fx F2=22:00 og G2=7:00

' =ColTime(TID(22;;);TID(7;;);A2:A100;C2:C100)

'I denne situation er det ikke tilladt at have

'tomme celler omgivet af celler med indhold

'i A2:A100 og C2:C100

'

Public Function ColTime(Time1 As Double, _

Time2 As Double, StartRange As Object, _

Endrange As Object, _

Optional GetTotalNumber As Boolean) As Double

'leo heuser,May 1999/January 2002

Dim Cel As Object

Dim Dummy As Double

Dim EndTime As Double

Dim OffsetColumn As Long

Dim OffsetRow As Long

Dim StartTime As Double

Dim SubTime As Double

Dim TotalNumber As Long