Mit Delphi Alter berechnen

**Funnygirly**

Hallo,

ich habe hier eine Aufgabe, komme aber nicht richitg damit zurecht:

-In einem Formular soll man das Alter in einer Edit-Komponente angeben können. Anschließend wird das Alter in Tage,Stunden,Minuten und Sekunden umgerechnet und auf dem Formular ausgegeben.

Kann mit vielleicht jemand dabei helfen wie man das am besten macht?

Ich habe schon mal angefangen, komme aber nicht weiter...in dem Abteil "begin" ist etwas falsch..aber was? was soll ich da anderst machen udn warum?
so sieht es bei mir aus:

zusammenfalten · markieren

Delphi-Quellcode:

			unit uAlter;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TFrmAlter = class(TForm)

    Label1: TLabel;

    EdtAlter: TEdit;

    Label2: TLabel;

    EdtTage: TEdit;

    EdtStunden: TEdit;

    EdtMinuten: TEdit;

    EdtSekunden: TEdit;

    LblTage: TLabel;

    LblStunden: TLabel;

    LblMinuten: TLabel;

    LblSekunden: TLabel;

    BtnAlter: TButton;

    procedure BtnAlterClick(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  FrmAlter: TFrmAlter;

implementation

{$R *.dfm}

procedure TFrmAlter.BtnAlterClick(Sender: TObject);

var tag,stu,min,sek:integer;

begin

  Tage:=StrToInt(EdtTage.Text)*365;

  Stunden:=StrToInt(EdtStunden.Text)*8760;

  Minuten:=StrToInt(EdtMinuten.Text)*525600;

  Sekunden:=StrToInt(EdtSekunden.Text)*31536000;

  Tage:=IntToStr(EdtTage.Text);

  Stunden:=IntToStr(EdtStunden.Text);

  Minuten:=IntToStr(EdtMinuten.Text);

  Sekunden:=IntToStr(EdtSekunden.Text);

end;

end.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

Mit Delphi Alter berechnen

Mit Delphi Alter berechnen

Forumregeln