Data :: Feriados :: Pt Determine feriados portugueses
Baixe Agora

Data :: Feriados :: Pt Classificação e resumo

Data :: Feriados :: Pt Tag

Módulo Perl. perl feriados públicos feriados Português Feriados portugueses.

Data :: Feriados :: Pt Descrição

Determine feriados portugueses Data :: Feriados :: PT - Determine Holidays Public Synopsis Data :: Feriados :: Pt; Meu (Ano de $, $ Mês, $ Day) = (Local) ; $ ano + = 1900; $ mês + = 1; Imprimir "woohoo" se is_pt_holiday ($ ano, $ mês, $ dia); meu $ h = pt_holidays ($ ano); Printf "Jan. 1º é nomeado '% s' ", $ h -> {'0101'}; FunctionsNeixas uma nova data :: feriados :: PT Objeto. Meu $ MH = Data :: Feriados :: Pt-> Novo (); IS_HOLIVERSE Quatro dígitos) mês (entre 1-12) dia (entre 1-31) O valor de retorno do IS_HOLIDAY é um 1 ou A 0 (1 se a data especificada for um feriado, 0 caso contrário). Se ($ mh-> is_holiday ($-ano, $ mês, $ dia)) {# é um feriado} is_pt_holidaysimilar para is_holiday, mas em vez de retornar 1 se a data é um feriado retorna uma string compreendendo o nome dos feriados. No caso de dois ou mais feriados No mesmo dia (ei, acontece), a corda compreenderá o nome de todos os feriados separados por um ponto e vírgula. Meu $ Todays_holiday = $ mh-> is_pt_holiday ($ year, $ mês, $ singys_holiday ) {Imprimir "hoje é $ hoje_holiday. Não se incomode de se levantar! ";} Os feriados devem tomar pelo menos um argumento: ano (quatro dígitos) retorna uma referência a um hash, onde as chaves são representadas como quatro dígitos, os dois primeiros meses de representação (01-12) e os últimos dois dias representativos (01 -31). O valor para a chave em questão é o nome local para o feriado indicado pelo dia. No caso de dois ou mais feriados no mesmo dia (sim, acontece!), Os valores incluirão o nome de Todos esses feriados separados por um ponto e vírgula. Meus $ years_holidays = feriados ($-ano); para (chaves% $ years_holidays) {my ($ dia, $ mês) = /(..)(..) / $ mês - $ years_holidays -> $ _ ";} Requisitos: · Perl.

Data :: Feriados :: Pt Software Relacionado