vb calcular calendario lunar

El código también está disponible en línea. El siguiente es mi código modificado sin comentarios

Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName( 30) , MonName(12)

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim GongliStr, WeekdayStr, NongliStr, NongliMonStr, NongliDayStr

Dim i , m , n, k, isEnd, bit, TheDayStr(12)

Dim isEnd, bit, TheDate

Función pública wYear(curTime como fecha, YearOrDay como entero)

'curTime pasa la fecha a convertir, YearOrDay es el contenido que se generará

'El valor de YearOrDay es 0=YearMonthDay,1=Solo año lunar,2=Solo mes-día,3=Vacaciones lunares

' 4=Sólo mes, 5= Sólo día

'Obtener la hora actual del sistema

'curTime = CDate("2008-4-18")

'NombreSemana

NombreSemana (0) = " * "

NombreSemana(1) = "Domingo"

NombreSemana(2) = "Lunes"

NombreSemana(3) = "Martes"

NombreSemana(4) = "Miércoles"

NombreSemana(5) = "Jueves"< / p>

Nombre de la Semana(6) = "Viernes"

Nombre de la Semana(7)="Sábado"

Nombre del Tallo Celestial

Tallo Celestial( 0) ="A"

Vástago celestial (1)="B"

Vástago celestial (2)="C"