Tempo de leitura: 2 minutos
A função ValType retorna um caractere que identifica o tipo de dado da variável informada através do parâmetro. Ela é uma das funções de Verificação de Tipos de Variáveis em ADVPL.
Sintaxe:
ValType(xVariavel)
Parâmetro(s):
Retorno:
Exemplo de ValType em ADVPL:
#include 'protheus.ch'
/*{Protheus.doc} User Function PValType
(Essa função tem por finalidade mostrar a função de Verificação de Variáveis ValType em ADVPL)
@type Function
@author Adilio Costa
@since 05/12/2023
@version 1.0
@site https://www.protheusadvpl.com.br
@canal https://www.youtube.com/protheusadvpl
@instagram https://www.instagram.com/protheusadvpl
@Portal ProtheusAdvpl:https://hotm.art/portal_protheusadvpl
@Post:ValType
*/
User Function PValType()
Local cMsg := ""
Local cExp1
Local bBloco := {|| .T. }
Local oObjeto := MSDialog():Create()
Static cExp2
Private cExp3,cExp4,cExp5
Public cExp6,cExp7,cExp8
cExp1 := 1000
cExp2 := bBloco
cExp3 := .T.
cExp4 := Date()
cExp5 := {2,6,7}
cExp6 := nil
cExp7 := "Portal ProtheusAdvpl"
cExp8 := oObjeto
cMsg := "O tipo de dado de cExp1 é:"+ValType(cExp1)+Chr(13)+Chr(10)
cMsg += "O tipo de dado de cExp2 é:"+ValType(cExp2)+Chr(13)+Chr(10)
cMsg += "O tipo de dado de cExp3 é:"+ValType(cExp3)+Chr(13)+Chr(10)
cMsg += "O tipo de dado de cExp4 é:"+ValType(cExp4)+Chr(13)+Chr(10)
cMsg += "O tipo de dado de cExp5 é:"+ValType(cExp5)+Chr(13)+Chr(10)
cMsg += "O tipo de dado de cExp6 é:"+ValType(cExp6)+Chr(13)+Chr(10)
cMsg += "O tipo de dado de cExp7 é:"+ValType(cExp7)+Chr(13)+Chr(10)
cMsg += "O tipo de dado de cExp8 é:"+ValType(cExp8)+Chr(13)+Chr(10)
cMsg += "O tipo de dado com chamada de função é:"+ValType(U_PSoma())+Chr(13)+Chr(10)
MsgInfo(cMsg,"Função ValType")
Return
User Function PSoma()
Local nNum1 := 10
Local nNum2 := 20
Local nSoma := nNum1+nNum2
Return nSoma
Nós podemos chamar uma função de dentro de ValType e ela retorna o tipo de dado que essa função retorna, como exemplo nós passamos uma chamada da função PSoma() de dentro de ValType:ValType(U_PSoma()) e como a função PSoma retornou um conteúdo numérico ValType retornou “N“:
É isso aí, finalizamos aqui mais um post do Blog ProtheusAdvpl. Caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.
Link(s) de referência(s):