Mit Delphi Alter berechnen

[ToFaceTeKilla]

Edit2: Beitrag wegen Redundanz entfernt. Ihr seid mir zu schnell ^^

[himitsu]

hier mal der Quellcode des meines Programmes von dort http://www.delphipraxis.net/internal...t.php?t=165272

Delphi-Quellcode:

Procedure TForm1.DateTimePicker1Change(Sender: TObject);
  Var T: TDateTime;

  Begin
    If CheckBox1.Checked Then Begin
      DateTimePicker1.Date := Now;
      DateTimePicker2.Time := Now;
    End;
    If CheckBox2.Checked Then Begin
      DateTimePicker3.Date := Now;
      DateTimePicker4.Time := Now;
    End;
    Timer1.Enabled := CheckBox1.Checked or CheckBox2.Checked;
    T := Trunc(DateTimePicker1.Date) + Frac(DateTimePicker2.Time);
    T := Trunc(DateTimePicker3.Date) + Frac(DateTimePicker4.Time) - T;
    Edit1.Text := IntToStr(Round(T));
    Edit2.Text := IntToStr(Round(T * 24));
    Edit3.Text := IntToStr(Round(T * 24 * 60));
    Edit4.Text := IntToStr(Round(T * 24 * 60 * 60));
    Edit5.Text := Format('%d Tage %d Stunden %d Minuten %d Sekunden', [
      Trunc(T), Trunc(T * 24) mod 24, Trunc(T * 24*60) mod 60,
      Trunc(T * 24*60*60) mod 60]);
  End;

In Edit5 wird die Differenz in Tage-Stunden-Minuten... zerlegt

Dieses mußt du mit deinen Edits erstmal andersrum machen,
also die Zeitangaben der einzelnen Edits erstmal in eine einheitliche Größe umrechnen
und dann einfach summieren.

Ja und danach kannst du diesen Wert dann wieder in die Einheiten zerlegen, welche du letztendlich haben willst.

[Funnygirly]

ah ok jetzt zeigt er die zeile nicht mehr als falsch an...
aber wieso wird das so anders geschrieben?:

EdtTage.Text:=IntToStr(StrToInt(EdtAlter.Text)*365);

[Klaus01]

type EdtTage.Text = String
IntToStr() macht aus einem Integer einen String
StrToInt(EdtAlter.Text) macht aus einem String einen Integer

Grüße
Klaus

[Funnygirly]

ich wollte mich nochmal bei euch allen bedanke, für die schnelle hilfe. jetzt funktioniert es! vielen dank! ich bin so froh, dass ich das endlich hinbekommen habe. wenn ich so ähnliche aufgaben bearbeiten muss, sollte ich das dann so in der art wissen, wie wir das hier gerade aufgebaut haben, also muss man sowas auswendig lernen oder geht das einem bestimmten prinzip nach?

mfg

[himitsu]

Zitat von Funnygirly:

also muss man sowas auswendig lernen oder geht das einem bestimmten prinzip nach?

Das Prinzip ist, daß es verschiedene (Daten)Typen gibt, mit welchen man unterschiedliche Dinge machen kann und welche nicht kompatibel sind.

im Edit gibst du Strings ein, aber mit diesen kann man nicht rechnen
mit einem Integer könnte man etwas berechnen

also mußt du bei der Eingabe erstmal den String in einen Integer (oder einen anderen passenden Typen) umwandeln,
kannst damit dann etwas berechnen und zur Ausgabe wieder in einem Edit muß das Rechenergebnis natürlich irgendwie wieder in einen String umgewandelt werden.

[Wolfgang Mix]

@All

Zitat:

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.

Für mich ist die Fragestellung schon mehrdeutig.
Anscheinend wird davon augegangen, daß jedes Jahr 365 Tage hat und die Eingabe von 20 Jahren absolut
20 Jahre und keine Sekunde mehr meint.
Wenn der Geburtstag, Systemdatum von heute und Schaltjahre mitspielen, geht die Arbeit erst richtig los

Gruß

Wolfgang

[p80286]

@Wolfgang

jo da hast Du verdammt recht, aber da ich einige Aufgabenstellungen von meiner Tocher (besser der Lehrer meiner Tochter) mitbekommen habe, will ich die Aufgabenstellung nicht in Frage stellen.

Ich hatte einen Lehrer einmal auf so etwas angesprochen, als Antwort kam dann "...man darf die Kinder nicht überfordern"

Gruß
K-H

[Wolfgang Mix]

Als Anfängerübung war das hier ohne Hilfe schon anspruchsvoll genug

Gruß

Wolfgang