Como transformar uma data para formato texto?

GRAVADATA(ExpD1,ExpL1,ExpN1)
Onde:

ExpD1 -> Data a ser convertida
ExpL1 -> Se .T. com Barra Se .F. sem Barra
ExpN1 -> Formato (1,2,3,4...8)
1 - ddmmaa
2 - mmddaa
3 - aaddmm
4 - aammdd
5 - ddmmaaaa
6 - mmddaaaa
7 - aaaaddmm
8 - aaaammdd

by Balboena (www.lbeb.com.br)