¿Hoy está entre dos fechas?: calendario celta

[Bravenap]

Bueno, ya está resuelto. Costó, costó:

Código:

        Dim mesesNormales() As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
        Dim mesesCeltas() As String = {"Abedul", "Serbal", "Fresno", "Aliso", "Sauce", "Espino", "Roble", "Acebo", "Avellano", "Madreselva", "Hiedra", "Carrizo", "Saúco"}
        Dim intervalosCeltas() As String = {"24/12", "21/01", "18/02", "18/03", "15/04", "13/05", "10/06", "08/07", "05/08", "01/09", "30/09", "28/10", "25/11"}
        Dim hoy As Date = Today
        Dim ano As Integer
        If hoy.Day >= 24 And hoy.Month = 12 Then
            ano = hoy.Year + 1
            intervalosCeltas(0) += "/" & ano - 1
        Else
            ano = hoy.Year
            intervalosCeltas(0) += "/" & ano
        End If
        For i = 1 To intervalosCeltas.Length - 1
            intervalosCeltas(i) += "/" & ano
        Next
        For i = 0 To intervalosCeltas.Length - 2
            If (hoy >= intervalosCeltas(i) And hoy < intervalosCeltas(i + 1)) = True Then
                strMesCelta = mesesCeltas(i)
                Dim iniInter() As String = intervalosCeltas(i).Split("/")
                Dim finInter() As String = intervalosCeltas(i + 1).Split("/")
                strInterMesCelta = iniInter(0) & " de " & mesesNormales(iniInter(1) - 1) & " al " & finInter(0) & " de " & mesesNormales(finInter(1) - 1)
                Exit For
            End If
        Next
        i = intervalosCeltas.Length - 1
        If (hoy >= intervalosCeltas(i) And hoy < intervalosCeltas(0)) = True Then
            strMesCelta = mesesCeltas(i)
            Dim iniInter() As String = intervalosCeltas(i).Split("/")
            Dim finInter() As String = intervalosCeltas(0).Split("/")
            strInterMesCelta = iniInter(0) & " de " & mesesNormales(iniInter(1) - 1) & " al " & finInter(0) & " de " & mesesNormales(finInter(1) - 1)
        End If

Seguro que hay una forma sencillísima, pero bueno, ya está hecho.

Un saludo.