(DATA) GRAVADATA
Autor: Eurai Criado: 01/01/2016 Atualizado: 26/04/2025Descrição
(DATA) GRAVADATA - 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 )
#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 )
#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
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! 😎
Discussão (0)
Sem comentários ainda
Realize o LOGIN no site para poder comentar