DateTime :: Event :: SolarTerm Extensão DateTime para calcular termos solares
Baixe Agora

DateTime :: Event :: SolarTerm Classificação e resumo

DateTime :: Event :: SolarTerm Tag

Módulo Perl. evento Data hora Solar extensão DateTime Termos solares

DateTime :: Event :: SolarTerm Descrição

Extensão DateTime para calcular termos solares Um calendário lunar tem meses com base no ciclo lunar, que é de aproximadamente 29,5 dias. Este ciclo não corresponde ao ciclo do sol, que é cerca de 365 dias. Você pode usar meses de salto para melhor alinhar o ciclo como no calendário chinês, mas isso ainda significa que meses poderia ser desligado por possivelmente um mês lunar. Isso foi inaceitável para fins agrícolas que está ligado profundamente com a temporada, que por sua vez está ligado ao ciclo solar.Este é onde são utilizados termos solares. Independentemente do mês lunar, você pode dizer a temporada usando os termos solares.solares ainda são usados em algumas partes da Ásia, especialmente a China, onde grandes feriados devem ser calculados com base nesses termos solares.Synopsis Use DateTime :: :: SolarTerm; Meu $ Major_Term = DateTime :: Event :: SolarTerm-> Major_Term (); Meu $ DT0 = DateTime-> Novo (...); meu $ next_major_term = $ major_term-> próximo ($ DT0); meu $ Prev_major_term = $ Major_term-> Anterior ($ DT0); Meu $ DT1 = DateTime-> Novo (...); Meu $ DT2 = DateTime-> Novo (...); Meu $ Span = DateTime :: Span-> Novo (Início => $ DT1, end => $ DT2); minha $ set = $ major_term-> interseção ($ span); meu $ iter = $ set-> iterador (); Enquanto (meu $ DT = $ iter-> next) {Imprimir $ DT-> DateTime " ";} my $ minor_term = datetime :: event :: solarterm-> minor_term (); my $ DT0 = datetime-> novo (...); meu $ next_minor_term = $ minor_term-> next ($ DT0); meu $ Previ_minor_term = $ Menor_term-> Anterior ($ DT0); Meu $ DT1 = DateTime-> Novo (...); Meu $ DT2 = DateTime-> Novo (...); Meu $ Span = DateTime :: span-> NOVO (START => $ DT1, end => $ DT2); meu conjunto $ set = $ minor_term-> interseção ($ span); meu $ iter = $ set-> iterador (); enquanto (meu $ DT = $ ITER- > Next) {Imprimir $ DT-> DateTime " ";} # Se você quiser calcular um único evento Maior / Menor Prazo Meu $ DT = DateTime :: Evento :: Lunar-> Major_Term_After (DateTime => $ DT0); Meu $ DT = DateTime :: Evento :: Lunar -> major_term_before (datetime => $ dt0); meu $ DT = DateTime :: event :: lunar-> minor_term_fter (datetime => $ dt0); meu $ DT = dtetime :: event :: lunar-> minor_term_before (datetime = > $ DT0); meu $ index = datetime :: event :: solarterm-> last_major_term_index (datetime => $ dt); meu índice $ index = datetime :: event :: solarterm-> last_minor_term_index (datetime => $ dt); meu $ boolean = datetime :: solarterm-> no_major_term_on (datetime => $ dt); # Para obter o próximo período de uso do termo solar específico DateTime :: Event :: SolarTerm QW (Dongzhi); meu $ Next = DateTime :: :: SolarTerm-> next_term_at (datetime => $ dt, longitude => dongzhi); meu $ prev = data :: event :: solarterm-> prev_term_at (datetime => $ dt, longitude => dongzhi); requisitos: · Perl.

DateTime :: Event :: SolarTerm Software Relacionado