Buscando código VB para calcular los 24 términos solares
¿Oscuro? S_Term(1?¿Dónde?24)?¿Como? Línea
¿Oscura? StInfo(1?¿Dónde?24)?¿Como? Largo
¿Oscuro? ¿y? ¿Como? Entero,? j? ¿Como? Entero,? k? ¿Como? Entero
¿Atenuado? ¿E(1)? ¿Como? ¿Dos veces más tenue
¿Oscuro? dtJ? ¿Como? Fecha
¿Oscuro? strJm? ¿Como? Cadena,? strJdAs? Línea
¿Oscura? ¿Strj? ¿Como? ¿Cadena? Fecha del término solar
Nombre del término solar
¿S_Term(1)? =?"Xiaohan"
S_Term(2)? =?"Gran Frío"
S_Term(3)? =?"El comienzo de la primavera"
S_Term(4)? =?"Lluvia"
S_Term(5)? =?"espina"
S_Term(6)? =?"Equinoccio de primavera"
S_Term(7)? =?"Qingming"
S_Term(8)? =?"Lluvia de granos"
S_Term(9)? =?"El largo verano"
S_Term(10)? =?"小满"
S_Term(11)? =?"awnseed"
S_Term(12)? =?"Solsticio de verano"
S_Term(13)? =?"Calor leve"
S_Term(14)? =?"Gran organización"
S_Term(15)? =?"El comienzo del otoño"
S_Term(16)? =?"Verano abrasador"
S_Term(17)? =?"Ciervo Blanco"
S_Term(18)? =?"Equinoccio de Otoño"
S_Term(19)? =?"Rocío Frío"
S_Term(20)? =?"Primera helada"
S_Term(21)? =?"El comienzo del invierno"
S_Term(22)? =?"Nievecita"
S_Term(23)? =?"Nieve intensa"
S_Term(24)? =?"Solsticio de invierno"
Información de términos solares
StInfo(1)? =?0
StInfo(2)? =?21208
StInfo(3)? =?42467
StInfo(4)? =?63836
StInfo(5)? =?85337
StInfo(6)? =?107014
StInfo(7)? =?128867
StInfo(8)? =?150921
StInfo(9)? =?173149
StInfo(10)? =?195551
StInfo(11)? =?218072
StInfo(12)? =?240693
StInfo(13)? =?263343
StInfo(14)? =?285989
StInfo(15)? =?308563
StInfo(16)? =?331033
StInfo(17)? =?353350
StInfo(18)? =?375494
StInfo(19)? =?397447
StInfo(20)? =?419210
StInfo(21)? =?440795
StInfo(22)? =?462224
StInfo(23)? =?483532
StInfo(24)? =?504758
y? =?Val(Izquierda(TempDate, 4)):?j? =?Val(Medio(TempD
comió, 6,?2)):?k? =?Val(Right(TempDate, 2))
¿Si? k? & lt=?15?Entonces
j? =?j? *?2?-?1
Otros
j? =?j? *?2
¿Fin? Si
E(0)? =?(31556925.9747?*?(y?-?1900)?+?StInfo(j)?*?60#)
E(1)? =?DateDiff("s ","1970-1-10:0","1900-1-62:5")?+?E(0)
E(0)? =?E(1)? /?2
dtJ? =?FechaAdd("s ",E(1)?-?E(0),?FechaAdd("s ",E(0),?"1970-1-11:18"))
dtJ? =?Año(dtJ)? y amplificador? "-"? y amplificador? ¿Mes(dtJ)? y amplificador? "-"? y amplificador? Día(dtJ)
¿Y si? (mes(dtJ)?<?10)?entonces
strJm? =?"0"?& amp? Mes(dtJ)
Otro
strJm? =?Mes(dtJ)
¿Fin? Si
¿Y si? (日(dtJ)?<?10)?Entonces
strJd? =?"0"?& amp? Día(dtJ)
Otros
strJd? =?日(dtJ)
¿Fin? Si
Strj? =?Formato (año(dtJ)?& amp?"-"?& amp?strJm?& amp?"-"?& amp?strJd,?" aaaa-mm-dd ")
Qi ¿Arrendajo? =?""
¿Y si? DateDiff("d ",Strj,?TempDate)? =?-2?¿Y entonces qué? ¿Qi Jie? ="Pasado mañana"? +?S_Term(j)? +?" términos solares"
¿Y si? DateDiff("d ",Strj,?TempDate)? =?-1? ¿Y entonces qué? ¿Qi Jie? ="Mañana"? +?S_Term(j)? +?" términos solares"
¿Y si? ¿Strj? =?Fecha temporal? ¿Entonces qué? ¿Qi Jie? =?"Hoy es"? +?S_Term(j)? +?"Solución"
¿Fin? Función