USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Conversão de datas e horas em servers
Postada em 13/10/2003 por ^HEAVY-METAL^            
Como criar uma data em um server estrangeiro semelhante a:

Boa Tarde - Hoje é Terça-Feira, 22 de Agosto de 2000 - São 14:40 h

Para executar esta tarefa teremos de ter em atenção dois fatores importantes:

. A diferença horária;
. O País de alojamento/server da nossa página Web.

Se o servidor da nossa página, for estrangeiro:

. Primeiro obstáculo: Os servidores estrangeiros apresentam diferentes tipos/formas de datas, sendo apresentadas na língua do respectivo país.

Exemplo: (Tuesday, August 22, 2000 - 11:46:51 AM)

. Segundo obstáculo: As horas podem ser diferentes de País para País, existindo diferenças de uma, duas ou mais horas.

Solução:

Criar dois arrays (vectores) que iram conter os respectivos Meses e Semanas:

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

semanas = Array(" ", "Domingo", "Segunda-feira", "Terça-feira", "Quarta-feira", "Quinta-feira", "Sexta-feira", "Sábado")

Para apresentar-mos na nossa data o (Bom dia, Boa Tarde e Boa Noite) teremos que reajustar as horas, mediante a diferença horária.

Por exemplo, se tivermos a nossa página alojada num País em que exista uma diferença de menos 5 horas (ex:USA), teremos que reajustar as horas no campo abaixo mencionado:

Ajustar para (+ 5 horas )

Horas = TimeSerial(hour(now()) + 5 ,minute(now()),0)

Obs.: Pois, quando for (Boa Tarde - 12:00) para nós, ainda é (Bom Dia - 07:00) para os habitantes desse País. Então teremos que reajustar a hora e aumentar 5 horas.

Penso que me fiz entender :o).

É claro que não teremos nenhum problema se a nossa página estiver alojada num Servidor Nacional, o que não acontece com a maioria dos servers/alojadores gratuitos que suportam a tecnologia ASP (Active Server Pages). Para podermos utilizar este mesmo código, não coloquem as (+ 5 horas) e tudo correrá bem.

Em anexo apresento o código que deverá ser colocado na vossa página Web:

<%

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

semanas = Array(" ", "Domingo", "Segunda-Feira", "Terça-Feira", "Quarta-Feira", "Quinta-Feira", "Sexta-Feira", "Sábado")

Horas = TimeSerial(hour(now()) + 5 ,minute(now()),0)

BomDia = TimeSerial(0, 0, 0)
BoaTarde = TimeSerial(12,0, 0)
BoaNoite = TimeSerial(19,0, 0)

If Horas > BoaNoite Then
cump = "Boa Noite "
ElseIf Horas > BoaTarde Then
cump = "Boa Tarde "
ElseIf Horas > BomDia Then
cump = "Boa Dia "
End If

Response.Write (cump & "- Hoje é " & semanas(Weekday(Date)) & ", " & Day(Date) & " de " & meses(Month(Date)) & " de " & Year(Date) & " - São " & formatdatetime(horas,4) & " h")

%>

Espero que vos tenha sido útil :).

T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página