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ções de manipulação de nome de arquivos

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
Function FileNameToExt(Arq,Ext: String):String;
Var
P : Byte;
begin
P := LastPos(‘.’,Arq);
if p = 0 then
Arq := Arq + ‘.’ + Ext
else
Arq := Copy(Arq,1,p)+Ext;
FileNameToExt := Arq;
End;

Function LastPos(S: Char; St: String):Integer;
Var
p : Byte;
achou : Boolean;
Begin
p := Length(st);
achou := False;
while (P > 0) and (Not Achou) do
if st[p] = s then
achou := True
else
p := p – 1;
LastPos := p;
End;

function pSoNomeArq(cPath: String): String;
var
p1: Integer;
begin
p1 := LastPos(‘\’,cPath);
if p1 = 0 then
pSoNomeArq := ”
else
pSoNomeArq := Copy(cPath,p1+1,Length(cPath));
end;

function pSoExtArq(cPath: String): String;
var
p1: Integer;
begin
p1 := LastPos(‘\’,cPath);
if p1 = 0 then
pSoExtArq := ”
else
pSoExtArq := Copy(cPath,1,p1-1);
end;

Delphi: Último dia do mês

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function UltDiaMes(Data: TDateTime):Word;
const
aMes : Array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);
var
pAno, pMes, pDia: Word;
begin
DecodeDate(Data, pAno, pMes, pDia);
if pMes = 2 then
if AnoBis(pAno) then
UltDiaMes := aMes[pMes] + 1
else
UltDiaMes := aMes[pMes]
else
UltDiaMes := aMes[pMes];
end;

** Outra coisa que pode se fazer também é montar o proximo dia, exemplo o último dia de fevereiro de 2009:

var
UltimoDia: integer;
begin
UltimoDia := EncodeDate(2000, 03, 01)-1;
end;

Delphi: Função para preenchar caracteres numa string

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function pFillChar(s, a: string; i, p: integer ): string;
var
aux: integer;
begin
aux := 0;
s := pValidateChar(s);
if Length(s) > i then
s := Copy(s, 1, i)
else begin
while Length(s) <>
if p = 2 then begin
if aux = 0 then begin
s := s + a;
aux := 1;
end else begin
s := a + s;
aux := 0
end;
end else if p = 0 then
s := s + a
else
s := a + s;
end;
end;
pFillChar := s;
end;

Delphi: Função para converter acumulando horas

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function GetHours(T: TDateTime): string;
{Transforma TDateTime em número de horas}
var
i: real;
begin
i := 24 * T; {Multiplica por 24 p/ obter número de horas}
Result := IntToStr(Trunc(i)) + ‘:’ + {Horas}
FormatFloat(’00′, Trunc(Frac(i)*60+0.01)) //+ ‘:’ + {Minutos}
// FormatFloat(’00′, Trunc(Frac(Frac(i)*60+0.01)*60)); {Segundos}
end;

Delphi: Calcula quandos fins de semana existem num periodo

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function CalcWeekEnds( Dt1, Dt2: TDateTime): integer;
var
I, Dias, n: integer;
a, m, d: word;
Data: TDateTime;
begin
n := 0;
Dias := (Trunc(Dt2) – Trunc(Dt1)) + 1;
DecodeDate(Dt1, a, m, d);
for I := 0 to Dias – 1 do begin
Data := EncodeDate(a, m, d) + I;
if not (DayOfWeek(Data) in [2..6]) then
n := n + 1;
end;
CalcWeekEnds := n;
end;

Delphi: funções para calculo de tempo util (trabalhado)

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function CalcTempoUtilSemAlmoco(D1, D2: TDateTime): TDateTime;
var
T1, T2, Dif, WeekEnds, I, Diferenca: Integer;
Dias, H1, H2: TDateTime;
begin
// Calcula a diferença em dias
Dif := Trunc(D2) – Trunc(D1);
if Dif = 0 then begin
// Calcula somente a diferença em HORAS
Dias := (D2-D1);
H1 := StrToTime( Copy(TimeToStr(Frac(D1)),1,LastPos(‘:’,TimeToStr(Frac(D1)))-1) );
H2 := Frac(D2);

Delphi: Função iif para usar em uma linha

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function IIF( Expressao: Boolean; CasoVerdadeiro, CasoFalso: String): String;
begin
if Expressao then Result := CasoVerdadeiro else Result := CasoFalso;
end;
** Essa é simplesmente a função q mais uso .. ;D

Delphi: Cria mascara para CPF e CNPJ

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function MaskCgcCpf(S: String): String;
begin
S := FilterNumber(S);
if Length(S) = 11 then begin
Insert(‘.’, S, 04);
Insert(‘.’, S, 08);
Insert(‘-’, S, 12);
end else begin
Insert(‘.’, S, 03);
Insert(‘.’, S, 07);
Insert(‘/’, S, 11);
Insert(‘-’, S, 16);
end;
Result := S;
end;

Delphi: Soma dias uteis tirando sabados e domingos num periodo

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function SomaDiasUteis(Data: TDateTime; Dias: Integer): TDateTime;
var
dt: TDateTime;
nD: Integer;
begin
dt := Trunc(Data);
nD := 0;
if Dias > 0 then begin
while nD <>
if DayOfWeek(Dt) in [2..6] then
Inc(nD);
if nD <= Dias then
dt := dt + 1;
end;
end else begin
while nD > Dias do begin
dt := dt – 1;
if DayOfWeek(Dt) in [2..6] then
Dec(nD);
end;
end;
SomaDiasUteis := dt;
end;

Delphi: Função para tirar acentos

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
function TirarAcentos(Source: String): String;
var
vCom, vSem, strTarget: String;
I, Y, Z: Integer;
begin
vCom := ‘ÁÀÃÄÂÉÈËÊÍÌÏÎÓÒÕÖÔÚÙÜÛÇáàãäâéèëêíìïîóòõöôúùüûç/’;
vSem := ‘AAAAAEEEEIIIIOOOOOUUUUCaaaaaeeeeiiiiooooouuuuc_’;
strTarget := ”;
for I := 1 to Length(Source) do begin
Z := 0;
for Y := 1 to Length(vCom) do begin
if (Copy(Source,I,1) = Copy(vCom,Y,1)) then begin
strTarget := strTarget + Copy(vSem,Y,1);
Z := 1;
Break;
end;
end;
if Z = 0 then
strTarget := strTarget + Copy(Source,I,1);
end;
Result := strTarget;
end;