Clipper On Line • Ver Tópico - Hora com milésimos ou centésimos de segundos

Hora com milésimos ou centésimos de segundos

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Hora com milésimos ou centésimos de segundos

Mensagempor cjp » 04 Mai 2018 11:32

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?
Inacio de Carvalho Neto
cjp
Usuário Nível 6

Usuário Nível 6
 
Mensagens: 1527
Data de registro: 19 Nov 2010 21:29
Cidade/Estado: paraná
Curtiu: 10 vezes
Mens.Curtidas: 20 vezes

Hora com milésimos ou centésimos de segundos

Mensagempor cnavarro » 04 Mai 2018 15:42

? DateTime()
cnavarro
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 52
Data de registro: 28 Set 2017 14:16
Cidade/Estado: Spain
Curtiu: 3 vezes
Mens.Curtidas: 14 vezes

Hora com milésimos ou centésimos de segundos

Mensagempor cjp » 04 Mai 2018 16:18

Isso mesmo, tão simples, mas eu não tinha acho essa função. Muitíssimo obrigado.
Inacio de Carvalho Neto
cjp
Usuário Nível 6

Usuário Nível 6
 
Mensagens: 1527
Data de registro: 19 Nov 2010 21:29
Cidade/Estado: paraná
Curtiu: 10 vezes
Mens.Curtidas: 20 vezes

Hora com milésimos ou centésimos de segundos

Mensagempor cjp » 05 Mai 2018 10:01

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?
Inacio de Carvalho Neto
cjp
Usuário Nível 6

Usuário Nível 6
 
Mensagens: 1527
Data de registro: 19 Nov 2010 21:29
Cidade/Estado: paraná
Curtiu: 10 vezes
Mens.Curtidas: 20 vezes

Hora com milésimos ou centésimos de segundos

Mensagempor Jairo Maia » 05 Mai 2018 11:18

Olá Inácio,

Veja esse exemplo:
Function Main()

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

? cTime

Return Nil
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Hora com milésimos ou centésimos de segundos

Mensagempor cnavarro » 05 Mai 2018 11:29

Tambien


   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 ) } ) )

cnavarro
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 52
Data de registro: 28 Set 2017 14:16
Cidade/Estado: Spain
Curtiu: 3 vezes
Mens.Curtidas: 14 vezes

Hora com milésimos ou centésimos de segundos

Mensagempor Eric.Developer » 05 Mai 2018 11:34

Simples:
x:=DateTime() // 05/05/18 11:30:50.126
? TtoS(x)     // 20180505113050126
? RIGHT(x, 3) // 126

? RIGHT(TtoS(DateTime()),4) // 126
Delphi, SQL, FastReport | Xailer VxH Fivewin Minigui Hwgui [x]Harbour
Contate-me: Desenvolvimentos em geral | Treinamentos
Overview/Download: Xailer / Harbour Ferramenta profissional e mais completa.
Avatar de usuário

Eric.Developer
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 31 Ago 2010 22:16
Curtiu: 0 vez
Mens.Curtidas: 8 vezes

Hora com milésimos ou centésimos de segundos

Mensagempor cjp » 05 Mai 2018 13:51

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

Muito obrigado a todos.
Inacio de Carvalho Neto
cjp
Usuário Nível 6

Usuário Nível 6
 
Mensagens: 1527
Data de registro: 19 Nov 2010 21:29
Cidade/Estado: paraná
Curtiu: 10 vezes
Mens.Curtidas: 20 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro