Anonymous

Function ConvertInventoryDate(ByVal Year As Short, ByVal Day As Short) As String
        Dim JanDays As Short = 31
        Dim FebDays As Short = 28
        Dim MarDays As Short = 31
        Dim AprDays As Short = 30
        Dim MayDays As Short = 31
        Dim JuneDays As Short = 30
        Dim JulyDays As Short = 31
        Dim AugDays As Short = 31
        Dim SeptDays As Short = 30
        Dim OctDays As Short = 31
        Dim NovDays As Short = 31
        Dim DecDays As Short = 31
        Dim Month As String = "January"
        Dim DayOfMonth As Short
        'If Year = 4 Or Year = 8 Then
        '    FebDays = 29
        '    LeapYear = True
        'Else
        '    FebDays = 28
        '    LeapYear = False
        'End If
        If Day > JanDays And Day <= JanDays + FebDays Then
            Month = "February"
            DayOfMonth = Day - JanDays
        ElseIf Day > JanDays + FebDays And Day <= JanDays + FebDays + MarDays Then
            Month = "March"
            DayOfMonth = Day - (JanDays + FebDays)
        ElseIf Day > JanDays + FebDays + MarDays And Day <= JanDays + FebDays + MarDays + AprDays Then
            Month = "April"
            DayOfMonth = Day - (JanDays + FebDays + MarDays)
        ElseIf Day > JanDays + FebDays + MarDays + AprDays And Day <= JanDays + FebDays + MarDays + AprDays + JuneDays Then
            Month = "June"
            DayOfMonth = Day - (JanDays + FebDays + MarDays + AprDays)
        ElseIf Day > JanDays + FebDays + MarDays + AprDays + JuneDays And Day <= JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays Then
            Month = "July"
            DayOfMonth = Day - (JanDays + FebDays + MarDays + AprDays + JuneDays)
        ElseIf Day > JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays And Day <= JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays Then
            Month = "August"
            DayOfMonth = Day - (JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays)
        ElseIf Day > JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays And Day <= JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays Then
            Month = "September"
            DayOfMonth = Day - (JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays)
        ElseIf Day > JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays And Day <= JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays + OctDays Then
            Month = "October"
            DayOfMonth = Day - (JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays)
        ElseIf Day > JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays + OctDays And Day <= JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays + OctDays + NovDays Then
            Month = "November"
            DayOfMonth = Day - (JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays + OctDays)
        ElseIf Day > JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays + OctDays + NovDays And Day <= (JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays + OctDays + NovDays + DecDays) Then
            Month = "December"
            DayOfMonth = Day - (JanDays + FebDays + MarDays + AprDays + JuneDays + JulyDays + AugDays + SeptDays + OctDays + NovDays)
        Else : Month = "January"
            DayOfMonth = Day
        End If
        Return Month & " " & DayOfMonth.ToString & ", " & (Year + 2000).ToString
    End Function