Calendar --> Funktion für Industrietag ausgabe

[marabu]

Im Kontext deiner ersten Frage:

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