Zeitberechnung für Parkscheinautomat....??!!

[Sonne]

HALLO!


Habe ein Problem. Und zwar bin ich absoluter Delphi-Neuanfänger und nun sollen wir als Hausaufgabe einen Parkscheinautomaten programmieren, der ausrechnet, wie viel man bezahlen muss. Dabei soll die erste Stunde frei sein und jede weitere, angebrochene kostet 0,70 Euro.

Ich hätte ja schon eine Idee, würde aber gerne mal eure Ansätze hören.
Was zu beachten wäre ist, dass die Zeit, die das Auto parkt, durch den Computer selber errechnet werden soll ( also sicher Endzeit minus Anfangszeit?!) und dabei eine der beiden Zeiten (ich denke mal am logischsten ist die Endzeit - also wenn das Auto rausfahren will) der Computer von seiner Zeit erkennen soll. Also die Zeit, die er auch da unten rechts in der Leiste anzeigt...

Ich hoffe, dass das einiger Maßen verständlich ist und mir jemand weiterhelfen kann!

Danke schonmal!
Liebe Grüße Sonne

[shmia]

Zitat von Sonne:

Ich hätte ja schon eine Idee, würde aber gerne mal eure Ansätze hören.

Es ist aber eine Hausaufgabe!!!
Ich könnte dir innerhalb 3 Min. eine fertige Lösung auftischen, aber das ist ja nicht Sinn der Sache.
Also zeig mal deine Idee her (am besten mit Sourcecode).

Ich geb dir mal ein paar Stichpunkte:
aktuelles Datum & Uhrzeit kann man so abfragen:

Delphi-Quellcode:

var
   jetzt : TDateTime;
begin
   jetzt := Now;

Wenn man zwei Zeitpunkte hat, kann man so die Zeitdifferenz ausrechnen:

Delphi-Quellcode:

zeitdiff_in_tagen : double;
begin
   zeitdiff_in_tagen := Now- gemerkteZeitpunkt;
   zeitdiff_in_stunden := zeitdiff_in_tagen / ???;

Mit Floor() kann man auf ganze Werte abrunden; wie aufrunden geht steht in der Hilfe.

[DeddyH]

Zitat:

Mit Floor() kann man auf ganze Werte abrunden

AFAIK ist das eine C/C++/Java/PHP-Funktion. Meinst Du trunc?

[shmia]

Zitat von DeddyH:

Meinst Du trunc?

Ja, schon. Wollte nur testen, ob jemand mitdenkt.

[Dunkel]

Zitat von DeddyH:

Zitat:

Mit Floor() kann man auf ganze Werte abrunden

AFAIK ist das eine C/C++/Java/PHP-Funktion. Meinst Du trunc?

Floor & Ceil gibt es auch in Delphi.

[Sonne]

ja ich wollte ja auch nicht die komplette lösung haben..
nur mit der zeitberechnung vorallem wie der die computerzeit nimmt davon hab ich halt keine ahnung..

das macht der mit deinem "1. stichpunkt" ja?
zumindest denk ich dsa jetzt mal so

und kannst du mir vll nochmal erklären was das bei deinem zweiten stichpunkt alles zu bedeuten hat? weil wenn ich sowas benutze muss ich ja wissen was es bedeutet und bewirkt
und mit dem floor das weiß ich auch net...

wie das mit der IF- THEN schleife geht weiß ich ja dann.. eigentlich...

danke und lg sonne

[DeddyH]

Zitat:

Floor & Ceil gibt es auch in Delphi.

Seit welcher Version denn? In Delphi 5 gab es sie jedenfalls nicht.

[jmit]

Zitat von DeddyH:

Zitat:

Floor & Ceil gibt es auch in Delphi.

Seit welcher Version denn? In Delphi 5 gab es sie jedenfalls nicht.

Das würde mich auch einmal interessieren.

Gruß Jörg

[jmit]

Zitat von jmit:

Zitat von DeddyH:

Zitat:

Floor & Ceil gibt es auch in Delphi.

Seit welcher Version denn? In Delphi 5 gab es sie jedenfalls nicht.

Das würde mich auch einmal interessieren.

Gruß Jörg

Bei Borland Developer Studio 2006 gibt es die Funktionen in der Unit Math.

Gruß Jörg

[DeddyH]

Stelle gerade fest, in Delphi 7 ist sie vorhanden, kann also nur mit Version 6 oder 7 hinzugekommen sein.