Red de conocimiento informático - Aprendizaje de programación - ¿Qué fórmula utiliza Excel para mostrar el tiempo como un calendario lunar?

¿Qué fórmula utiliza Excel para mostrar el tiempo como un calendario lunar?

1, VBA

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

Atenuar curTime,

Atenuar CurTime, CurYear, CurMonth, CurDay, CurWeekday

Atenuar GongliStr, WeekdayStr, NongliStr, NongliDayStr

Atenuar i, m, n, k, isEnd, bit,

Private Sub Form_Load()

'Obtener la hora actual del sistema

curTime = Now()

'NombreSemana

NombreSemana(0) = " * "

NombreSemana(1) = "Domingo"

NombreSemana(2) = "Lunes"

Nombre de la Semana(3) = "Martes"