ASSINE A NEWSLETTER

Cadastrando...

PIX uDesenv

(DATA) GRAVADATA

Autor: Eurai Criado: 01/01/2016 Atualizado: 27/07/2021

Descrição

Converte Data para o formato Informado.

Sintaxe

GravaData( , , )

Parâmetros

Par	Nome	Tipo	Descrição	Default	Obg	Ref
01	dDate	Date	Data a Formatar	dDataBase
02	lBarra	Boolean	Se retorna com Barra	.T.
03	nFormato	Numérico	Formato	.T.

Retorno

Retorno	Tipo	Descrição
nRet	Indefinido	Data Formatada. Se informada o Formato retorna como Caracter, senão como Data

Exemplo

#INCLUDE "TOTVS.CH"
 
User Function GravaData()
 
MsgInfo( 'Valor: ' + cValtoChar( Date() ) ;
	+ CRLF + 'Retorno: ' + GravaData( Date(),.F.,1 ) ; 
	+ CRLF + 'Retorno: ' + GravaData( Date(),.F.,2 ) ; 
	+ CRLF + 'Retorno: ' + GravaData( Date(),.F.,3 ) ; 
	+ CRLF + 'Retorno: ' + GravaData( Date(),.F.,4 ) ; 
	+ CRLF + 'Retorno: ' + GravaData( Date(),.F.,5 ) ; 
	+ CRLF + 'Retorno: ' + GravaData( Date(),.F.,6 ) ; 
	+ CRLF + 'Retorno: ' + GravaData( Date(),.F.,7 ) ; 
	+ CRLF + 'Retorno: ' + GravaData( Date(),.F.,8 ) , 'UniversoADVPL' )
 
Return( Nil )

Resultado
gravadata_-_resultado_01

Informações adicionais

nFormato	Resultado
1	ddmmaa
2	mmddaa
3	aaddmm
4	aammdd
5	ddmmaaaa
6	mmddaaaa
7	aaaaddmm
8	aaaammdd

Importante: O terceiro parâmetro da função (formato do retorno) somente é respeitado, caso o 2º parametro (tipo de data) seja falso (.F.)

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎

Facebook