¿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"