MILESIMOS EM VB

CLAITONO 09/10/2009 08:53:25
#324862
olá

gostaria de saber como colocar os milesimos de segundos
um exemplo que quero fazer: hh:mm:ss:(aqui os milesimos)
até
TECLA 09/10/2009 09:22:31
#324868
Segue uma idéia utilizando DéCIMOS DE SEGUNDO.

Adicione um TIMER com a propriedade INTERVAL igual a 1, ENABLED igual a TRUE, e pegue o código abaixo.

Option Explicit
Dim Decimo As Integer


Private Sub Form_Load()
Decimo = 0
End Sub


Private Sub Timer1_Timer()
DoEvents
lblHora = Time & [Ô]:[Ô] & Decimo
Decimo = Decimo + 1
If Decimo = 10 Then Decimo = 0
End Sub
CLAITONO 09/10/2009 11:34:38
#324883
mas é que não quero com timer pois vai me tomar muito tempo de processamento
queria algo como API ou alguma função

estive pesquisando na net e tem algo como fazer tipo format(time,[Ô]HH:MM:SS.fff), o [Ô]fff[Ô] seria os milésimos , mas só que ainda não obtive resultado
se achar a solução posto aqui
mas por enquanto me ajudem por favor
sds
DANIKULL 09/10/2009 21:00:00
#324958
CLAITONO, boa noite.

Cara via API até dá mais depois para encerrar o prorama da um trablhao caso o usuario nao encerre a função que chama esta API.....
Eu utilizava esta API no meu sistema e por causa disto deixei de usar, mais toda via segue.... da uma olha da ai e veja se é mais menos isso que você quer....

Em um módulo você declara ela

Public Declare Sub Sleep Lib [Ô]kernel32[Ô] (ByVal dwMilliseconds As Long)


Dai basta você usar assim

Public Function()

Sleep 25 [ô] onde 25 é a fração de milissegundos que você vai tulizar

End Function
FOXMAN 18/03/2011 10:43:03
#368416
[txt-size=2]CAMPANHA DEIXE NOSSO SITE LIMPO, FECHE SEU TÓPICO ASSIM QUE TIVER UMA RESPOSTA SATISFATÓRIA.[/txt-size]
Tópico encerrado , respostas não são mais permitidas
Voltar