Hora com milésimos ou centésimos de segundos

[cjp]

Pessoal, alguém sabe me informar se existe alguma função pronta que pegue a hora com centésimos ou milésimos de segundos? Ao que sei, time() só fornece hora, minutos e segundos. Eu preciso de algo ainda mais preciso, com pelo menos os centésimos de segundos da hora atual. Alguém me ajuda?

[cnavarro]

? DateTime()

[cjp]

Isso mesmo, tão simples, mas eu não tinha acho essa função. Muitíssimo obrigado.

[cjp]

Tenho ainda um problema aqui: o datetime() fornece uma data e hora no formato date. Eu preciso tomar apenas a hora no formato caractere. Se faço um dtoc(datetime()), ele só fornece a data.

Como faço para pegar apenas a hora, com milésimos, mas para usar com formato caractere?

[Jairo Maia]

Olá Inácio,

Veja esse exemplo:

Código: Selecionar todos

Function Main()

 cDateTime := DateTime()
 cDateTime := TtoC( cDateTime )
 cTime := SubSt( cDateTime, At( " ", cDateTime ) + 1, 8 )

 ? cTime

Return Nil

[cnavarro]

Tambien

Código: Selecionar todos

   cDateTime := TtoC( DateTime() )
   cTime     := Right( cDateTime, RAt( " ", cDateTime ) )
   ? cTime, cDateTime
   // Si quieres los valores de horas, minutos y segundos
   Browse( AEVal( Hb_Atokens( cTime, ":" ), { | a | a := Val( a ) } ) )

[cjp]

Agora sim. O ttoc() que eu não conhecia.

Muito obrigado a todos.