|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
