
09/01/2003 - Criar um Recordset
28/01/2003 - IIS no WinXP Home
07/12/2003 - Action Script 2.0 ( Primeira Parte )
04/05/2005 - Tratamento de CPF e CNPJ
21/04/2003 - Aplicação simultânea de Fio e Sombra a bitmaps - Fireworks
09/01/2003 - Sistema de Banner Rotativo
09/02/2003 - Artigo Arrays II
05/05/2005 - Faixa de título sem margem
07/04/2006 - Como fazer uma panorâmica 360 graus com equipamentos caseiros
16/03/2003 - Pega ladrão! Bill Gates quer seu tráfego.
04/02/2003 - Críe o mundo em sessenta segundos
08/12/2003 - Passe as variaveis por valor sem ByVal
03/12/2006 - Randomizando textos com PHP e TXT
11/04/2006 - Curriculo 10
Leituras: 4382 -
Segue em anexo abaixo um exemplo de como calcular a hora internacional da Internet, chamado como Beat.
Código simples e comentado para entender a funcionalidade !
<%
' Declarando as variaveis
Dim min, hor, minuto, hor_fus, trans, hor_temp, hor_beat, horr' O valor de 1 minuto
min = 60' pego a hora
hor = hour(time)' Pego o minuto
minuto = minute(time)' Adiciono +5 horas no horario atual
hor_fus= hor + 5' Transformo a horas em minutos
trans = hor_fus * min' Soma o total das horas convertidas em minutos + minutos atuais
hor_temp = trans + minuto' Transformando os minutos em segundos e calcula com o valor do Beat
hor_beat= hor_temp * 60 / 86.4if hor_beat >= 1000 Then
horr = hor_beat - 1000
response.write cint(horr)
else
' Exibo os valores no browser
response.write "Hora atual em BEAT" & " " & cint(hor_beat)
end if%>
André Luis Bassi é desenvolvedor em ASP, onde presta serviço para diversas empresas.
André Luis Bassi é Webmaster / DBA / Programador