Estou explorando a função MesExtenso nesse codigo simples. mas está dando erro de array , entao consegui encontrar ainda.
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.Luscas o problema é porque você está passando um valor do tipo Data para a função, e deveria ser numérico. Para corrigir você vai precisar usar da seguinte forma:
nMes := Month(cToD(dDat_DE))
Entâo ele gera um erro na linha: cMesExtenso := MesExtenso(nMes)
o erro é array of bounds [1] of [0]