ASP
Código para exibir o Beat - o horário mundial da Internet
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
Parceiros
Tecnoponta Santos - SP
Capital Administração de Condomínios
BR-Linux.org
Criar WEB
Verdade Absoluta
Artigos mais acessados
Desenho de Letras - Construindo fontes TTF
Menu Circular em 3D
Criando um sistema de login
Enviando email em formato HTML em PHP
Cargos e salários na área de informática
Como fazer e modificar calendários
Serviços
Desenvolvimento de Sites e Sistemas WEB
Otimização de Sites (SEO)
Catálogo de Produtos
Parcerias e Soluções de Publicidade
Fale Conosco


