Database

Option Explicit

Public Function ZodiacPeriod(dteInputDate)
    Dim dteStart As Date
    Dim dteEnd As Date
    Dim intDateCount As Integer
    Dim intRow As Integer
    Dim intColumn As Integer
    Dim intX As Integer
    Dim intCounter As Integer
    Dim intYear As Integer
    Dim arrArray(3290, 1)
    
    dteStart = #12/30/2007#
    dteEnd = #12/31/2016#
    intDateCount = DateDiff("d", dteStart, dteEnd)
    
    For intRow = 0 To intDateCount
        arrArray(intRow, intColumn) = dteStart
        dteStart = dteStart + 1
    Next
    
    intX = 1
    intCounter = 1
    
    For intRow = 0 To 3290
        arrArray(intRow, 1) = intX
        If (Year(arrArray(intRow, 0)) = 2009) Or _
            (Year(arrArray(intRow, 0)) = 2015) Then
            If (Month(arrArray(intRow, 0)) = 12) Then
                If intCounter <= 35 Then
                    If intX >= 14 Then
                        intX = 1
                    End If
                    intCounter = intCounter + 1
                Else
                    intX = intX + 1
                    intCounter = 1
                End If
            Else
                If intCounter <= 27 Then
                    If intX >= 14 Then
                        intX = 1
                    End If
                    intCounter = intCounter + 1
                Else
                    intX = intX + 1
                    intCounter = 1
                End If
            End If
        Else
            ' Normal processing
            If intCounter <= 27 Then
                If intX >= 14 Then
                    'What follows after 28th value of 13.
                    intX = 1
                End If
                'What follow the first cell formula is applied to
                intCounter = intCounter + 1
            Else
                intX = intX + 1
                intCounter = 1
            End If
        End If
    Next intRow

    'Now to go through the array and return the value
    For intRow = 0 To 3290
        If arrArray(intRow, 0) = dteInputDate Then
            ZodiacPeriod = arrArray(intRow, 1)
            Exit For
        End If
    Next intRow


End Function

create table tariff
( 
	tariffid int identity,
	tariffdate smalldatetime,
	tariff int
)

select max(tariffid) from tariff where '20090501' > tariffdate

A connection was successfully established with the server,
but then an error occured during the pre-login handshake.
(Provider:TCP provider, error 0 - The specified network
name is no longer available) Source: .NET sqlclient Data Provider