Calendar --> Funktion für Industrietag ausgabe

[LuCSteR]

Hi,

ich benutze nen ganz normalen Kalender aber finde keine funktion, die mir aus dem Datum den Industrietag ausspuckt.
An sich kann man sich das ja auch zusammenbasteln. Nur wird das umständlicher, als es sein werden sollte :)

Industrietag: Bsp. 01.01.2008 = 1.Januar 2008 --> Industrietag = 001

[marabu]

Hallo,

auch für Lazarus scheint es eine Unit DateUtils zu geben - schau dort nach der Funktion DayOfTheYear().

Grüße vom marabu

[LuCSteR]

Alles klar, gibts. Danke :)

Noch ne Schönheitsfrage. Gibt es nen kurzen Befehl der Word zu String wandelt? Ansonsten klappts auch mit ner Hilfvariablen.

[marabu]

Im Kontext deiner ersten Frage:

Delphi-Quellcode:

ShowMessage(Format('%.3d', [DayOfTheYear(now)]));

[LuCSteR]

Okay, woher bekommt man solche Programmierkniffe? :)

Hab mir extra ne Formatierungsprzedur geschrieben, die jetzt überflüssig ist :(

Dankesehr.

[grenzgaenger]

diese kniffe stehen in der hilfe

aber die defininition deiner fabrikkalendertage ist falsch... in aller regel, beginnt die zählung bei 1, wenn der erste arbeitstag ist, der damit verwaltet wird, und wird fortlaufend inkrementiert, an jeden tag, wo gearbeitet wird... da kannst du auch problemlos mal auf den tag 4'000 kommen...

um die zu errechnen brauchst einen feiertagskalender, mit den tagen, wo die arbeit ruht... und ein startdatum, ab dem gezählt wird.

<HTH> GG

[LuCSteR]

Nee, nee. Ich meine es schon so wie ich es geschrieben habe ;) Arbeitstage/fabrikkalendertage mögest du ja richtig beschrieben haben aber Industrietage, sind einfach DayOfTheYear. Jedenfalls war es genau der Befehl den ich suchte, um die Definition meines Projektleiters bedienen zu können :)

In der Hilfe steht, viel man muss halt wissen was es denn also so gibt, wobei man geholfen werden kann :) Und das zu wissen macht sicher die Erfahrung aus.

grüße