DECIMOS,CENTESIMOS E MILESIMOS

SIDSIL 01/03/2013 15:12:47
#419775
Boa Tarde AMigos

Pegar uma hora com minutos e segundos nao e problema no VB6.Eu gostaria de saber se e possivel pegar os decimos,centesimos e milesimos?


Obrigado e um Abraço



Ventana
FILMAN 01/03/2013 20:25:14
#419788 Resposta escolhida
Cara tente assim

Em um modulo coloque o seguinte código
Public Declare Sub GetSystemTime Lib [Ô]kernel32[Ô] (lpSystemTime As SYSTEMTIME)

Public Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type


Agora para testar o código faça o seguinte coloque o código abaixo em um botão
Dim Hora As SYSTEMTIME
Dim sHora As String

sHora = [Ô][Ô]
Call GetSystemTime(Hora)

sHora = sHora & Hora.wHour & [Ô]:[Ô]
sHora = sHora & Hora.wMinute & [Ô]:[Ô]
sHora = sHora & Hora.wSecond & [Ô]:[Ô]
sHora = sHora & Hora.wMilliseconds

[ô]Caso queira em decimos insira a linha abaixo
sHora = sHora & (Hora.wMilliseconds / 100)

MsgBox sHora



Referencia:
http://www.babooforum.com.br/forum/index.php?/topic/14074-dcimo-de-segungo/
SIDSIL 05/03/2013 10:18:39
#419923
Obrigado por sua ajuda FILMAN

Graças a esses exemplos, consegui resolver o problema.Na verdade o problema nao era meu e sim de um amigo e eu passei o exemplo para ele que conseguiu resolver o problema.

Obrigado e um Abraço
Tópico encerrado , respostas não são mais permitidas
Voltar