Introdução
Nas nossas aplicações comerciais muitas vezes precisamos interagir com ferramentas externas, o que nos leva a buscar funções do Delphi como WinExec, a mais conhecida, mas que também só é utilizada por compatibilidade.
Iremos verificar nesta dica como utilizar o ShellExecute
Leia mais: Usando ShellExecute para executar aplicativos externos
Eu montei uma lista de sites que disponibilizem cursos on-line que tenho tido algum tipo de contato, não tive a oportunidade de fazer todos, claro, mas são muito interessantes.
A maioria dos cursos são relacionados a tecnologia e programação de sistemas.
Select
/*diferenca de anos entre DATANASC E ADMISSAO */
datediff(year from DATANASC to DATAADMISSAO ) ANOS_DATANASC_ADMISSAO,
/*diferenca de dias entre a data de DATAADMISSAO e a data atual*/
datediff(day from DATAADMISSAO to current_timestamp) DIAS,
/*calcula horas restantes*/
trunc(trunc(cast(datediff(minute from DATAADMISSAO to current_timestamp) as numeric(9,2)) / 60) -
(datediff(day from DATAADMISSAO to current_timestamp) * 24)) HORAS,
Estamos na reta final, faltam apenas 4 meses para o ano acabar, e no início do ano, se escuta muitas expressões, tais como: “Aaah, TCC? Tenho um ano para fazer isso”. O que posso dizer é que já sofri muito com as minhas delongas para iniciar e terminar meus projetos. Resolvi escrever este artigo, com base nas minhas frustrações e experiências, com o objetivo de ajudar os leitores a não cometer os mesmos erros que cometi.
Qual é o significado da palavra procrastinar? Segundo o dicionário
Não deixe de conhecer, emwww.ebookspsi.com, a seção de livros sobre procrastinação. Aproveite também para conferir a seção exclusiva de e-books com orientações e dicas sobre a escrita científica.
Click agora! Você sabe o que vai acabar acontecendo se deixar para depois...
Veja abaixo alguns exemplos...
Vencendo a Procrastinação
1) Só sente para escrever
CREATE PROCEDURE FU_ABS( WVAR DOUBLE PRECISION) RETURNS ( R_ABS DOUBLE PRECISION) AS begin /* devolve o valor Absoluto de um número. -123,47 ou 123,47 devolve sempre 123,47 */ if (:wvar is not null) then begin if (:wvar < 0.0000) then r_abs = :wvar * -1; else r_abs = :wvar; end
suspend; end
=================================== CREATE PROCEDURE FU_ALLTRIM( WVAR VARCHAR(8192)) RETURNS ( R_ALLTRIM VARCHAR(8192))
