Clipper On Line • Ver Tópico - Dica/sugestão converter data

Dica/sugestão converter data

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Dica/sugestão converter data

Mensagempor JoséQuintas » 01 Jul 2020 16:09

No Harbour tem a função hb_Dtoc(), que a princípio seria igual Dtoc(), mas não é.

Por exemplo: hb_Dtoc( Date(), "DDMMYY" )

Isso economiza um pouco de fonte.

Para o XHarbour.... se não existir, é só criar uma função com mesmo nome, assim fica todo mundo igual, e um mesmo fonte pode servir pra todo mundo.

Sei lá... talvez assim:
(não testei, pensei/criei durante postagem)

? hb_Dtoc( Date(), "YYYY-MM-DD" )
? hb_Dtoc( Date(), "DD-MM-YYYY" )
? hb_Dtoc( Date(), "MMDDYY" )
? hb_Dtoc( Date(), "DDMMYY" )

FUNCTION hb_Dtoc( dData, cFormato )

   IF cFormato == NIL
      RETURN Dtoc( dData )
   ENDIF
   cFormato := Upper( cFormato )
   cFormato := StrTran( cFormato, "DD", StrZero( Day( dData ), 2 ) )
   cFormato := StrTran( cFormato, "MM", StrZero( Month( dData ), 2 ) )
   cFormato := StrTran( cFormato, "YYYY", StrZero( Year( dData ), 4 ) )
   // depois do YYYY, senão trocaria o ano duas vezes
   cFormato := StrTran( cFormato, "YY", StrZero( Mod( Year( dData ), 100 ), 2 ) )

   RETURN cFormato


Dica adicional:
Convém usar uma conversão universal.
Assim funciona com SET DATE BRITISH, ou SET CENTURY ON/OFF, etc.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14294
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

Dica/sugestão converter data

Mensagempor Vlademiro » 02 Jul 2020 21:27

Não sabia. Muito boa essa dica.
Avatar de usuário

Vlademiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 650
Data de registro: 11 Jul 2005 02:46
Curtiu: 12 vezes
Mens.Curtidas: 44 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 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