VB Ãƀ™A€ŠÂ¬Âº O MESMO VBSCRIPT?

Glossário VBScript 
Array ( )

Descrição:
Retorna um Array
( ex. lista=Array(14,25,33) , se depois 
chamar lista(2), devolve-me 25 ) 

Asc ( )

Descrição:
Retorna o código ANSI correspondente à  letra da 

string, que é pedida. 
( ex. codigo = Asc("A") 'Devolve 65 ) 

AscB ( )

Descrição:
Em vez de devolver o código ANSI do primeiro caracter 

devolve do primeiro byte.

AscW ( )

Descrição:
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.

Atn ( )

Descrição:
Função usada para calcular o arco de tangente de um 

número.

CBool ( )

Descrição:
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)
( ex. Cbool(5=5), devolve True )

Cbyte ( )

Descrição:
Devolve uma expressão que foi convertida para o tipo 

Byte dentro das limitações do mesmo.

Ccur ( )

Descrição:
Devolve uma expressão que foi convertida para o tipo 

Currency dentro das limitações do mesmo.

Cdate ( )

Descrição:
Devolve uma data de qualquer expressão.
(ex.
data = Cdate("qualquerexpressao") 

normalmente usa-se IsDate para ver se é do tipo data e 

depois transforma-se para o tipo data.

CDbl ( )

Descrição:
Devolve uma expressão que foi convertida para o tipo 

Double dentro das limitações do mesmo.

Chr ( )

Descrição:
Devolve o caracter associado ao código ANSI.
( ex. Chr(65) devolve A )

CInt ( )

Descrição:
Devolve uma variável forçada a ser inteiro.
(ex. Cint("12") devolve 12 como numero e não como 

String)

Clng ( )

Descrição:
Devolve uma variável forçada a ser inteiro.
(ex. Cint("113123231424242342342") devolve 

113123231424242342342 como numero e não como String) 

Cos ( )

Descrição:
Devolve o Coseno de um à¢ngulo

CreateObject ( )

Descrição:
Cria e devolve a referência de um objecto.
(ex.
Set referenciaobjecto = CreateObject("comp.objecto") )
)

CSng ( )

Descrição:
Funciona como o Cint ( ), devolve uma variável do tipo 

Single, de uma qualquer variante que possa ser válida 

para o efeito.

CStr ( )

Descrição:
Devolve uma variante como sendo do tipo String
(ex.
x = CStr(12)
' x fica igual a "12", ou seja, passou um inteiro para 

String 
)

Date ( )

Descrição:
Devolve a corrente data do sistema. 

DateAdd ( )

Descrição:
Devolve uma data, onde um determinado intervalo foi 

submetido.
NovaData = DateAdd("m", 1, "31-Jan-95")
' é devolvido "28-Fev-95"

As adições possíveis são determinadas pelas seguintes 

hipóteses :
yyyy -> Ano
q -> Quarto
m -> Mês 
y -> Dia do Ano 
d -> Dia 
w -> Dia da semana 
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo

DateDiff ( )

Descrição:
devolve um numero de intervalo entre duas datas.
DiffADate = "A partir de hoje : " & DateDiff("d", Now, 

"10-12-2002") 
As diferenças possiveis a fazer estão restritas pelas 

seguintes hipóteses :
yyyy -> Ano
q -> Quarto
m -> Mês 
y -> Dia do Ano 
d -> Dia 
w -> Dia da semana 
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo

DatePart ( )

Descrição:
Devolve uma parte específica de uma dada data.
(ex. GetQuarter = DatePart("q", "11-02-1978") )

Podem-se pedir as seguintes hipóteses :
yyyy -> Ano
q -> Quarto
m -> Mês 
y -> Dia do Ano 
d -> Dia 
w -> Dia da semana 
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo

DateSerial ( )

Descrição:
Devolve uma variante do subtipo Date para um ano 

especifico, mês e dia.
DateSerial(1990 - 10, 8 - 2, 1 - 1)

DateValue ( )

Descrição:
Devolve uma variante do subtipo Date.
MinhaData = DateValue("Setembro 11, 1963") ' devolve a 

data. 

Day ( )

Descrição:
Devolve o dia de uma data
(ex. Day("12, Janeiro, 2002") devolve 12

Eval ( )

Descrição:
Valida uma expressão, do tipo Eval(5=5) devolve True 

ou False 

Exp ( )

Descrição:
Devolve a exponencial de um valor.

Filter ( )

Descrição:
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 ( )

Descrição:
Formata um valor para o seu arredondamento
MeuNumero = Fix(99.3) ' Devolve 99.
MeuNumero = Fix(-99.7) ' Devolve -99.
MeuNumero = Fix(-99.3) ' Devolve -99.

FormatCurrency ( )

Descrição:
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 ( )

Descrição:
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 ( )

Descrição:
Devolve uma expressão formatada como Number
FormatarEmNumber = FormatNumber("123123123",3)
'Devolve 123.123.123,000

FormatPercent ( )

Descrição:
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 ( )

Descrição:
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 ( )

Descrição:
Devolve a referência a um Objecto de um ficheiro.
Dim MeuObjecto
Set MeuObjecto = GetObject("C:DESENHOSSAMPLE.DRW", 

"FIGMENT.DRAWING")

GetRef ( )

Descrição:
Devolve a referência a um procedimento de um evento.

Hex ( )

Descrição:
Retorna o valor Hexadecimal de um numero.
MeuHex = Hex(10) ' Devolve A.

Hour ( )

Descrição:
Retorna um numero entre 0 e 23, inclusive, 

representando a hora do dia. 
MinhaHora = Hour(now())

InputBox ( )

Descrição:
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 ( )

Descrição:
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 ( )

Descrição:
Igual a InStr ( ), com a diferença que é usada para 

comparações de variáveis tipo Byte.

InStrRev ( )

Descrição:
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 ( )

Descrição:
Devolve o integer de uma variável numérica
MeuNumero = Int(99.8) ' Retorna 99.
MeuNumero = Int(-99.8) ' Retorna -100.

IsArray ( )

Descrição:
Devolve uma variável tipo Boolean a verificar de a 

variável é um array ou não. 

IsDate ( )

Descrição:
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 ( )

Descrição:
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 ( )

Descrição:
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 False.
MeuVar = Null ' Fica Null.
MeuCheck = IsNull(MeuVar) ' Devolve True.
MeuVar = Empty ' Fica Empty.
MeuCheck = IsNull(MeuVar) ' Devolve False.

IsNumeric ( )

Descrição:
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 ( )

Descrição:
Devolve True ou False, a indicar se uma variável é um 

objecto válido.

Join ( )

Descrição:
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 ( )

Descrição:
O LBound é usado com a função Ubound para determinar o 

tamanho de um array. 

Lcase ( )

Descrição:
Devolve uma string que foi convertida para LowerCase.
Dim MeuString
Dim LCaseString
MeuString = "VBSCript"
LCaseString = LCase(MeuString)
' LCaseString têm "vbscript".

Left ( )

Descrição:
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 ( )

Descrição:
O mesmo de Left mas para o tipo de variáveis Byte 

Len ( )

Descrição:
Devolve o numero de caracteres de uma string
Dim MeuString
MeuString = Len("VBSCRIPT") ' MeuString tem 8. 

LenB ( )

Descrição:
O mesmo da função len, mas para variáveis do tipo 

Byte.

LoadPicture ( )

Descrição:
Devolve um Objecto de imagem. Também não é utilizável 

por ASP. 

Log ( )

Descrição:
Devolve o logaritmo de um valor.

LTrim ( )

Descrição:
Devolve a cópia de uma string sem os espaços (space) 

iniciais
MeuVar = LTrim(" vbscript ") 
' MeuVar devolve "vbscript ". 

Mid ( )

Descrição:
Serve para tirar uma string entre dois valores
sai = Mid("Vamos lá programar", 7, 8) 
sai vai ficar com "lá" 

MidB ( )

Descrição:
Equivalente à  função Mid, mas para ser usada com 

variáveis do tipo Byte.

Minute ( )

Descrição:
Devolve um número entre 0 e 59, inclusive, a 

representar o minuto de uma dada hora. ( ex. 

Minute("10:22:00") , devolve 22 ) 

Month ( )

Descrição:
Devolve um numero entre 0 e 12, inclusive, a 

representar o mês de uma determinada data. ( ex. 

Month("2/12/2003") , devolve 12 ) 

MonthName ( )

Descrição:
Devolve uma string a indicar o mês referente a um 

valor dado
Dim MeuVar
MeuVar = MonthName(10, True) ' MeuVar contêm "Out".

MsgBox ( )

Descrição:
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 ( )

Descrição:
Devolve a data e hora corrente de acordo com os 

'Settings' do sistema computador onde o pedido está a 

ser efectuado.

Oct ( )

Descrição:
Devolve uma string a representar o valor Octal de um 

número 

Replace ( )

Descrição:
Devolve uma string onde uma substring foi trocada por 

uma outra.
Replace("XXpXXPXXp", "p", "Y")
' o resultado é "XXYXXPXXY". 

RGB ( )

Descrição:
Devolve um numero a representar uma valor de cor RGB.

Right ( )

Descrição:
Devolve um numero específico de caracteres do lado 

direito de uma string.
Dim MeuString, Resultado
MeuString = "VBScript"
Resultado =Right(MeuString, 6) ' Resultado tem 

"Script".

RightB ( )

Descrição:
Faz o mesmo de Right ( ), com a aprticularidade de ser 

para variáveis do tipo Byte 

Rnd ( )

Descrição:
Devolve um numero aleatório.
Antes de se usar esta função, use Randomize, para ele 

se basear no relógio do sistema e desta maneira não 

repetir valores. 

Round ( )

Descrição:
Devolve um numero aredondado à s décimas
Dim MeuVar, pi
pi = 3.14159
MeuVar = Round(pi, 2) ' MeuVar contêm 3.14.

RTrim ( )

Descrição:
Devolve a cópia de uma string sem os espaços (space) 

finais
MeuVar = RTrim(" vbscript ") ' MeuVar devolve " 

vbscript" 

ScriptEngine ( )

Descrição:
Devolve uma string representativa da linguagem de 

script que está a ser usada.

SEBV ( )

Descrição:
ScriptEngineBuildVersion ( )
Devolve o número da versão de criação do sistema de 

scripting que está a ser usado. 

Second ( )

Descrição:
Devolve um numero entre 0 e 59, inclusive, a 

representar os segundos de um dado minuto.
( ex. Second ( "12:22:16" ) , devolve 16 )

SEMV ( )

Descrição:
ScriptEngineMajorVersion
Devolve o valor maior do número da versão do sistema 

de Scripting que está a ser usado 

SetLocale ( )

Descrição:
Adapta o Locale global, e devolve o anterior Locale

Sgn ( )

Descrição:
Esta função devolve o sinal de um numero
MeuyVar1 = 12: MeuVar2 = -2.4: MeuVar3 = 0
MeuSinal = Sgn(MeuVar1) ' Devolve 1.
MeuSinal = Sgn(MeuVar2) ' Devolve -1.
MeuSinal = Sgn(MeuVar3) ' Devolve 0.

Sin ( )

Descrição:
Devolve o seno de um à¢ngulo

Space ( )

Descrição:
Devolve uma string com um número determinado de 

espaços ( spaces ) 

Split ( )

Descrição:
Devolve um array com um numero especificado de 

substrings.
Dim MeuString, MeuArray, Msg
MeuString = "VBScriptXéXgiro!"
MeuArray = Split(MyString, "x", -1, 1)
' MeuArray(0) tem "VBScript".
' MeuArray(1) tem "é".
' MeuArray(2) tem "giro!".
Msg = MeuArray(0) & " " & MeuArray(1)
Msg = Msg & " " & MeuArray(2)
Response.write Msg

Sqr ( )

Descrição:
Devolve a raíz quadrada de um numero
MeuSqr = Sqr(4) ' Devolve 2.
MeuSqr = Sqr(23) ' Devolve 4.79583152331272.
MeuSqr = Sqr(0) ' Devolve 0.
MeuSqr = Sqr(-4) ' Gera um erro

StrComp ( )

Descrição:
Devolve um valor a indicar o resultado de uma 

comparação
Dim MeuStr1, MeuStr2, MinhaComp MeuStr1 = "ABCD": 

MeuStr2 = "abcd" ' Define-se as variáveis.
MinhaComp = StrComp(MeuStr1, MeuStr2, 1) ' Devolve 0.
MinhaComp = StrComp(MeuStr1, MeuStr2, 0) ' Devolve -1.
MinhaComp = StrComp(MeuStr2, MeuStr1) ' Devolve 1.

String ( )

Descrição:
Devolve uma string com um número repetitivo de 

caracters pedidos.
(ex. String(5, "*") ' devolve "*****". )

StrReverse ( )

Descrição:
Devolve uma string com os caracteres iniciais 

invertidos
(ex.
StrReverse("VBScript") ' devolve "tpircSBV".
) 

Tan ( )

Descrição:
Devolve a tangente de uma determinado à¢ngulo.

Timer ( )

Descrição:
Devolve o número de segundos que passaram desde a 

meia-noite 12:00 Am ou 00:00 horas 

TimeSerial ( )

Descrição:
Devolve a variante de um subtipo Date, que contem o 

tempo para uma especificada hora, minutos e segundos.

TimeValue ( )

Descrição:
Devolve a variante de um subTipo Date, contendo as 

horas.
Dim MinhaHora
MinhaHora = TimeValue("4:35:17 PM") 
' devolve 4:35:17 PM. 

Trim ( )

Descrição:
Devolve a cópia de uma string sem os espaços iniciais 

e finais (space) 
MeuVar = Trim(" vbscript ") ' MeuVar devolve 

"vbscript". 

TypeName ( )

Descrição:
Devolve uma string representativa do tipo de variável 

que é pedido
TypeName("VBScript") ' Devolve "String".
TypeName(4) ' Devolve "Integer".
TypeName(37.50) ' Devolve "Double".

UBound ( )

Descrição:
Devolve a maior ocorrência para um indicado tamanho de 

array.

UCase ( )

Descrição:
Devolve uma string que foi convertida para uppercase
( ex. UCase("portugal") ' devolve "PORTUGAL". ) 

VarType ( )

Descrição:
Devolve um valor a indicar qual o tipo de variável que 

estamos a usar.
MeuCheck = VarType(300) ' Devolve 2.
MeuCheck = VarType(#10/19/62#) ' Devolve 7.
MeuCheck = VarType("VBScript") ' Devolve 8.

Os valores acima devolvidos são representativos de :
0 -> Empty (uninitialized) 
1 -> Null (no valid data) 
2 -> Integer 
3 -> Long integer 
4 -> Single-precision floating-point number 
5 -> Double-precision floating-point number 
6 -> Currency 
7 -> Date 
8 -> String 
9 -> Automation object 
10 -> Error 
11 -> Boolean 
12 -> Variant (used only with arrays of Variants) 
13 -> A data-access object 
17 -> Byte 
8192 -> Array

WeekDay ( )

Descrição:
Devolve um número representativo do dia da semana
MinhaData = #Outubro 19, 1962# 
MeuDiaSemana = Weekday(MinhaData) 
' vai ser devolvido 6, porque representa uma 

Sexta-Feira

WeekdayName ( )

Descrição:
Retorna uma string a representar o dia da semana
MinhaData = WeekDayName(6, True)
' Minha data contém Sex 

Year ( )

Descrição:
Devolve um numero a representar o ano, de uma 

determinada data. ( sistema idêntico ao de month, day 

etc. )