Funções VB Script

  Principais Funções do  VB.Net 


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 ( )
Deolve 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

 


Home         FSOFTWARES® Todos os direitos reservados.


Redirecinar: http://www.fontesbrasil.com      Melhor visualização 800 x 600