Blitzfrage zum Datum

kingsusu · Beiträge: 20

Hey Leute,

eine Blitzfrage.

Wie kann ich diesen Satz in delphi ausdrücken.

Wenn das Datum in Maskedit - Datum heute = 0 dann Beep

lg

kingsusu

ub60 · Beiträge: 765 Erhaltene Danke: 130

Blitzantwort :lol:

:
-DateToStr
-Now
-F1

ub60

kingsusu · Beiträge: 20

Jo ich hab am ANfang so etwas ähnliches gemacht und zwar:

(Ich weiß dass das falsch ist)

markieren

Delphi-Quelltext

1:
2:

if now - datetostr(date) = 0 then
  Beep

Aber da will er - wie schon gesagt nicht^^

FinnO · Verfasst: Mi 23.12.09 19:32

da würde auch now - date reichen

iirc ist TDate ein double. Also könntest du isEqual gebrauchen

Edit, die dritte: wie wäre es denn mit if Date = now then ...

kingsusu · Beiträge: 20

Yeah das habe ich gebraucht!

- ich dacht, dass ich das erst umwandeln muss.

Ich danke für diese Blitzantworten!

kingsusu · Beiträge: 20

Ich hab jetzt das hier stehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TStopform.TimerDatumTimer(Sender: TObject);
begin
Date:= Now ;
lbdatum.Caption := datetostr(date) ;
if Datum.Checked  then
  if now - date = 0  then
  Beep
  end;

Das habe ich jetzt. Aber das Problem ist, dass es mir jede Sekunde anpiep. Ab dem Punkt, ab dem ich diese Checkbox anklicke.

Jetzt zu meiner frage - ich hab sie vor dem Editieren falsch gestellt:

Wie binde ich ein Editmask hier hinein, sodass wenn das eingetippte - now = 0 ist, dass es dann Beept.

Und wie kann ich das jetzt noch für die Zeit machen, sodass ich quasi einen Wecker habe?

FinnO · Verfasst: Mi 23.12.09 19:39

statt DateToStr halt DateTimeToStr...

elundril · Verfasst: Mi 23.12.09 20:52

naja, du setzt im Timer das Datum und 2 zeilen darunter überprüfst du ob datum = now ist. Natürlich ist es = now weil dein code keine sekunde braucht um ausgeführt zu werden. deswegen is jeder Timerinterval Datum = Now.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

kingsusu · Beiträge: 20

Ja da hast du wohl recht elundril.. und wie mach ich das, was ich will? ich grübel schon die ganze zeit...

kingsusu · Beiträge: 20

OK Neue methode! Neues Glück.

Ich mach das jetzt mit DateTimePicker!

Ich habe einen Datepicker und einen Timepicker.

Ich will sagen, dass wenn

Datepicker und Timerpicker = now, dann soll es Beepen.

Pickerzeit ist Datetimepicker (auf Zeit)
Pickerdatum ist Datetimepicker (auf Datum)

Für die Zeit nutze ich diesen Befehl!
- dieser klappt auch

markieren

Delphi-Quelltext

1:
2:

If TimeToStr(now) = TimeToStr(pickerzeit.Time)
 then showmessage ('Hey') ;

aber da ich will, dass ich nicht nur Zeit einstellen kann, auch Datum brauche ich - wie vorhin gesagt - ein befehl, dass es erst klingelt wenn Zeit und Datum mit NOW identisch sind.

Dieser befehl klappt leider nicht:

markieren

Delphi-Quelltext

1:
2:

if   DateToStr(now) = DateToStr(pickerzeit.Date) then
showmessage ('Date');

kann mir einer erklären wieso?

elundril · Verfasst: Do 24.12.09 04:51

weil du beim zweiten vielleicht statt PickerZeit vielleicht PickerDatum verwenden solltest? btw, es ist seeehr unschön das mit Strings zu überprüfen. Vielleicht fällt dir ja doch ne möglichkeit ein wie du das mit der DateTime-Variablen überprüfen kannst.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

kingsusu · Beiträge: 20

Super das habe ich gebraucht, danke elundril.

Das kommt davon, wenn man noch so spät programmiert^^.

elundril hat folgendes geschrieben :

Vielleicht fällt dir ja doch ne möglichkeit ein wie du das mit der DateTime-Variablen überprüfen kannst.

- weiß leider nicht wie sonst..ich saß schon lang genug dran, bis das endlich mal geklapptt hat!

Aber schon folgt die nächste Frage!

markieren

Delphi-Quelltext

1:
2:

If TimeToStr(now) = TimeToStr(pickerzeit.Time) and DateToStr(now) = DateToStr(pickerdatum.Date)
then showmessage ('Date');

wieso kann ich das nicht mit IF und AND machen?

lg

kingsusu · Beiträge: 20

OK Thema erledigt.

richtiger code:

markieren

Delphi-Quelltext

1:
2:

If (TimeToStr(now) = TimeToStr(pickerzeit.Time)) and (DateToStr(now) = DateToStr(pickerdatum.Date)  )
then showmessage ('Date');

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme