Zeit einbeziehen in Programm

[qwertzp]

Hallo, kennt Lazarus auch Wochentage oder muss ich immer die Daten eingeben, denn es wäre was, das sich ständig wiederholen würde?

[pluto]

Ja kennt Lazarus auch. Schau dir mal FormatDataTime an.

[qwertzp]

Danke!

[qwertzp]

Hier ein Codeausschnitt der so nicht funktioniert, der Fehler ist in der if ... then Zeile, was muss ich ändern:

Code: Alles auswählen

if encodedate(18,10,2009)<f<21.12.2009 or f>encodedate(03.01.2010) and f<encodedate(08.02.2010) or f>encodedate(21.02.2010) and f<encodedate(05.04.2010) or f>18.04.2010 and f<12.07.2010 or f>encodedate(15.08.2010) and f<encodedate(04.10.2010) or f>encodedate(24.10.2010) and f<encodedate(27.12.2010) then
    begin
    h:=07;
    e:=trunc(now);
    b:=e+encodetime(h,05,00,00);
    if a>b then
    begin
    e:=e+1;
    end;
    b:=e+encodetime(h,05,00,00);
    d:=timetostr(b-a);
    form10.listbox1.items.add(d+'        500           B         Kantonsschule');
 
    e:=trunc(now);
    b:=e+encodetime(h,18,00,00);
    if a>b then
    begin
    e:=e+1;
    end;
    b:=e+encodetime(h,18,00,00);
    d:=timetostr(b-a);
    form10.listbox1.items.add(d+'        500           C3        Kantonsschule');
 
    e:=trunc(now);
    b:=e+encodetime(h,51,00,00);
    if a>b then
    begin
    e:=e+1;
    end;
    b:=e+encodetime(h,51,00,00);
    d:=timetostr(b-a);
    form10.listbox1.items.add(d+'        500           C3        Kantonsschule');
 
 
    h:=08;
    e:=trunc(now);
    b:=e+encodetime(h,20,00,00);
    if a>b then
    begin
    e:=e+1;
    end;
    b:=e+encodetime(h,20,00,00);
    d:=timetostr(b-a);
    form10.listbox1.items.add(d+'        500           C3        Kantonsschule');
    end;
    form10.listbox1.sorted:=true;
    form10.showmodal;
    end;

[qwertzp]

Ich hab jetzt die Fehler beseitigt,( ja ich weiss, Sorry, dass ich sowas Dummes ins Forum gestellt habe). Jetzt ha ich nur noch eine Frage durch was soll ich or ersetzen das geht ja bei TDate anscheinend nicht?

[pluto]

or und and gehen "nur" bei Variablen von Typ Boolean.Z.B. würde sowas gehen if (test = '1') and (test = '2') then ob das jetzt sinn macht ist eine andere Frage. Du musst also eine Bedienung auf stellen, die True oder False sein kann.

[qwertzp]

Danke!

[qwertzp]

> und < scheinen auch nicht zu funktionieren: Got Boolean, expecteded Tdate Time.
Das ist jetzt schlecht, wie kann man das überhaupt lösen?

[Socke]

> und < scheinen auch nicht zu funktionieren: Got Boolean, expecteded Tdate Time.
Das ist jetzt schlecht, wie kann man das überhaupt lösen?

Vielleicht solltest du dir mal die Grundlagen zu boolschen Operatoren zu Gemüte führen. Die Fehlermeldung sagts ja: du mischst boolsche Ausdrücke (True/False) mit Zeiten (TDateTime). Du hast also noch irgendwo einen logischen (Denk-)Fehler, den der Compiler nicht verarbeiten kann.

hier mal ein paar Beispiele, um die Typen klar zu stellen:

Code: Alles auswählen

var b1,b2, b3: Boolean; d1,d2: TDateTime;
begin
  b1 := d1 < d2;
  b1 := b1 and b2 or b3;
  b1 := b1 and (b2 or b3);
  d1 := not (b1 and (d1 < d2)) or (d2 <> d1);
end;

[qwertzp]

Danke!

[martinjakobs]

Hallo zusammen,

ich habe eine Frage zu "TDateTime". Ich möchte die Zeit stoppen, die eine
rekursive Prozedur zur Ausführung braucht. Dazu müsste ich irgendwie nicht nur
Sekunden, sondern auch MILLISEKUNDEN ermitteln können.

In Delphi gab es dazu den Befehl: "MillisecondOf(...)"

Haben wir hier einen entsprechenden Befehl?

Danke schonmal für die Hilfe.

Martin

[Hitman]

Hallo zusammen,

ich habe eine Frage zu "TDateTime". Ich möchte die Zeit stoppen, die eine
rekursive Prozedur zur Ausführung braucht. Dazu müsste ich irgendwie nicht nur
Sekunden, sondern auch MILLISEKUNDEN ermitteln können.

In Delphi gab es dazu den Befehl: "MillisecondOf(...)"

Haben wir hier einen entsprechenden Befehl?

Danke schonmal für die Hilfe.

Martin

Dafür ist TDateTime nicht geeignet. uses LCLIntf; GetTickCount();

[Socke]

Dafür ist TDateTime nicht geeignet. uses LCLIntf; GetTickCount();

*räusper* schonmal die Implementation für LCLIntf.GetTickCount für nicht Windwos angesehen?

Code: Alles auswählen

Result := DWord(Trunc(Now * 24 * 60 * 60 * 1000));

Jetzt rate mal, welchen Datentyp Now zurück liefert?

Das Problem liegt eher daran, dass TDateTime ein Fließkomma-Wert ist und damit mit einer variablen Genauigkeit arbeitet. D.h. je näher an 1.1.1900 desto genauer. Da wir mit ca 110 Jahren noch relativ nahe daran sind, dürfte die Genauigkeit noch ausreichen; in zwanzigtausend Jahren vielleicht nicht mehr, aber dann gibts auch nen neuen Datentyp . Bei mir funktioniert ein Benchmark mit TDateTime aber problemlos auch im Millisekundenbereich (wenns Nanosekunden werden, weiß ich nicht). Am Ende einfach wie oben umrechnen (wenns sehr lang wird Qword nehmen).

[martinjakobs]

Hallo,

erstmal Danke für den Tipp mit "getTickCount". Das funktioniert schonmal.
Die zweite Lösung mit dem Multiplizieren funktioniert auch!

Bestens also. Hab ich gleich zwei alternative Lösungen.

Kann ich morgen im Unterricht meine Schüler gleich anwenden lassen.
Ich hab letzte Woche nämlich beschlossen, von Delphi auf Lazarus
umzusteigen. Bisher klappts ja auch.

Also, nochmal vielen Dank an beide Lösungen und
gute Nacht.

Martin

[Socke]

Die zweite Lösung mit dem Multiplizieren funktioniert auch!

Kein Wunder, so wirds schließlich auch gemacht