6 replies to this topic

[stvkoch]

Ola pessoa, estou postando duas funções uteis que retorna datas.

elas são uteis quando precisamos imprimir datas nas paginas.

sub data{
#retorna a data no formato diasemana, dia mesextenso ano
my @WeekDays = ('Domingo','Segunda','Terça','Quarta','Quinta','Sexta','Sábado');
my @Months = ('Janeiro','Fevereiro','Março','Abril','Maio','Junho','Julhot','Agosto','Setembro','Outubro','Novembro','Dezembro');
my ($Sec,$Min,$Hour,$Day,$Month,$Year,$Week_Day) = (localtime);
$Year += 1900;
if ($Sec < 10) { $Sec = "0".$Sec; }
if ($Min < 10) { $Min = "0".$Min; }
if ($Hour < 10) { $Hour = "0".$Hour; }
if ($Day < 10) { $Day = "0".$Day; }

my $DATA_AGORA = $WeekDays[$Week_Day].", ".$Day." ".$Months[$Month]." ".$Year;

return $DATA_AGORA ;
}

sub datahora{
#retorna a data no formato diasemana, dia mesextenso ano hh:mm:sec
my @WeekDays = ('Domingo','Segunda','Terça','Quarta','Quinta','Sexta','Sábado');
my @Months = ('Janeiro','Fevereiro','Março','Abril','Maio','Junho','Julhot','Agosto','Setembro','Outubro','Novembro','Dezembro');
my ($Sec,$Min,$Hour,$Day,$Month,$Year,$Week_Day) = (localtime);
$Year += 1900;
if ($Sec < 10) { $Sec = "0".$Sec; }
if ($Min < 10) { $Min = "0".$Min; }
if ($Hour < 10) { $Hour = "0".$Hour; }
if ($Day < 10) { $Day = "0".$Day; }

my $DATA_AGORA = $WeekDays[$Week_Day].", ".$Day." ".$Months[$Month]." ".$Year ;
my $DATAHORA_AGORA = $DATA_AGORA . " $Hour:$Min:$Sec";
return $DATAHORA_AGORA ;
}



Espero que seja util a todos e fale apena ter em suas bibliotecas.

[prix]

para usar use:
require "datamaster.pl";

salve como datamaster.pm

package data;

#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#
#            * DataMaster 1.0 *     
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#
# Arquivo: datamaster.pl       
# Autor: Henrique Fernandes Silveira       
# Versão: FREE         
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#
#
#          Atenção:           
#          Não é necessário modificar as linhas abaixo             
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#

   ($seg,$min,$hora,$diam,$mes,$ano,$sdia,$diano,$isdst) = localtime(time);

   @nummeses = ("01","02","03","04","05","06","07","08","09","10","11","12");

   @meses = ("Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro");

   @abrev_meses = ("Jan","Fev","Mar","Abr","Mai","Jun","Jul","Ago","Set","Out","Nov","Dez");

   @dias = ('Domingo','Segunda-feira','Terça-feira','Quarta-feira','Quinta-feira','Sexta-feira','Sabado');

   @abrev_dias = ('Dom','Seg','Ter','Qua','Qui','Sex','Sab');

$ano += 1900;

sub main'data_barra {
   # retornar dd/mm/aa

    $sdata = "$diam/@nummeses[$mes]/$ano";

}

sub main'data_hora {
   # Retorna Diadasemana, Diadomes de Mes de Ano hora:minuto:segundo
   # if ($hora < 10) { $hora = "0$hora"; }
   if ($min < 10) { $min = "0$min"; }
   if ($seg < 10) { $seg = "0$seg"; }

    $data_hora =  "$dias[$sdia], $diam de $meses[$mes] de $ano $hora\:$min\:$seg";
}

sub main'hora {
   # Retorna Diadasemana, Diadomes de Mes de Ano hora:minuto:segundo
   if ($min < 10) { $min = "0$min"; }
   if ($seg < 10) { $seg = "0$seg"; }

    $hora =  "$hora\:$min\:$seg";
}

sub main'data_semhora {
   # Retorna Diadasemana, Mes , Year
   $ldate = "$dias[$sdia], $diam de $meses[$mes] de $ano";

}

sub main'abrev_mes {
   # Retorna a Abreviação do Mês
   $abrev_meses[$mes];
}

sub main'abrev_dia {
   # Retorna a Abreviação do Dia
   $abrev_dias[$sdia];
}

sub main'mes {
   # Retorna o mes
   $meses[$mes];
}

sub main'dia {
   # Retorna o dia
   $dias[$sdia];
}

sub main'numero_mes {
   # Retorna o numero do mes
   $nummeses[$mes];
}

sub main'numero_dia {
   # Retorna o numero do dia
   $diam;
}

sub main'ano {
   # Retorna o ano
   $ano = "$ano";
}


1; # retorne true

[maisfe]

Vc poderia me ajudar? Como posso fazer para o resultado dessa função ser atribuída diretamente a uma varíavel? (ex.: $date . Estou procurando essa informação há um bom tempo...

[*º[ ¤ gLx ¤ ]º*]

Essa data fica de acordo com a configuração do PC do visitante, ou eh uma data própria, inserida no próprio site..? Pq, se for a primeira opção, acho que nem era necessário criar o tópico, pois até Javascript faz isso...

Edição feita por: *º[ ¤ gLx ¤ ]º*, 30/08/2004, 01:57.

[stvkoch]

CGI sempre eh no lado do servidor...
Javascript eh para manipular cliente...



Um abraço...
Steven Koch