Cálculo de comissão
‘ Cálculo de comissão usando a regra de três
Public Function Comissao(valParcela, valAvista, valComissao)
Comissao = (valcomissao * (valParcela / valAvista * 100)) / 100
End Function
bkp.bat
set var1=_
set var2=-
xcopy “C:\_OrigemBKP\*.*” C:\_DestinoBKP /I/E/V/F/D/Y/C > C:\%date:~12,2%%var1%%date:~7,2%%var1%%date:~4,2%%var1
%%time:~0,2%%var2%%time:~3,2%_BKP.log
echo.
echo BACK-UP CONCLUIDO!!!
echo.
pause
exit
Importar Planilha
Public Function ImportarPlanilha()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, “tblClientes”, “C:\Clientes.xls”, True, “Clientes!a1:g35″
End Function
Mês Atual
Function MesAtual(intMes As Integer) As String
Dim myMonth As Variant
myMonth = Array(“”, “Janeiro”, “Fevereiro”, “Maro”, “Abril”, “Maio”, “Junho”, “Julho”, “Agosto”, “Setembro”, “Outubro”, “Novembro”, “Dezembro”)
MesAtual = myMonth(intMes)
End Function
Idade
Public Function Idade(DataDeNascimento As Date)
Idade = DateDiff(“yyyy”, Data_Nascimento, Now()) + Int(Format(Now(), “mmdd”) < Format(Data_Nascimento, “mmdd”))
End Function
Trabalhando Com Linhas e Colunas
Sub TrabalhandoComLinhasColunas()
Application.Columns(“B”).Delete
Application.Rows(3).Insert
Application.Rows(3).Delete
Worksheets(“Plan1″).Rows(2).Insert
End Sub
Nova Guia
sub NovaGuia()
Dim Guia As Variant
Set Guia = Sheets.Add(Type:=xlWorksheet)
Guia.Name = “Nova Guia”
end sub
Alterando o Histórico Recente
Sub HistoricoRecente()
Application.RecentFiles.Add Name:=”Ailton.xls”
End Sub
Excluir Guia
Public Function ExcluirGuia(Guia As String)
Dim x As Long
For x = 1 To Worksheets.Count
If Sheets(x).Name = Guia Then
Application.DisplayAlerts = False
Sheets(x).Delete
Application.DisplayAlerts = True
Exit ForEnd If
Next x
End Function
Contar Caracteres
Function ContarCaracteres(Celula As String)
ContarCaracteres = Len(Celula)
End Function
