quinta-feira, 26 de abril de 2001

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.



Esta matéria foi postada originalmente no ASP4Developers por André Luis Bassi (site), que na época era "Webmaster / DBA / Programador". Hoje, vai saber...

0 comentários: