Jump to content
ALEX.SALVES

Calculo Datas

Recommended Posts

Sou iniciante em delphi e surgiu uma duvida que nao consegui resolver nem encontrar nenhum assunto na internet sobre isso;

 

Estou iniciando um programa de banco de dados de controle de animais bovinos, onde em uma tabela cadastro os dados das matriz e em outra os nasicmento dessas matrizes; De maneira bem simples, e utilizando tabelas paradox consegui realizar esses procedimentos;

 

Porem na tela de informar os nascimentos dessas matrizes tem um DBEdit onde informo a data de nascimento (data do parto da matriz) desse animal, queria se possivel colocar a frente uma Label contendo a data da desmana desse animal contendo um algoritmo calculando a data do nascimento informado + 270 dias (9meses) por exemplo:

 

Data de Nascimento: 01/06/2016 Data Desmama: 29/02/2017 (Data Nascimento + 270 dias ou 9 Meses) ;

 

Será Possivel?

Share this post


Link to post
Share on other sites

Olá Alex boa tarde,

 

Para pegar o intervalo em dias entre as datas você pode estar utilizando o seguinte código.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.DateUtils, Vcl.StdCtrls,
  Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(DaysBetween(DateTimePicker1.DateTime, DateTimePicker2.DateTime));
end;

end.

 

Espero ter ajudado

 

att.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.