Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi DateUtils --> IncDay (https://www.delphipraxis.net/178060-dateutils-incday.html)

markus5766h 14. Dez 2013 18:34

Delphi-Version: 7

DateUtils --> IncDay
 
Hallo,

ich bin grad am verzweifeln !

folgendes Scenario :
Ich möchte mittels einer Schleife zwischen zwei Datumswerten eine bestimmte
Mondkonstellation abfragen.

Hab's erst mit Trunc(Date) versucht - geht zwar, allerdings komm' ich dann ja nicht mehr an die Datumswerte
(oder gibt es eine Funktion IntToDate ?
Also umgestiegen auf:
Delphi-Quellcode:
uses DateUtils;

. . .
var
  Date, DateDest : TDate
begin

  while Date < DateDest do
    begin
      . . .
      IncDay(Date, 1);
    end;
end;
leider bleibt Delphi von der Funktion IncDay(TDate, n) völlig unbeeindruckt !!!

Es muss doch möglich sein, obige Funktion "einfach" zu erstellen, ohne das ganze "zu Fuß"
umzusetzen - oder doch nicht ? . . . das wäre ja, wie in der Steinzeit !!!:gruebel:

weiß jemand Rat ?

Klaus01 14. Dez 2013 18:37

AW: DateUtils --> IncDay
 
Hallo

incDate ist eine Funktion
date := incDate(date,1) sollte es tun.

Grüße
Klaus

markus5766h 14. Dez 2013 18:41

AW: DateUtils --> IncDay
 
@ Klaus01

danke,
manchmal sieht man den Wald vor lauter Bäumen nicht . . .
funktioniert.:thumb:

Sir Rufo 14. Dez 2013 18:45

AW: DateUtils --> IncDay
 
Manchmal kommt man auch nicht auf die idee in die Doku zu schauen Delphi-Referenz durchsuchenDateUtils.IncDay

Furtbichler 15. Dez 2013 08:44

AW: DateUtils --> IncDay
 
Oder einfach
Delphi-Quellcode:
date := date + 1;
zu schreiben.

Uwe Raabe 15. Dez 2013 09:43

AW: DateUtils --> IncDay
 
Zitat:

Zitat von markus5766h (Beitrag 1239787)
. . . das wäre ja, wie in der Steinzeit !!!:gruebel:

Na ja, immerhin klassifizierst du deinen Post ja auch mit Delphi 7...


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz