Formatando datas

Retorno de um campo data com formatos diferentes conforme parametrização desejada.
Importante: O terceiro parâmetro da função (formato do retorno) somente é respeitado, caso o 2º parametro (tipo de data) seja falso (.F.)

Observações

Exemplo:
GravaData(ExpD1,ExpL1,ExpN1)

Parâmetros:

ExpD1 (Date)
Data a ser convertida

ExpL1 (Boolean)
Tipo (Se .T https://impotenzastop.it., apresenta data utilizando barra, se .F., não apresenta a barra)

ExpN1 (Integeger)
Formato do retorno

Sendo:
1 = ddmmaa
2 = mmddaa
3 = aaddmm
4 = aammdd
5 = ddmmaaaa
6 = mmddaaaa
7 = aaaaddmm
8 = aaaammdd