Re: [delphi-br]Ferveu a cuca!

Almir Paulo Effgen Thu, 09 Feb 2006 09:58:54 -0800

Valeu, Eleandro, show de bola.
   
  Era isso mesmo que eu queria.
   
  Um abração.


Eleandro GMail <[EMAIL PROTECTED]> escreveu:
  Almir tai um exemplo bem facil

Abraços 


Eleandro


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label4: TLabel;
    MaskEdit3: TMaskEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  data_inicial, data_Final, Resultado_contrario : Tdate;
  resultado : Real;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
data_inicial := strtodate(maskedit1.Text);
data_final := strtodate(maskedit2.Text);
Resultado :=  (data_final - data_inicial);
edit1.Text := floattostr(Resultado);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Resultado_contrario := data_inicial + Resultado;
maskedit3.Text := datetostr(Resultado_contrario);
end;

end.


  ----- Original Message ----- 
  From: Almir Paulo Effgen 
  To: Delphi Grupo 
  Sent: Thursday, February 09, 2006 2:12 PM
  Subject: [delphi-br]Ferveu a cuca!


  Pois é pessoal, minha cabeça está pirando.
    Dentro do meu aplicativo, preciso construir um prazímetro.
    Explico:
    Entro com a data inicial depois a data final, o resultado em número de dias.
    01/03/06 + 25/07/06 = 147 dias, esse eu consegui fazer.
    O problema é o inverso.
    01/03/06 + 147 dias, teria que dar 25/07/06, mas não sei como fazer.
    Tentei usar DaysBetween(), mas não consegui chegar a lugar nenhum.
    Alguém poderia me ajudar.
     
    Agradeço,
    Almir
     

              
  ---------------------------------
  Yahoo! Acesso Grátis 
  Internet rápida e grátis. Instale o discador agora!

  [As partes desta mensagem que não continham texto foram removidas]



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por: 
              PUBLICIDADE
                
       


------------------------------------------------------------------------------
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
      
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
      
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por:            PUBLICIDADE
    var lrec_target="_blank";var lrec_URL=new Array();  
lrec_URL[1]="http://br.ard.yahoo.com/SIG=12fv225q8/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139513601/A=3283959/R=0/id=flashurl/SIG=155e6uuj2/*http://lt.dell.com/lt/lt.aspx?CID=11234&LID=309478&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%26l%3dpt%26s%3ddhs";;
  var 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.swf?clickTAG=javascript:LRECopenWindow(1)";
  var 
lrec_altURL="http://br.ard.yahoo.com/SIG=12fv225q8/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139513601/A=3283959/R=1/id=altimg/SIG=155e6uuj2/*http://lt.dell.com/lt/lt.aspx?CID=11234&LID=309478&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%26l%3dpt%26s%3ddhs";;
  var 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.jpg";;
  var
 lrec_width=300;var lrec_height=250;      
  
---------------------------------
  Links do Yahoo! Grupos
    
   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
    
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
    
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



                
---------------------------------
 Yahoo! Acesso Grátis 
Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Re: [delphi-br]Ferveu a cuca!

Responder a