Jhonas

veja se é isso http://www.planetadelphi.com.br/dica/4672/imprimindo-boletos-bancarios-em-delphi abraço

exemplos que o ajudarão nessa dúvida: http://www.planetadelphi.com.br/artigo/133/usercontrol---controlando-usu%C3%A1rios-e-definindo-o-perfil---parte-2/ http://www.planetadelphi.com.br/download/3815/arquivo/permita-seu-cliente-definir-niveis-aos-menus-de-sua-aplicacao http://videos.tol.pro.br/portal/video/v-XWoN7Ytxglw/aula%20855%20delphi%207%20avancado%20-%20N%C3%ADvel%20de%20acesso%20no%20Menu. http://www.linhadecodigo.com.br/artigo/822/delphi-controle-de-acesso-treeview-para-gerenciamento-de-usuarios.aspx abraço

voce pode ordenar as datas no proprio excel http://office.microsoft.com/pt-pt/excel-help/ordenar-por-datas-HA102809346.aspx para separar os dados, primeiro voce deve importar os dados da planilha para o delphi ( usando banco de dados ou outro componente ) varios exemplos na net https://www.google.com.br/?gfe_rd=cr&ei=ufqgU6DTEoqJqQW-y4GoCA&gws_rd=ssl#q=importar+dados+do+excel+para+o+delphi+7 voce pode usar uma função do delphi para separar os dados de acordo com a data de cada um em um intervalo descrito. exemplo uses DataUtils; var dias : TDate; dias := DaysBetween(Data1, Data2); OBS: essa função vai retornar o numero de dias entre as datas, e a partir dai voce usa esse numero ( contador ) para separar as datas na net tem mais exemplos https://www.google.com.br/?gfe_rd=cr&ei=TP2gU47NBs3EqAXj_IG4Bg&gws_rd=ssl#q=intervalo+de+dadas+delphi abraço

além dos componentes nativos do delphi , vai encontrar outros nesse link http://www.tmssoftware.com/site/advchart.asp abraço

tenta assim procedure TForm1.Button1Click(Sender: TObject); var MColor:TColor; hora_inicio, hora_lim, hora_entra, hora_atraso, hora_test,hora_redu :TTime; begin hora_inicio := strtotime(edit13.Text); //hora de inicio 08:00 h hora_entra := strtotime(edit6.Text); //hora de entrada 08:15 h hora_atraso := hora_entra - hora_inicio; hora_test:=strtotime(slabel1.Caption); //hora do relogio hora_lim:=strtotime(edit15.Text); // hora limite 09:00 h if (hora_atraso <> 0) and (hora_test >= hora_entra) and (hora_test <= hora_lim) then begin MColor:=clred; slistbox2.Items.Add('Funcionário esta Atrasado em '+timetostr( hora_atraso)); slistbox2.Font.Color:=MColor; end; end; abraço

amigo sem ver o seu código fica dificil te judar veja esse exemplo ( controle de funcionarios ), para ver se te ajuda http://www.jobtecltda.com.br/programacao/delphi/funcionario.zip abraço

ele acusa o atraso mais só uma vez depois não acusa do p´roximo func... a onde voce esta zerando a variavel cc ? cc := 0; /// sempre que for testar o proximo voce deve zerar a variavel abraço

não utilizo o INNO, mas se não me engano ele é usado como um programa de instalação de software desenvolvido em delphi o código que te passei, voce pode utilizar atraves do proprio delphi usando o comando winexec, shellExecute ou atraves de bat https://br.answers.yahoo.com/question/index?qid=20070808170001AAoEOII abraço

não tem segundo if ... somente esse que vai valer para qualquer entrada de tempo a logica : zerar variavel cc dar entrada de tempo do primeiro funcionario testar se houve atraso e mostrar mensagem zerar variavel cc dar entrada de tempo do segundo funcionario testar se houve atraso e mostrar mensagem zerar variavel cc dar entrada de tempo do terceiro funcionario testar se houve atraso e mostrar mensagem assim por diante OBS: a logica varia de programador para programador ... então voce pode fazer isso de um jeito, mas pode tambem fazer de outro ... varia conforme a experiencia do programador abraço

o lance não é somente apresentar na tela o atraso, mas tambem gravar o tempo de atraso .... a rotina para apresentar o atraso é a mesma para todos ( ou seja a cada entrada de dados ) para cada funcionario que voce der entrada no tempo, basta subtrair do tempo inicial .... leve em conta que para cada novo funcionario a variavel cc devera ser zerada e voce devera testar tambem se realmente houve atraso if cc = 1 then begin hora_inicio := strtotime('08:00:00'); hora_entra := strtotime('08:15:00'); hora_atraso := hora_entra - hora_inicio; if hora_atraso > 0 then showmessage('Tempo de Atraso : '+timetostr( hora_atraso )); end; abraço

não tem erro nenhum unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; cc : integer = 0; // tem que declarar a variavel aqui implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var hora_inicio, hora_entra, hora_atraso :TTime; begin inc (cc); if cc = 1 then begin hora_inicio := strtotime('08:00:00'); hora_entra := strtotime('08:15:00'); hora_atraso := hora_entra - hora_inicio; showmessage('Tempo de Atraso : '+timetostr( hora_atraso )); end; end; end. obs: isso é apenas um exemplo, para voce ter a idéia de como usar abraço

voce deve usar uma variavel de controle ... uma coisa bem simples voce define uma variavel tipo inteiro ... depois basta incrementar essa variavel sempre que clicar no botão veja que o código sera executado somente uma vez ... ate que a variavel cc seja zerada novamente var cc : integer; procedure TForm1.Button1Click(Sender: TObject); var hora_inicio, hora_entra, hora_atraso :TTime; begin inc (cc); if cc = 1 then begin hora_inicio := strtotime('08:00:00'); hora_entra := strtotime('08:15:00'); hora_atraso := hora_entra - hora_inicio; showmessage('Tempo de Atraso : '+timetostr( hora_atraso )); end; end; abraço

exemplo procedure TForm1.Button1Click(Sender: TObject); var hora_inicio, hora_entra, hora_atraso :TTime; begin hora_inicio := strtotime('08:00:00'); hora_entra := strtotime('08:15:00'); hora_atraso := hora_entra - hora_inicio; showmessage('Tempo de Atraso : '+timetostr( hora_atraso )); end; abraço

coloque o código onde o programa grava a entrada e a saida

verifique as Configurações Regionais do Windows ( veja o formato da data e hora do wondows ) se o formato for mudado o select não vai trazer os dados corretamente. abraço

então tente usar o componente Minimizer ( voce encontra na net ) para o delphi abraço

use # Windows Logo + M: Minimizar tudo # SHIFT + Logotipo do Windows + M: Desfazer minimizar tudo ou voce tenta minimizar pelo proprio programa abraço

Basta atualizar essa DLL pegando a mesma do Delphi 2010 (Download rlink32) e substituir abraço

veja esse exemplo #include <stdio.h> int main() { float notas[3]; printf("Insira sua primeira nota: "); scanf("%f", &notas[0]); printf("Insira sua segunda nota: "); scanf("%f", &notas[1]); notas[2] = (notas[0] + notas[1])/2; printf("Sua media e: %.2f\n", notas[2]); /// <= como mostrar o conteudo do vetor } abraço

Veja o basico para poder entender como proceder http://www.inf.ufpr.br/ci208/NotasAula/notas-1_Programa_c_cao_Basica_em_.html abraço

veja esse artigo primeiro http://meusite.mackenzie.br/paulinong/C_programming/aloMamae/aloMamae.html abraço

veja esse exemplo https://docs.google.com/uc?id=0B6U47mZeGEVDTF9WVC1fY2RfM28&export=download&hl=pt_BR abraço

exemplo private Bitmap MyImage ; public void ShowMyImage(String fileToDisplay, int xSize, int ySize) { // Sets up an image object to be displayed. if (MyImage != null) { MyImage.Dispose(); } // Stretches the image to fit the pictureBox. pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage ; MyImage = new Bitmap(fileToDisplay); pictureBox1.ClientSize = new Size(xSize, ySize); pictureBox1.Image = (Image) MyImage ; } abraço

veja se ajuda http://www.ime.usp.br/~pf/algoritmos/aulas/quick.html abraço

veja a partir da pagina 11 dessa apostila .. acho que traz alguma referencia ao assunto http://www.google.com.br/url?sa=t&rct=j&q=&esrc=s&source=web&cd=10&ved=0CGUQFjAJ&url=http%3A%2F%2Fwww.inf.ufsc.br%2F~fristtram%2FApostila_C_Cplusplus.pdf&ei=LPWJU5vPEdbesASzqoCgDw&usg=AFQjCNESj59BxO7zn-w2NWHrZ5z2GTmMvA&bvm=bv.67720277,d.cWc&cad=rja abraço