Nenhuma resposta neste tópico

[AlexCT]

Nao consigo acessar a pagina, pq deve etr algum erro em algum function, podem dar uma olhada?


Function MinutoSegundo(Minuto)
transforma 05:10 minuto:segundo em segundo

Function SegundoMinuto(Segundo)
transforma segundo em tempo 05:10 minuto:segundo

Function MediaTempo(SomaTempo, x)
acha a média de um tempo


<%
Function MinutoSegundo(Minuto)
MinutoSegundo = (Minute(Minuto)*60) + Second(Minuto)
End Function


Function SegundoMinuto(Segundo)
Minuto = (Segundo \ 60)
If Len(Minuto) = 1 Then Minuto = "0" & Minuto
Segundo = (Segundo Mod 60)
If Len(Segundo) = 1 Then Segundo = "0" & Segundo
SegundoMinuto = Minuto & ":" & Segundo
End Function


Function MediaTempo(SomaTempo, x)
total = (Minute(Minuto)*60) + Second(Minuto)
SomaTempo = total / x
Minuto = Minute(SomaTempo)*60)/x
Segundo = Second(SomaTempo)/x
If Len(Minuto) = 1 Then Minuto = "0" & Minuto
Segundo = (Segundo Mod 60)
If Len(Segundo) = 1 Then Segundo = "0" & Segundo

MediaTempo = Minuto & ":" & Segundo
End Function

%>