(DATA) GRAVADATA

(DATA) GRAVADATA
Author: Eurai
Inclusão: 01/01/2016
Alteração: 27/07/2021

Descrição

Converte Data para o formato Informado.

 

Sintaxe

GravaData( <dDate>, <lBarra>, <nFormato> )

 

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! 😎  

 

 

 

 

 

 

 

Esse conteúdo te ajudou? Ajude o canal com doação
Compartilhar
Comentários