View Single Post
  #5   Report Post  
Mike Echo
 
Posts: n/a
Default

In article ,
says...

Public Function NumSamples(total_containers As Long, _
skip_rate As Long) As Long
Dim nTemp As Long
If total_containers <= 2 Then
nTemp = total_containers
Else
nTemp = (total_containers - 1) \ skip_rate + 1 - _
((total_containers - 1) Mod skip_rate 0)
End If
NumSamples = nTemp
End Function


Thank you very much, J. E. I don't understand the thing but it works
perfectly. :-)