Differenz von Datum1 und Datum2

[himitsu]

Zitat:

Zitat von Sherlock

Für die Eingabe von Datum/Uhrzeit verwendet man TDateTimePicker.

siehe das, was ich grad noch angehangen hab

wollte vorhin eigentlich nur schnell eine Differenz für diesen Beitrag haben
http://www.delphipraxis.net/internal...081642#1081642

also schnell die DateTimePicker und ein Edit auf 'ne Form

dabei fiehl mir dann das noch auf

ShoutBox: himitsu - 11:43

vor etwa 40 Minuten bin ich 11033 Tage 11 Stunden 0 Minuten 33 Sekunden alt geworden :shock:

und weil ich das so witzig fand (zusammen mit der 11011 11:0:11 von Ende letzen Monat), hab ich's noch etwas "aufgemotzt" :freak:

[Wolfgang Mix]

@Sherlock

Stimmt, so hatte ich das auch 'mal gemacht.

Delphi-Quellcode:

Label1.Caption:=IntToStr(round(DateTimePicker1.Date-DateTimePicker2.Date);)

Da muß man aber wie blöde in den Kalendern navigieren.
Alternativ gäbe die SpinEdits. Ist wohl alles Geschmackssache.
Mir sind am liebsten nackte Funktionen.

Gruß

Eolfgang

[Sherlock]

@himitsu: Gratz!
@Wolfgang Mix: Man kann auch ein datum direkt eingeben. Der Vorteil dieser Komponente (abgesehen vom korrekten Datenformat) ist eben auch die eingebaute Plausibilitäts- und Formatprüfung.

Sherlock

[Wolfgang Mix]

@Sherlock:

Die Eingabe 15.10.1582 will mir im DateTimePicker nicht gelingen.
Monate kann ich nur über das Menü ändern.
Die Jahre kann ich gar nicht eingeben. Was mache ich falsch?
Proberty übersehen?
Gruß

Wolfgang

[Sherlock]

Wow!

In die Verlegenheit bin ich noch nie gekommen. Daten unserer Epoche funktionieren jedenfalls einwandfrei ;)

Aus der OH:

Zitat:

Das zugrundeliegende Windows-Steuerelement verhält sich unvorhersehbar, wenn ein Datumswert mit der Jahresangabe 1752 oder früher verwendet wird (das Jahr, in dem in englischsprachigen Ländern der Gregorianische Kalender eingeführt wurde).

Sherlock

[Tyrael Y.]

@Wolfgang Mix

Stell mal MaxDate und MinDate ein, dann kannst du auch ein Datum für das Jahr 1546 eingeben.
Das mit den Monaten nicht eingeben liegt wahrscheinlich daran, daß du einfach nur zB. eine 6 für Juni eingibst anstatt 06

edit:
Trotz minDate maxDate ist tatsächlich eine Jahreseingabe unter 1752 nicht möglich, konnte es nicht glauben und habe es grade mal geprüft.

[Wolfgang Mix]

Zitat:

Stell mal MaxDate und MinDate ein, dann kannst du auch ein Datum für das Jahr 1546 eingeben.

Habe ich gemacht. Es werden Werte von 01.01.9999 bis 31.12.9999 akzeptiert.
Eine Jahreseingabe wird nicht zugelassen. Das Jahresfeld ist für Eingaben disabled.
Selbst das Jahr 2000 kann ich nicht eingeben!
Wo ist der richtige Schalter?

Gruß

Wolfgang

[Tyrael Y.]

Du müsstest Jahreszahlen auch vierstellig eingeben.
Also Jahr 1 ist 0001.

Aber die Beschränkung mit Jahr kleiner 1752 besteht tatsächlich.

[Wolfgang Mix]

Ich zitiere mich selbst:

Zitat:

Selbst das Jahr 2000 kann ich nicht eingeben!
Wo ist der richtige Schalter?

Außerdem ist merkwürdig, daß man mit Daten von 01.01.0001 .. 31.12.9999
ohne Gemecker vernünftig rechnen kann

Gruß

Wolfagng

[Tyrael Y.]

Hab ich doch geschrieben...ok nochmal

Delphi-Quellcode:

..
MinDate := 01.01.0001;
MaxDate := 31.12.9999;
...