Destaque

Trabalhando com transações com PHP e MySQL Transações é um recurso muito interessante do MySQL, pois permite que você execute uma sequência de comandos SQL de uma só vez, permitindo que você execute determinadas inserções, somente se todas as inserções forem realizadas com sucesso. Isto assegura que você mantenha seu banco...

Read more

PHP: Detectando Browsers diferentes Segue uma função simples abaixo para detectar o navegador que o usuário está usando, inclusive para o Internet Explorer 10

Read more

Windows Seven: Ativando a conta de Administrador Por padrão, a conta de Administrador no Windows Seven vem desabilitada, portanto, mesmo se você possui permissões de Administrador no sistema, sempre que for necessário alguma tarefa específica, como por exemplo, instalação de softwares ou drivers, o Controle de Conta de Usuário (UAC) será acionado,...

Read more

PHP: Função só número com Expressão Regular Existe uma função no PHP que permite filtrar valores de uma variável, deixando passar somente os valores que desejamos. Veja no exemplo abaixo function soNumero($str) { return preg_replace("/[^0-9]/", "", $str); } $filtro = soNumero("teste321"); echo $filtro; // 321 fonte:...

Read more

Delphi: Variáveis do tipo Variants Esta flexível e poderosa Estrutura de Dados, que popularizou-se bastante através da linguagem Clipper, carrega consigo recursos extremamente interessantes para a manipulação de tipos e trabalhos com arrays. Mas o melhor de tudo, é que, estes recursos estão disponíveis a nós, “Programadores...

Read more

Delphi: Função para tirar espaços numa string

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function TirarEspacos(Source: String): String;
var
S, strTarget: String;
I: Integer;
begin
S := Trim(Source);
strTarget := ”;

for I := 1 to Length(S) do begin
if (Copy(S,I,1) <> ‘ ‘) then
strTarget := strTarget + Copy(S,I,1);
end;
Result := strTarget;
end;

Delphi: função para calcular a idade

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function CalculaIdade(Data: TDateTime): Integer;
var
a1,m1,d1, a2, m2, d2: word;
Idade: Integer;
begin
DecodeDate(Data, a1, m1, d1);
DecodeDate(Date, a2, m2, d2);
Idade := a2 – a1;
if m2 <>
Idade := Idade – 1
else if m2 = m1 then begin
if d2 <>
Idade := Idade – 1;
end;
CalculaIdade := Idade;
end;

Delphi: função generica para rodar um sql já retornando o valor de um campo

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function pSQL(Tabela, CampoProcura, CampoRetorno, ValorFind : string) : string ;
var
MyQuery : TSQLQuery;
Valor,
Campo : String;
I : Integer;
begin
if ValorFind <> ” then
begin
pSQL := ” ;
MyQuery := TSQLQuery.Create(DMP);
MyQuery.SQLConnection := DMConexao.SQLConexao;

MyQuery.Close ;
MyQuery.SQL.Clear ;
MyQuery.SQL.Add(‘select ‘ + CampoRetorno + ‘ from ‘ + Tabela);
MyQuery.SQL.Add(‘where’);
I := 0 ;
While CampoProcura <> ” Do
Begin
If POS(‘;’,CampoProcura) <> 0 Then
Begin
Campo := Copy(CampoProcura,1,POS(‘;’,CampoProcura)-1);
CampoProcura := Copy(CampoProcura,POS(‘;’,CampoProcura)+1,Length(CampoProcura));
Valor := Copy(ValorFind,1,POS(‘;’,ValorFind)-1);
ValorFind := Copy(ValorFind,POS(‘;’,ValorFind)+1,Length(ValorFind));
End
Else
Begin
Campo := CampoProcura;
CampoProcura := ”;
Valor := ValorFind;
ValorFind := ”;
End;
If I = 0 Then
MyQuery.SQL.Add(Campo + ‘ = ‘ + Valor)
Else
MyQuery.SQL.Add(‘ AND ‘ + Campo + ‘ = ‘ + Valor) ;
Inc(I) ;
End;

Try
MyQuery.Open;
if not MyQuery.EOF then
pSQL := MyQuery.FieldByName(CampoRetorno).AsString
else
pSQL := ‘(NÃO ENCONTRADO)’ ;
Except
pSQL := ‘(NÃO ENCONTRADO)’ ;
End;

MyQuery.Destroy ;
end
else
ValorFind := ” ;
end ;

Delphi: função para retornar a versão do sistema

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function VersaoExe(const FileName: String): String;
var
VerInfoSize, VerValueSize, Dummy: DWord;
VerInfo: Pointer;
VerValue: PVSFixedFileInfo;
V1, V2, V3, V4: Word;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, ”, Pointer(VerValue), VerValueSize);
with VerValue^ do
begin
V1 := dwFileVersionMS shr 16;
V2 := dwFileVersionMS and $FFFF;
V3 := dwFileVersionLS shr 16;
V4 := dwFileVersionLS and $FFFF;
end;
FreeMem(VerInfo, VerInfoSize);
VersaoExe := IntToStr(V1)+’.'+IntToStr(V2)+’.'+IntToStr(V3)+’.'+IntToStr(V4);
end;

Delphi: funções para calculo de juros

1

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi

{
Funçao que retorna o valor de cada parcela para financiamento ou pagamento de bens em prestaçoes.
para usar acrescente a unit Math em uses.

exemplo de uso:
nVarQualquer := VlPrestaçao(C,J,N);
ou se for um edit
editQualquer.text := FormatFloat(‘###,###.##’,VlPrestacao(C,J,N));
onde:
C representa o valor do bem (capital)
J a taxa de juros mensal no formato ‘#.##’( ex: 3,00 – tres por cento)
N é o número de parcelas, em meses.
retorna o valor de cada parcela.
}
function CalculaJurosPrestacao(C : Real; J : Real; N : Real) : Real;
begin
Result := C*((J/100)/(1-( Power(1/(1+(J/100)),N) )));
end;

{
P=VL. PRESTACAO
N=NUMERO DE PARCELAS
J=TAXA JUROS MENSAL

TAXA DE JUROS PODE SER QUEBRADO.
EX: 2.8
}
function CalculaJurosTotal(P : Real; J : Real; N : Real) : Real;
begin
Result := 1/(1/(P)*((Power((1 + J/100), N)) * J/100)/((Power((1 + J/100), N)) – 1));
end;