DateTime :: Evento :: Solarterm

Extensión de DateTime para calcular los términos solares
Descargar ahora

DateTime :: Evento :: Solarterm Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Daisuke Maki
  • Sitio web del editor:
  • http://search.cpan.org/~dmaki/

DateTime :: Evento :: Solarterm Etiquetas


DateTime :: Evento :: Solarterm Descripción

Extensión de DateTime para calcular los términos solares. Un calendario lunar tiene meses basados ​​en el ciclo lunar, que es de aproximadamente 29.5 días. Este ciclo no coincide con el ciclo del Sol, que es aproximadamente 365 días. Puede usar los meses de salto para alinear mejor el ciclo como en el calendario chino, pero eso sigue significa que los meses podrían estar apagados posiblemente un mes lunar. Esto fue inaceptable con fines agrícolas que está vinculada profundamente con la temporada, que a su vez está vinculada con el ciclo solar. Esto es donde se utilizan los términos solares. Independientemente de lo que sea el mes lunar, puede informar la temporada utilizando los términos solares. Los términosolares aún se utilizan en algunas partes de Asia, especialmente en China, donde las vacaciones principales deben calcularse en función de estos términos solares.Synopsis Use DateTime :: Event :: Solarterm; My $ MAORTOR_TERM = DateTime :: Evento :: Solarterm-> MAORTOR_TERM (); My $ DT0 = DateTime-> Nuevo (...); My $ Siguiente_major_term = $ MAORTOR_TERM-> Siguiente ($ DT0); My $ PREV_MAJOR_TERM = $ MAORTOR_TERM-> Anterior ($ DT0); My $ DT1 = DateTime-> Nuevo (...); My $ DT2 = DateTime-> Nuevo (...); My $ span = DateTime :: Span-> Nuevo (START => $ DT1, FIN => $ DT2); My $ SET = $ MAORTOR_TERM-> Intersección ($ span); My $ ITER = $ Set-> ITERATOR (); mientras (MY $ DT = $ ITER-> Siguiente) {Imprimir $ dt-> DateTime, " ";} My $ Minor_Term = DateTime :: Evento :: SolarTerm-> Menor_Terman (); My $ DT0 = DateTime-> Nuevo (...); My $ Siguiente_Minor_Term = $ Menor_Term-> Siguiente ($ DT0); MIS $ Prev_minor_term = $ menor_term-> Anterior ($ DT0); My $ DT1 = DateTime-> Nuevo (...); My $ DT2 = DateTime-> Nuevo (...); My $ span = DateTime :: Span-> nuevo (START => $ DT1, FIN => $ DT2); MY $ SET = $ MENOR_TERM-> Intersección ($ span); My $ ITER = $ SET-> ITERATOR (); MIENTRAS (MY $ DT = $ ITER- > Siguiente) {imprimir $ dt-> DateTime, " ";} # Si solo desea calcular un solo evento importante / Menor, My $ DT = DateTime :: Evento :: Lunar-> MAORTOR_TERM_FER (DateTime => $ DT0); My $ dt = DateTime :: Evento :: Lunar -> MAORTOR_TERM_BEFETHE (DATETIME => $ DT0); MY $ DT = DateTime :: Evento :: Lunar-> Menor_Term_Agter (DateTime => $ DT0); MY $ DT = DateTime :: Evento :: Lunar-> Menor_TERM_BEFORE (DateTime = DateTime = > $ dt0); My $ index = DateTime :: Evento :: SolarTerm-> Last_MAJOR_TERM_INDEX (DateTime => $ DT); My $ index = DateTime :: Evento :: SolarTerm-> Last_minor_term_index (DateTime => $ DT); mi $ boolean = DateTime :: Evento :: Solarterm-> NO_MAJOR_TERM_ON (DateTime => $ DT); # Para obtener el siguiente término solar específico, use DateTime :: Evento :: Solarterm QW (Dongzhi); My $ Siguiente = DateTime :: Event :: Solarterm-> Next_Term_at (DateTime => $ DT, Longitud => Dongzhi); My $ Prev = DateTime :: Evento :: SolarTerm-> Prev_Term_at (DateTime => $ DT, Longitud => Dongzhi); Requisitos: · Perl


DateTime :: Evento :: Solarterm Software relacionado