1) Função MesExtenso
Retorna o nome do mês por extenso.
Sintaxe:
MesExtenso(nMes)
Parâmetros:
nMes – Número do mês (1 a 12). Se "nMes" não for informado, é assumido o mês da data base do sistema. Esta variável também pode ser caracter ("1" ou "2") ou do tipo data.
Retorna:
cNome – Nome do mês por extenso.
Exemplo:
msgalert ("Volta Redonda, " + strzero(day(dDataBase),2) +" de " + mesextenso(dDataBase) +" de "+ strzero(year(dDataBase),4))
2) Função Extenso
Gera o extenso de um valor numérico. Esta função retorna um valor, dinheiro ou quantidade, por extenso.
Sintaxe:
Extenso(nValor, lQtd, nMoeda)
Parametros:
nValor – Valor a ser gerado o extenso.
lQtd – Verdadeiro (.T.) indica que o valor representa uma quantidade.Falso (.F.) indica que o valor representa dinheiro. Se não for especificado, o default é falso (.F.).
nMoeda - Qual moeda do sistema deve ser o extenso.
Retorna:
cValor – Retorna o valor por extenso.
Exemplo:
nValor := SE1->E1_VALOR
msgalert ( extenso(nValor) )
Veja também: String para vetor
Retorna o nome do mês por extenso.
Sintaxe:
MesExtenso(nMes)
Parâmetros:
nMes – Número do mês (1 a 12). Se "nMes" não for informado, é assumido o mês da data base do sistema. Esta variável também pode ser caracter ("1" ou "2") ou do tipo data.
Retorna:
cNome – Nome do mês por extenso.
Exemplo:
msgalert ("Volta Redonda, " + strzero(day(dDataBase),2) +" de " + mesextenso(dDataBase) +" de "+ strzero(year(dDataBase),4))
2) Função Extenso
Gera o extenso de um valor numérico. Esta função retorna um valor, dinheiro ou quantidade, por extenso.
Sintaxe:
Extenso(nValor, lQtd, nMoeda)
Parametros:
nValor – Valor a ser gerado o extenso.
lQtd – Verdadeiro (.T.) indica que o valor representa uma quantidade.Falso (.F.) indica que o valor representa dinheiro. Se não for especificado, o default é falso (.F.).
nMoeda - Qual moeda do sistema deve ser o extenso.
Retorna:
cValor – Retorna o valor por extenso.
Exemplo:
nValor := SE1->E1_VALOR
msgalert ( extenso(nValor) )
Veja também: String para vetor
Comentários
Postar um comentário