DataValida(Data,Opção)
Retorna a data válida após verificação (sábado, domingo ou feriado)
Parâmetros:
Data – Data para iniciar o cálculo da função.
Opção – 0. Retrocede a data para o dia útil anterior.
1. Posterga a data recebida para o próximo dia útil.
Exemplo:
DataValida(01/05/2015,1) ==> 04/05/2015
DataValida(01/05/2015,0) ==> 30/04/2015
Extenso(Valor,Tipo_Extenso,Moeda)
Retorna o valor por Extenso.
Parâmetros:
Valor – Valor número a ser tratado.
Tipo_Extenso – 0. Moeda
1. Quantidade
Moeda – Identifica em que moeda se dará o retorno.
Exemplo:
Extenso(150,0,1) ==> CENTO E CINQUENTA REAIS
Extenso(200,1,1) ==> DUZENTOS
Extenso(432,0,2) ==> QUATROCENTOS E TRINTA DE DOIS DOLARES
MesExtenso(Mes)
Retorna o mês por Extenso.
Exemplo:
MesExtenso(2) ==> FEVEREIRO
MesExtenso(11) ==>NOVEMBRO
Contar(Alias,Condição)
Retorna o número de registros que satisfaçam a condição conforme o Alias informado.
Esta função necessita conhecimento especifico da base de dados (arquivos, campos e índices).
Exemplo:
Contar("SA1",A1_LOJA <> ‘01’) ==> Retorna a quantidade de registro com o campo LOJA diferente de 01.
EXEMPLO DE USO DA FUNÇÃO SIGA() C/ USER FUNCTION
Listagem do Programa:
#include "rwmake.ch"
User Function TesteExcel(cPar01,nPar02,dPar03)
//caracter/Numerico/Data
Local nValor := 0
//Obs: Se todos os parametros forem aceitos deve ser retornado o numero 3
If ValType(cPar01) == "C"
nValor := nValor + 1
Endif
If valType(nPar02) == "N"
nValor := nValor + 1
Endif
If ValType(dPar03) == "D"
nValor := nValor + 1
Endif
Return(nValor)
No Excel utilizar:
Siga("U_TesteExcel";"UM";2;25/04/2001)