DateTime :: Evento :: SolartermExtensión de DateTime para calcular los términos solares | |
Descargar ahora |
DateTime :: Evento :: Solarterm Clasificación y resumen
Anuncio publicitario
- 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
MMS :: Mail :: Proveedor :: Ukvodafone
Esto proporciona una clase para analizar un objeto MMS :: Mail :: Mensaje que se ha enviado a través de la red Vodafone del Reino Unido ...
125