Funções VB

Â

Abs ( ) Devolve o numero absoluto.
Abs(número)
Mid ( ) Retorna uma substring de uma expressão string
Mid(exp ,início, tamanho) sai vai ficar com “lá”
sai vai ficar com “lá”
Array ( ) Retorna um Array
Array(lista_arg)
Asc ( ) Retorna o código ANSI correspondente à letra da string, que é pedida.
codigo = Asc(“A”), Devolve 65
Atn ( ) Função usada para calcular o arco de tangente de um numero
CBool ( ) Cbool(5=5), devolve True
Retorna uma expressão que representa o tipo boolean. Fazemos a comparação ou verificamos a variável, e ela devolve se é True ou False
Cbyte ( ) Devolve uma expressão que foi convertida para o tipo Byte dentro das limitações do mesmo.
Ccur ( ) Devolve uma expressão que foi convertida para o tipo Currency dentro das limitações do mesmo.
Cdate ( ) Devolve uma expressão que foi convertida para o tipo Date dentro das limitações do mesmo.
astringdata = “October 19, 1962”
dataconvertida = CDate(astringdata) ‘ ficou convertido para date
CDbl ( ) Devolve uma expressão que foi convertida para o tipo Double dentro das limitações do mesmo.
AscB ( ) Em vez de devolver o código ANSI do primeiro caracter devolve do primeiro byte.
AscW ( ) O AscW é fornecido para plataformas de 32bits que usam caracteres Unicode. Devolve o código do caracter Unicode (wide), evitando conversões do mesmo para ANSI.
Chr ( ) Devolve o caracter associado ao código ANSI.
Chr(65) devolve A
CInt ( ) Devolve uma variável forçada a ser inteiro.
Cint(“12”) devolve 12 como numero e não como String
Clng ( ) Devolve uma variável forçada a ser inteiro.
Cint(“113123231424242342342”) devolve 113123231424242342342 como numero e não como String
Cos ( ) Devolve o Coseno de um ângulo
CreateObject ( ) Cria e devolve a referência de um objecto.
Set referenciaobjecto = CreateObject(“comp.objecto”)
CStr ( ) Devolve uma variante como sendo do tipo String
x = CStr(12)
‘ x fica igual a “12”, ou seja, passou um inteiro para String
Cdate ( ) Devolve uma data de qualquer expressão.
data = Cdate(“qualquerexpressao”)
normalmente usa-se IsDate para ver se é do tipo data e depois transforma-se para o tipo data.
Day ( ) Devolve o dia de uma data
Day(“12, Janeiro, 2002”) devolve 12
Eval ( ) Valida uma expressão, do tipo Eval(5=5) devolve True ou False
Exp ( ) Devolve a exponencial de um valor.
Filter ( ) Devolve um array com o resultado de uma pesquisa por filtragem de um String.
Dim MeuIndex
Dim MeuArray (3)
MeuArray(0) = “Domingo”
MeuArray(1) = “Segunda”
MeuArray(2) = “Terça”
MeuIndex = Filter(MeuArray, “Seg”) ‘ MeuIndex(0) contêm “Segunda”.
Fix ( ) Formata um valor para o seu arredondamento
MeuNumero = Fix(99.2) ‘ Devolve 99.
MeuNumero = Fix(-99.8) ‘ Devolve -99.
MeuNumero = Fix(-99.2) ‘ Devolve -99.
FormatCurrency ( ) Devolve uma expressão formatada para currency ( tipo de moeda instalada no Control Panel ).
MinhaMoeda = FormatCurrency(1000) ‘ Devolve num servidor português “1.000$00”
FormatDateTime ( ) Devolve uma expressão formatada como Data ou Tempo ( hora )
Dim Data
Data=now ( )
SacarData = FormatDateTime(Data, 1)
‘ e desta maneira recebe-se a data
‘o valor usado é para definir o formato com que se recebe a dataÂ

Códigos de Formato:
0 -> formato short date, se tiver só a hora sai só a hora, se tiver só a data sai só a data, se tiver ambos saiem ambos como short format
1 -> long date
2 -> short date format especificado no Regional Settings do computador
3 -> Dispara a hora especificado no Regional Settings do computador
4 -> Devolve a hora usando o formato 24horas (hh:mm)
——————————————————

FormatNumber ( ) Devolve uma expressão formatada como Number
FormatarEmNumber = FormatNumber(“123123123”,3)
‘Devolve 123.123.123,000
FormatPercent ( ) Devolve uma expressão formatada como uma percentagem. (multiplicada por 100) com o caracter % no fim.
MinhaPercentagem = FormatPercent(2/32) ‘MinhaPercentagem tem 6.25%.
GetLocale ( ) Devolve o valor do ID Local
Este Local é a referência à linguagem do servidor country/region.O Locale determina coisas como o keyboard layout, alphabetic sort order, assim como o date, time, number, e o formato currency.
GetObject ( ) Devolve a referência a um Objecto de um ficheiro.
Dim MeuObjecto
Set MeuObjecto = GetObject(“C:\DESENHOS\SAMPLE.DRW”, “FIGMENT.DRAWING”)
GetRef ( ) Devolve a referência a um procedimento de um evento.
Hex ( ) Retorna o valor Hexadecimal de um numero.
MeuHex = Hex(10) ‘ Devolve A.
Hour ( ) Retorna um numero entre 0 e 23, inclusive, representando a hora do dia.
MinhaHora = Hour(now())
InputBox ( ) só funciona com o IE Abre uma caixa de diálogo, onde os utilizadores podem escrever algo, e carregar num botão para voltar ao browser.
Não é usado nas ASP, mas pertence ao VBScript.
InStr ( ) Devolve a posição da primeira ocorrência de uma string dentro de outra.
Dim ProcuraString, ProcuraChar, MinhaPos
ProcuraString =”XXpXXpXXPXXP” ‘ String onde procurar
ProcuraChar = “P” ‘ Procurar por “P”
MinhaPos = Instr(4, ProcuraString, ProcuraChar, 1)
‘ Uma comparação textual a começar em 4 devolve 6
InStrB ( ) Igual a InStr ( ), com a diferença que é usada para comparações de variáveis tipo Byte.
InStrRev ( ) Funciona com a função InStr ( ), com a diferença de que em fez de começar do inicio da String, começa do final.
Dim ProcuraString, ProcuraChar, MinhaPos
ProcuraString =”XXpXXpXXPXXP”
ProcuraChar = “P”
MinhaPos = InstrRev(ProcuraString, ProcuraChar, -1, 1)
‘ A comparação textual a começar na última posição devolve 12
Int ( ) Devolve o integer de uma variável numérica
MeuNumero = Int(99.8) ‘ Retorna 99.
MeuNumero = Int(-99.8) ‘ Retorna -100.
IsArray ( ) Devolve uma variável tipo Boolean a verificar de a variável é um array ou não.
IsDate ( ) Devolve True ou False, a indicar se uma variável pode ser convertida para o tipo Date.
Dim MinhaData, TuaData, SemData, MeuCheck
MinhaData = “Outubro 19, 1962”
TuaData = #10/19/62#
SemData = “Hello”
MeuCheck = IsDate(MinhaData) ‘ Devolve True.
MeuCheck = IsDate(TuaData) ‘ Devolve True.MeuCheck = IsDate(SemData) ‘ Devolve False.
IsEmpty ( ) Devolve True ou False, a indicar se uma variável foi inicializada.
Dim MeuVar, MeuCheck
MeuCheck = IsEmpty(MeuVar) ‘ Devolve True.
MeuVar = Null ‘ Fica Null.
MeuCheck = IsEmpty(MeuVar) ‘ Devolve False.
MeuVar = Empty ‘ Fica Empty.
MeuCheck = IsEmpty(MeuVar) ‘Devolve True.
IsNull ( ) Devolve True ou False, a indicar se uma variável não contém dados válidos ‘Null’.
Dim MeuVar, MeuCheck MeuCheck = IsNull(MeuVar) ‘ Devolve True.
MeuVar = Empty ‘ Fica Empty.MeuCheck = IsNull(MeuVar) ‘ Devolve False.
IsNumeric ( ) Devolve True ou False, a indicar se uma variável pode ser convertida para um tipo Number.
Dim MeuVar, MeuCheck
MeuVar = 53 ‘ Atribui um valor
MeuCheck = IsNumeric(MeuVar) ‘ Devolve True.
MeuVar = “459.95” ‘Atribui um valor
MeuCheck = IsNumeric(MeuVar) ‘ Devolve True.
MeuVar = “45 Help” ‘ Atribui um valor.
MeuCheck = IsNumeric(MeuVar) ‘ Devolve False.
IsObject ( ) Devolve True ou False, a indicar se uma variável é um objecto válido.
Join ( ) Devolve uma string, que contém concatenadas todas as substrings de um array.
Dim MeuString
Dim MeuArray(4)
MeuArray(0) = “As ”
MeuArray(1) = “praias ”
MeuArray(2) = “de ”
MeuArray(3) = “Portugal.”
MeuString = Join(MeuArray)
‘ MeuString contêm “As praias de Portugal.”.
LBound ( ) O LBound é usado com a função Ubound para determinar o tamanho de um array.
Lcase ( ) Devolve uma string que foi convertida para LowerCase.
Dim MeuString
Dim LCaseString
MeuString = “VBSCript”
LCaseString = LCase(MeuString)
‘ LCaseString têm “vbscript”.
Left ( ) Devolve um numero específico de caracteres do lado esquerdo de uma string.
Dim MeuString, Resultado
MeuString = “VBSCript”
Resultado = Left(MeuString, 3) ‘ Resultado tem “VBS”.
LeftB ( ) O mesmo de Left mas para o tipo de variáveis Byte
Len ( ) Devolve o numero de caracteres de uma string
Dim MeuString
MeuString = Len(“VBSCRIPT”) ‘ MeuString tem 8.
LenB ( ) O mesmo da função len, mas para variáveis do tipo Byte.
LoadPicture ( ) Devolve um Objecto de imagem. Também não é utilizável por ASP.
Log ( ) Devolve o logaritmo de um valor
LTrim ( ) Devolve a cópia de uma string sem os espaços (space) iniciais
MeuVar = LTrim(” vbscript “)
‘ MeuVar devolve “vbscript “.
MidB ( ) Equivalente à função Mid, mas para ser usada com variáveis do tipo Byte
Minute ( ) Devolve um numero entre 0 e 59, inclusive, a representar o minuto de uma dada hora.
Minute(“10:22:00”) , devolve 22
Month ( ) Devolve um numero entre 0 e 12, inclusive, a representar o mês de uma determinada data.
Month(“2/12/2003”) , devolve 12
MonthName ( ) Devolve uma string a indicar o mês referente a um valor dado
Dim MeuVar
MeuVar = MonthName(10, True) ‘ MeuVar contêm “Out”.
MsgBox ( ) Mostra uma janela de diálogo, que espera por um clique do utilizador. Também não aplicável às ASP, mas sim ao VBScript do lado do cliente, e só funcionando com o Internet Explorer ( IE )
Now ( ) Devolve a data e hora corrente de acordo com os ‘Settings’ do sistema computador onde o pedido está a ser efectuado

Deixe um comentário

O seu endereço de email não será publicado. Campos obrigatórios marcados com *