[Resolvido] Milisegundos

[*_Charles Potter_* 1]

Ahe gente,,

 

Alguem sabe como obter o milisegundos corrente?

 

vlw

[hargon 64]

Response.Write Timer ?

[*_Charles Potter_* 1]

Ola Hargon,, foi a primeira coisa que tentei,,

 

mas o time retorna

 

14:42:06

HH:MM:SS

 

eu preciso saber tb o milesegundos

[hargon 64]

Eu disse timeR e não TIME.

 

Mas Timer retornar os segundos...

 

Para que você precisa disso?

[*_Charles Potter_* 1]

TO precisando converter uma função em deplhi que os caras fizeram e TEM que ser o milesegundo,, retorou 874,54475 com o Timer,.. o milesegundo seria o 874?

 

Vlw

[hargon 64]

Não, esquece TIMER, pq nesse caso não serveria.

 

Desconheço uma função nativa do VBSCRIPT que retonar milisegundos.

[Ted k' 126]

seria isso?

 

inicioTempo = timer()
response.Write((timer - inicioTempo)*1000)

[*_Charles Potter_* 1]

Nao seria be isto Ted,,

 

 

tipo eu preciso fazer a mesma coisa que a função que o "date('u')" faz, retorna o Milisegundos...

[Ted k' 126]

isso faz retornar só que é tão rapido que só aparece o "0", tente cadastrar no banco e veja o que acontece!

[xanburzum 169]

tente

 

<% 
  Function PrintInterval(byVal dblMilliSecond) 
	Dim intMilliSecond, intSeconds, intMinute, intHour 
   
	intMilliSecond = Int(dblMilliSecond*1000) mod 1000 
   
	intSecond = Int(dblMilliSecond) 
   
	intMinute = Int(intSecond / 60) 
   
	intSecond = intSecond mod 60 
   
	intHour = Int(intMinute / 60) 
   
	intMinute = intMinute mod 60 
   
	PrintInterval = intHour &" horas " & _ 
					intMinute &" minutos " & _ 
					intSecond &" segundos " & _ 
					intMilliSecond &" milisegundos"  
			
  End Function 
  
	dblTimer = Timer() 
   
  For i=0 to 100000 
  Next 
   
  Response.Write PrintInterval(Timer() - dblTimer) 
%>

[*_Charles Potter_* 1]

Hm cara, vlw, cposegui adaptar parte da função para saber apeans o milesegundos..

 

vlw

[xanburzum 169]

beleza, kker coisa, posta ae...