Principais Funções internas do VB6

[Azurus]

Principais Funções internas do VB6

ABS => Retorna o valor absoluto de um número.

Asc => Retorna um número inteiro de 0 a 255 que representa o caractere informado na tabela ASCII Ex:

Número  = Asc(a) 'Número  = 97

Cbool => Converte um valor para boleano.

Cbyte => Converte um valor para byte.

Ccur => Converte um número para o formato de moeda.

CDate => Converte um número em data.

CDbl => Converte um número em Double.

CDec => Converte um número em decimal.

Choose => Seleciona e retorna um valor de uma lista Ex:

Teste  = (Escolha as integer,"Valor1","Valor2") 	'Pode substituir um Select Case diminuindo o tamanho do código

Chr => Converte um número inteiro em um caractere (String). Ex:

Caractere  = Chr(97) Caractere  = a 	'Função utilizada no processo de criptografia .
'OBS: o número(inteiro) deve ser maior ou igual a 0(zero) e menor ou igual a 255.

Cint => Converte um número em inteiro.

Clng => Converte um número em Long.

Command => Retorna o valor utilizado na linha de comando utilizada para "chamar" o aplicativo. Ex:

if Command <> "" then MsgBox command
'Este exemplo exibe em uma caixa de mensagem o comando utilizado (quando ele existir) 	Esta função é util para programas que editam arquivos distintos ou que trabalhem com bancos  de dados distintos.

Cos => Retorna o Co-seno de um angulo. OBS: O angulo deve ser em radianos(3,14) e não em graus(360º).

CStr => Converte um número para String. Ex:

Texto  = CStr(1)
Texto  = "1"

CurDir => Retorna o diretório corrente da aplicação.

Date => Retorna a data atual.

DateAdd => Retorna uma data (informada), com um valor de tempo(informado) adicionado a ela.

DataDiff => Retorna a diferença entre duas datas.

DatePart => Retorna uma determinada parte de uma data.

DateSrial => Retorna o valor serial de uma determinada data.

Day => Retorna o valor inteiro que representa o dia na data informada.Ex:

Dia  = Day(20/05/1984)
'Dia será igual a 20

DoEvents => Cria uma pausa na execução do programa.

ERRO => Retorna a mensagem de erro correspondente ao número informado

FileLen => Retorna o tamanho do arquivo informado.

FV => Calcula o valo futuro de uma anuidade ou prestação

GetAttr => Retorna um número inteiro que representa o(s) seu(s) atributo(s)

Hour => Retorna o inteiro que representa a hora em um valor de tempo. Ex:

Dim Hora as Integer
Hora  = Hour(12:00:15)
'Hora será igual a 12
'ou :
Hora  = Hour(Time) ' que irá retornar a hora atual.

IIF => Retorna uma de duas expressões, dependendo da avaliação de uma expressão.

InputBox => Exibe uma caixa de mensagem com entrada para digitação, e atribui este valor informado a uma variável.

InStr => Localiza uma palavra(ou conjunto de caracteres) dentro de uma variável de tipo String.

Int => Converte uma variável em inteiro , desde que esta contenha números.

IsArray => Retorna um valor boleano(True ou False) indicando se a variável informada é uma Array.

IsDate => Retorna um valor boleano (True / False) indicando se o valor informado é ou pode ser convertido em data. EX:

Resposta1 = IsDate("15/12/09")
Resposta2 = IsDate("15;12,09")
'Resposta1 = True
'Resposta2 = False 	é conveniente utilizar esta verificação antes de converter um valor para data com o CDate, evita-se assim erros do programa.

IsNumeric => Retorna um valor boleano (True / False) informando se o valor apresentado é ou não numerico. Ex:

Sub Text1_Change()
If Isnumeric(Text1.Text)  = False Then
Text1.Text = 0
End If
End Sub 	Útil no bloqueio para caixas de texto que seão submetidas a calculos matemáticos, e devem conter apenas números.

LBound => Retorna o menor elemento de uma dimensão especificada em uma Array

LCase => Converte todos os caracteres da String informada para minúsculos.Ex:

Dim email as String
email = "Edgard_39l@HotMail.Com"
email = LCase(email)
'email = "edgard_391@hotmial.com"

Left => Retorna a parte esquerda de uma String apartir da posição informada. Ex:

Dim Endereço as String
Dim Drive as String
Endereço  = "C:\minhaspasta\"
Drive = Left(Endereço, 3)
'Drive = "C:\"

Len => Retorna a quantidade de caracteres em uma string. Ex:

Dim Tamanho as Integer
Dim Texto as String
Texto  = "Teste de verificação do tamanho"
Tamanho  = Len(Texto)
'Tamanho = 31

LTrim => Retorna a String apresentada sem os espaços a esquerda.

Mid => Retorna uma parte da String informada como parâmetro. Ex:

Dim Texto as String
Dim Parte as String
Texto  = "Paralelo"
Parte  = Mid(Texto,2,3)
'Parte  = ara

Minute => Retorna um número inteiro que representa os minutos em um valor de tempo. Ex:

Dim Tempo as String
Dim Minuto as Integer
Tempo = "10:31:52"
Minuto  = Minute(Tempo)
'Minuto  = 31

Month => Retorna um inteiro que representa o mês na data apresentada. Ex:

Dim Mes as Integer
Mes = Month("12/09/2010") ' =► 9
Mes  = Month(Date) ' Mes = mes atual

MsgBox => Exibe uma caixa de mensagem padrão do Windows. Ex:

Msgbox "Teste de exibição de avisos !"

Now => Retorta o conjunto de Data e hora atuais. Ex:

Agora  = Now()

Right => Retorna a parte direita de uma string apartir do local especificado. Ex:

Texto  = "Paralelo"
Parte  = Right(Texto,3) ' Parte = elo

Rnd => Retorna um número decimal aleatório de 0(zero) a 0,999. Ex:

Dim Num as Currncy
Num  = Rnd()

RTrim => Retorna a String apresentada sem os espaços a direita. Ex:

Texto  = "Casa     "
Texto  = RTrim(Texto)
'Texto  = "Casa"

Second => Retorna um número inteiro que representa o valor dos segundo do valor de tempo apresentado.

Segundos  = Second("15:22:12")
'Segundos  = 12

Time => Retorna a hora atual configurada pelo sistema operacional. Ex:

Tempo  = Time()

Timer => Retorna número de segundos decorridos desde a meia noite do dia corrente. Ex:

Valor = Timer() 	OBS: É importante não confundir o Time com o Timer , o Time apresenta a hora atual ("hh:mm:ss") , enquanto o Timer apresenta um valor inteiro de segundos decorridos desde a meia noite.

Trim => Retorna a String apresentada sem os espaços a direita e esquerda. Ex:

Texto  = "  casa   "
Texto  = Trim(Texto)
'Texto  = "casa" 	Esta função é muito útil para corrigir entradas em cadastro de sistemas comerciais, onde os operadores costumam por acidente inserir espaços antes dos nomes de clientes, inutilizando a pesquisa por nome.

UCase => Retorna a String apresentada com todos os caracteres maiúsculos. Ex:

Texto  = "casa"
Texto  = UCase(Texto)
'Texto  = "CASA"

Year => Retorna um número inteiro que representa o ano da data informada. Ex:

Ano  = Year("15/11/2009")
'Ano  = 2009
Ano  = Year(Date)
'Retorna o ano corrente