Private Function sSection() As String
Dim bytFirstDay As Byte
 
If GetSetting("Inter.net Control", "Options", "CountPerMonth", 0) Then _
 bytFirstDay = GetSetting("Inter.net Control", "Options", "FirstDay", 1)
 
 If bytFirstDay <> 1 Then
 
  Select Case Month(Now)
  Case 1
   If Day(Now) < 16 Then
    sSection = Right(Year(Now), 2) & _
               "01" & "02"
   Else
    sSection = Right(Year(Now) - 1, 2) & _
               "12" & "01"
   End If
 
  Case 12
   If Day(Now) < 16 Then
    sSection = Right(Year(Now), 2) & _
               Format$(Month(Now) - 1, "00") & _
               Format$(Month(Now), "00")
   Else
    sSection = Right(Year(Now), 2) & _
               "01" & "02"
   End If
 
  Case Else
   If Day(Now) > 16 Then
    sSection = Right(Year(Now), 2) & _
               Format$(Month(Now), "00") & _
               Format$(Month(Now) + 1, "00")
 
   Else
    sSection = Right(Year(Now), 2) & _
               Format$(Month(Now) - 1, "00") & _
               Format$(Month(Now), "00")
 
   End If
 End Select
 
 Else
  sSection = Right(Year(Now), 2) & _
             Format(Month(Now), "00")
 End If
End Function