| Autor |
Beitrag |
XenoX
Beiträge: 50
|
Verfasst: Do 08.05.03 15:08
Hab mal ne Frage wie könnte ich am besten ein Datum auf gültigkeit testen, also ob das Datum noch bevorsteht oder schon war? benutze ein MaskEdit mit der Datumfunktion zum übergeben........würde mich über eure Hilfe echt freuen!
|
|
Teutobod
Beiträge: 55
|
Verfasst: Do 08.05.03 15:52
mit dem Befehl date bekommst du das heutige datum.
kleines codebeispiel
  Quelltext
1:
2:
3:
| if strtodatetime(MaskEdit1.text) = date then button2.Caption := 'gleich';
if strtodatetime(MaskEdit1.text) < date then button2.Caption := 'kleiner';
if strtodatetime(MaskEdit1.text) > date then button2.Caption := 'größer'; |
|
|
Blackout
Beiträge: 64
|
Verfasst: Do 08.05.03 15:57
hi XenoX,
probiers mal so:
Quelltext
1:
2:
3:
4:
5:
6:
| If StrToDate(MaskEdit1.Text)= Date Then
// Gleich
Else If StrToDate(MaskEdit1.Text) < Date Then
// steht noch bevor
Else StrToDate(MaskEdit1.Text) > Date Then
// ist vorbei |
Der Code von meinem Vorgänger sollte auf jeden fall klappen hab ihn nur etwas verständlicher gemacht _________________ MfG Blackout
Zuletzt bearbeitet von Blackout am Do 08.05.03 16:07, insgesamt 2-mal bearbeitet
|
|
Klabautermann
Beiträge: 6366
Erhaltene Danke: 60
Windows 7, Ubuntu
Delphi 7 Prof.
|
Verfasst: Do 08.05.03 16:04
Hallo,
nur 'ne Frage am Rande, warum verwendest du keinen tDateTimePicker? Das hat mehrere vorteile:
- Fehleingaben werden verhindert
- Eingabe kann auch per Maus vorgenommen werden (über ausklapbare Kalender Komponente).
- Das Datum kann direckt als tDateTime Wert ausgelesen werden. Mit diesem kann man wie mit jeder anderen Zahl rechnen (und auch auf größer und kleiner prüfen).
- Ist ein Standartkomponente. Du musst also ncihts zusätzlich installieren.
Gruß
Klabautermann
Zuletzt bearbeitet von Klabautermann am Do 08.05.03 16:26, insgesamt 1-mal bearbeitet
|
|
Blackout
Beiträge: 64
|
Verfasst: Do 08.05.03 16:11
Oder mal bei Torry nachgucken da gibts Edits für Datum oder Zeit eingaben. _________________ MfG Blackout
|
|
XenoX 
Beiträge: 50
|
Verfasst: Do 08.05.03 16:22
Titel: danke!
werde mal eure ideen versuchen!!!
werde dann hier mich nochmal melden!!!!
THX
|
|
XenoX
Beiträge: 50
|
Verfasst: Do 08.05.03 16:38
Titel: aber wie püfe ich die eingabe vom date picker
if DateTimePicker.Date < date then .....
funzt nicht "inkompatible typen".....
|
|
XenoX
Beiträge: 50
|
Verfasst: Do 08.05.03 17:14
Titel: Startprobleme auf anderem rechner
Wenn ich das Programm starte, auf einem anderen Rechner kommt folgende Fehlermeldung:
"Die Anwendung konnte nicht gestartet werden, weil rtl60.bpl nicht gefunden wurde. Neuinstallation der Anwendung könnte das Problem beheben."
Auf meinem PC läuft das Programm allerdings ohne Mankos.
Bitte um Rat!
Thx4up
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Do 08.05.03 17:20
Du mußt die Laufzeitpackages mit in die Exe kompilieren.
|
|
Blackout
Beiträge: 64
|
Verfasst: Do 08.05.03 17:22
Ich glaub das kann man in den Projekt-Optionen einstellen ganz genau weiß ichs auch noch nich
_________________ MfG Blackout
|
|
MSCH
Beiträge: 1448
Erhaltene Danke: 3
W7 64
XE2, SQL, DevExpress, DevArt, Oracle, SQLServer
|
Verfasst: Do 08.05.03 17:38
Vorsicht !
Bei Datumskonvertierungen direkt aus einem String kann bei einem ungültigen Datum eine Exception auftreten.
Ich würd das vorher abfangen wollen, da sonst der restliche Code nicht ausgeführt wird.
grez
msch
|
|
matze
Beiträge: 4613
Erhaltene Danke: 24
XP home, prof
Delphi 2009 Prof,
|
Verfasst: Do 08.05.03 19:43
seid ihr sicher dass der code mit DATE funzt ?? Ich hätte NOW genommen !!!
_________________ In the beginning was the word.
And the word was content-type: text/plain.
|
|
Blackout
Beiträge: 64
|
Verfasst: Do 08.05.03 19:59
@matze
funktioniert genauso gut wie Time 
Bei Now hast du ja Datum und Zeit. _________________ MfG Blackout
|
|
XenoX
Beiträge: 50
|
Verfasst: Do 08.05.03 20:11
Titel: hmm mist ;(
Weiss denn keiner wo ich das mit dem Fehler beim starten beheben könnte? weiss nicht wo ich was umstellen soll damit "rtl60.bpl" mit kompiliert wird.............
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Fr 09.05.03 00:51
Projekt -> Optionen -> Packages -> Mit Laufzeit-Packages aktualisieren, Haken raus.
|
|
XenoX
Beiträge: 50
|
Verfasst: Fr 09.05.03 06:39
Titel: danke funzt!
danke leute für eure zahlreichen tips! aber nochmal zum eigentlichen Thread Thema  wie kann ich das datum vom datepicker mit dem aktuellen datum vergleichen??
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Fr 09.05.03 06:43
Quelltext
1:
| DateTimePicker1.Date = Date |
Oder geht das nicht?
|
|
Klabautermann
Beiträge: 6366
Erhaltene Danke: 60
Windows 7, Ubuntu
Delphi 7 Prof.
|
Verfasst: Fr 09.05.03 10:01
Titel: Re: aber wie püfe ich die eingabe vom date picker
Hallo,
| XenoX hat folgendes geschrieben: | if DateTimePicker.Date < date then .....
funzt nicht "inkompatible typen"..... |
ich schätze, du hast irgendwo eine Variable mit dem Namen Date deklariert und er versucht mit dieser zu vergleichen. Wenn die dann kein DateTime Wert ist, kann es nicht klappen.
Versuche es mal so:
Quelltext
1:
2:
| IF DateTimePicker1.Date < Sysutils.Date THEN
ShowMessage('kleiner'); |
Dann stört auch die Variable nicht mehr .
Gruß
Klabautermann
|
|
XenoX
Beiträge: 50
|
Verfasst: Fr 09.05.03 10:07
Titel: ups
jo stimmt wie peinlich ;P
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Fr 09.05.03 14:37
Aber nenn besser die Variable um.
|
|
