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.4

if 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