| DateTime :: Evento :: Amanecer DateTime :: Evento :: Sunrise es una extensión DateTime Perl para computar la salida del sol / atardecer en un día determinado. |
Descargar ahora |
DateTime :: Evento :: Amanecer Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Ron Hill
- Sitio web del editor:
- http://search.cpan.org/~rkhill/Astro-Sunrise-0.91/Sunrise.pm
DateTime :: Evento :: Amanecer Etiquetas
DateTime :: Evento :: Amanecer Descripción
DateTime :: Evento :: Sunrise es una extensión DateTime Perl para computar la Amanecer / Atardecer en un día determinado. DateTime :: Evento :: Sunrise es una extensión DateTime Perl para computar la salida del sol / atardecer en un día determinado. HACILLO Use DateTime; Usa DateTime :: Evento :: Amanecer; My $ DT = DateTime-> Nuevo (Año => 2000, Mes => 6, día => 20,); My $ Sunrise = DateTime :: Evento :: Amanecer -> Amanecer (Longitud => '- 118', latitud => '33', Altitud => '-0.833', iteración => '1'); My $ SUNSUT = DateTime :: Evento :: Sunrise -> Puesta de sol (Longitud => '- 118', Latitude => '33', Altitud => '-0.833', iteración => '1'); MY $ TMP_RISE = $ SUNRISE-> Siguiente ($ DT); My $ DT2 = DateTime-> Nuevo (Año => 2000, Mes => 12, Día => 31,); # ITERATOR MIS $ DT_SPAN = DateTime :: Span-> Nuevo (START => $ DT1, FIN => $ DT2); My $ SET = $ SUNRISE-> Intersección ($ DT_SPAN); My $ ITER = $ SET-> ITERATOR; Mientras (MIS $ DT = $ ITER-> Siguiente) {Imprimir '', $ dt-> DateTime; } # es día o noche? My $ Day_Set = DateTime :: Spanset-> FROM_SETS (START_SET => $ SUNRISE, END_SET => $ Puesta de sol); Imprimir $ Day_set-> contiene ($ dt)? 'Día': 'Noche'; My $ DT = DateTime-> Nuevo (Año => 2000, Mes => 6, Día => 20, Time_Zone => 'America / Los_Angeles',); My $ Sunrise = DateTime :: Evento :: Amanecer -> Nuevo (longitud => '- 118', latitud => '33', altitud => '-0.833', iteración => '1'); My $ tmp = $ sunrise-> sunrise_sunset_span ($ dt); Imprimir "Sunrise es:", $ tmp-> inicio-> DateTime, "N"; Imprimir "Sunset es:", $ tmp-> final-> DateTime; My $ DT1 = $ Sunrise-> Sunrise_Datetime ($ DT); Imprimir "Sunrise es:", $ DT1-> DateTime, "N"; My $ DT2 = $ Sunrise-> Sunset_Datetime ($ DT); Imprimir "Sunset es:", $ dt2-> DateTime, "N"; Requisitos: · Perl
DateTime :: Evento :: Amanecer Software relacionado