¿Cómo hacer un calendario perpetuo con VB?

Darle un código fuente de VB para el calendario lunar.

curTime = MaskEdBox1

Nombre de esta semana

WeekName(0) = " * "

WeekName(1) = "Domingo "

Nombre de la Semana(2) = "Lunes"

Nombre de la Semana(3) = "Martes"

Nombre de la Semana(4) = "Miércoles"

Nombre de la Semana(5) = "Jueves"

Nombre de la Semana(6) = "Viernes"

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

Nombre de Celestial Vástago

Vástago celestial(0) = "一"

Vástago celestial(1) = "B"

Vástago celestial(2) = "B"< /p >

Vástago del Cielo(3) = "Ding"

Vástago del Cielo(4) = "E"

Vástago del Cielo(5) = "Ji"

Tallo Celestial (6) = "Geng"

Tallo Celestial (7) = "Corazón"

Tallo Celestial (8) = "Ren"

Tallos Celestiales (9) = " "Gui"

Nombre de la Rama Terrenal

Rama directa (0) = "子"

Di Zhi (1 ) = "Chou"

Di Zhi(2) = "Yin"

Di Zhi(3) = "Mao"

Di Zhi(4) = "Chen"

Di Zhi(3) = "Mao"

Di Zhi(4) = "Chen"

Di Zhi (5) = "Sí "

Di Zhi (6) = "Mediodía"

Pregunta 7) = "No"

Dizhi (8) = "Shen"

Rama Difícil (9) = "Tú"

Di Zhi (10) = "Xu"

Di Zhi (11) = " "Mar"

Nombre de la constelación de animales

Libruco (0) = "Rata"

Libruco (1) = "Buey"

Libruco (2) = "Tigre "

Libro (3) = "Conejo"

Libro (4) = "Dragón"

Libro (5) = " "Serpiente"

Erudito (6) = "Caballo"

Erudito (7) = "Oveja"

Erudito (8) = "Mono"

Afición a los libros (9) = "Pollo"

Afición a los libros (10) = "Perro"

Afición a los libros (11) = "Cerdo"

Nombre de la fecha del calendario lunar

NombreDía(0) = "* "

NombreDía(1) = "Primer Grado"

NombreDía(2) = "Nivel 2 "

NombreDía(3) = "Tercer Grado"

NombreDía(4) = "Cuarto Nivel"

NombreDía(5) = "Quinto Día"

DayName(6) = "El sexto día"

DayName(7) = "El séptimo día"

nombre del día(8) = "Nivel 8"

DayName(9) = "El noveno día"

DayName(10) = "El décimo día"

DayName(11) = "Undécimo día" "

NombreDía(12) = "Doce"

NombreDía(13) = "Trece"

NombreDía(14) = "14 "

NombreDía(15 ) = "15"

NombreDía(16) = "Dieciséis"

NombreDía(17) = "Diecisiete"

NombreDía(18) = "18 "

NombreDía(19) = "Diecinueve"

NombreDía(20) = "Veinte "

Nombre del día(21) = "21 "<

/p>

NombreDía(22) = "22 "

NombreDía(23) = "23 "

NombreDía(24) = "24 "

NombreDía(25) = "25 "

NombreDía(26) = "26 "

NombreDía(27) = "27 "

NombreDía(28) = "28 "

NombreDía(29) = "29 "

NombreDía(30) = "Treinta"

Nombre del mes lunar

MonName(0) = "* "

MonName(1) = "positivo"

MonName(2) = "dos "

MonName(3 ) = "tres"

MonName(4) = "cuatro"

MonName(5) = "cinco "

MonName(6) = "seis "

MonName(7) = "siete"

MonName(8) = "ocho"

MonName(9) = "九"

MonName(10) = "十"

MonName(11) = "Eleven"

MonName(12) = "La "

En el calendario gregoriano Los primeros días de cada mes

MonthAdd(0) = 0

mes addd(1)= 31

MonthAdd(2) = 59

AñadirMes(3) = 90

AgregarMes(4) = 120

AgregarMes(5) = 151

mesagregar(6)= 181

AñadirMes(7) = 212

AgregarMes(8) = 243

AgregarMes(9) = 273

mesagregar(10 )= 304

mes agregado(11)= 334

Datos lunares

NongliData(0) = 2635

NongliData(1) = 333387

NongliData(2) = 1701

NongliData(3) = 1748

NongliData(4) = 267701

NongliData( 5) = 694

NongliData(6) = 2391

NongliData(7) = 133423

NongliData(8) = 1175

NongliData(9) = 396438

NongliData(10) = 3402

NongliData(11)= 3749

NongliData(12)= 331177

NongliData(13)= 1453

NongliData(14) = 694

NongliData(15)= 201326

NongliData(16) = 2350

NongliData(17)= 465197

NongliDat

a(18)= 3221

NongliData(19) = 3402

NongliData(20) = 400202

NongliData(21)= 2901

NongliData(22) = 1386

NongliData(23)= 267611

NongliData(24) = 605

NongliData(25) = 2349

NongliData(26)= 137515

NongliData(27) = 2709

NongliData(28) = 464533

NongliData(29) = 1738

NongliData(30) = 2901

NongliData(31)= 330421

NongliData(32) = 1242

NongliData(33) = 2651

NongliData(34) = 199255

NongliData(35) = 1323

NongliData(36) = 529706

NongliData(37 ) = 3733

NongliData(38) = 1706

NongliData(39) = 398762

NongliData(40) = 2741

NongliData (41)= 1206

NongliData(42) = 267438

NongliData(43) = 2647

NongliData(44)= 1318

NongliData(45) = 204070

NongliData(46) = 3477

NongliData(47) = 461653

NongliData(48) = 1386

NongliData(49) = 2413

NongliData(50) = 330077

NongliData(51) = 1197

NongliData(52) = 2637

NongliData(53) = 268877

NongliData(54) = 3365

NongliData(55) = 531109

NongliData(56) = 2900

NongliData(57) = 2922

NongliData(58) = 398042

NongliData(59) = 2395

NongliData(60) = 1179

NongliData(61)= 267415

NongliData(62) = 2635

NongliData(63) = 661067

NongliData( 64)= 1701

NongliData(65) = 1748

NongliData(66) = 398772

NongliData(67)

= 2742

NongliData(68) = 2391

NongliData(69) = 330031

NongliData(70)= 1175

NongliData( 71)= 1611

NongliData(72) = 200010

NongliData(73) = 3749

NongliData(74) = 527717

NongliData(75) = 1452

NongliData(76) = 2742

NongliData(77) = 332397

NongliData(78) = 2350

NongliData(79) = 3222

NongliData(80) = 268949

NongliData(81) = 3402

NongliData(82) = 3493

NongliData(83) = 133973

NongliData(84) = 1386

NongliData(85) = 464219

NongliData(86) = 605

NongliData(87) = 2349

NongliData(88) = 334123

NongliData(89) = 2709

NongliData(90) = 2890

NongliData(91) = 267946

NongliData(92) = 2773

NongliData(93) = 592565

NongliData(94 )= 1210

NongliData(95) = 2651

NongliData(96) = 395863

NongliData(97) = 1323

NongliData (98) = 2707

NongliData(99) = 265877

Generar el año, mes y día del calendario gregoriano actual = = gtGong Lister

curYear = Año ( curTime)

curMonth =mes(curTime)

curDay = Día(curTime)

GongliStr = curYear amp"año"

Si curMonth lt entonces 10

Gong liStr = Gong GongliStr amp0 amp Ke Yue amp "Moon"

Otro

Gong liStr = Gong GongliStr amp Ke Yue amp; "Luna"

Terminará si...

Si curDay lt entonces 10

Gong liStr = Gong GongliStr amp0 amp curDay amp "日"< /p >

Otros

GongliStr = GongliStr ampcurDay amp"日"

Terminará si...

Generar la semana actual del calendario gregoriano = = gt día laborable Str

curWeekday = día laborable (c

urTime)

WeekdayStr = WeekName(curWeekday)

Hora de inicio 1921 Número de días desde el 8 de febrero: 1921-2-8 (el primer día del primer mes lunar).

la fecha =(cur año-1921)* 365 Int((cur año-1921)/4) curDay mes agregar(cur mes-1)-38

Si curYear Mod 4 = 0 y curMonth gt2 entonces

Fecha = fecha 1

Terminará si...

Calcula el zodíaco, mes y día del calendario lunar.

isEnd = 0

m = 0

Hacer

si NongliData(m) lt entonces 4095

< p; >k = 11

Otro

k = 12

Terminará si...

n = k

Hacer

Si n lt entonces 0

Salir de Do

Terminará si...

Obtiene el primero de NongliData(m) Valor de n bits binarios

bit = NongliData(m)

Para i = 1 a n pasos 1

bit = Int(bit / 2)

Entonces

bit = bit Mod 2

Si fecha lt = 29 bits

isEnd = 1

Exportar Hacer

Terminará si...

TheDate = TheDate - 29 dígitos

n = n - 1

Ring

Si isEnd = 1, entonces

Salir Do

Terminará si...

m = m 1

Anillo

curAño = 1921 m

curMes = k - n 1

curDía = LaFecha

Si k = 12 , entonces

Si curMonth =(Int(NongliData(m)/65536) 1), entonces

curMonth = 1 - curMonth

De lo contrario, curMonth gtint(NongliData (m)/65536) 1Entonces

curMonth = curMonth - 1

Terminará si...

Terminará si...

Generar los tallos celestes y las ramas terrestres del calendario lunar Signo zodiacal = = gtNon-list

NongliStr = "Año Nuevo Lunar" ((4 años) 60 días) 10 días); Di Zhi (((4 años) módulo 60) módulo 12);" Año "

NongliStr = NongliStr amp"(" amp书香(((4年)Mod 60)Mod 12);)"

Generar mes y día lunar ==> Non liDayStr

Si curMonth lt entonces 1

NongliDayStr = " jump " MonName(-1 * curMonth)<; /p>

Otro

NongliDayStr = MonName(curMonth)

Terminará si...

NongliDayStr = NongliDayStr amp "luna"

NongliDayStr = nombre del día del amplificador NongliDayStr

Label2 = amplificador NongliStr. No liDayStr