AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Feiertage anzeigen
Thema durchsuchen
Ansicht
Themen-Optionen

Feiertage anzeigen

Ein Thema von Catbytes · begonnen am 20. Feb 2005 · letzter Beitrag vom 21. Feb 2005
Antwort Antwort
Benutzerbild von Catbytes
Catbytes
Registriert seit: 7. Sep 2002
Hallo,

das Programm "Feiertage" zeigt einem die deutschen Feiertage eines Jahres an.

Da Open-Source, kann man den Code wunderbar für Kalenderprogramme o.ä. benutzen.

Nicht wundern, daß selbst Feste Feiertage eine eigene Funktion haben (z.B. 1. Weihnachtsfeiertag). Ich wollte nur, daß eben alles Standardmäßig ist. Und wenn doch mal ein Feiertag variabel werden sollte, langt es die Funktion anzupassen (bei den heutigen Politikern weiß man ja nie).

Version: 1.10 (vom 20.02.2005)
BS: Hier läuft Windows 2000 (sollte aber auf jedem modernen Windows-BS laufen - aber nicht getestet)

Download Demo-EXE inklusive Source: feiertage_anzeigen.zip (262 KB)

Die Implementierung der Feiertage ist relativ "unspektakulär" gelöst.

Bei Ideen oder Anregungen entweder hier im Forum oder an webmaster@catbytes.de senden.

Viel Spaß!
Catbytes
 
Benutzerbild von Luckie
Luckie

 
Delphi 2006 Professional
 
#2
  Alt 20. Feb 2005, 15:25
Unbrauchbar:
Zitat:
'01.01.2005' ist kein gültiges Datum.
Mein Datuumsformat ist: yyyy-mm-dd

Es läßt sich dann übrignes auch nicht mehr beenden, da die Meldung auch beim Schließen kommt und sich das Fesnter dann nicht schließt.
Michael
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

 
Delphi 2006 Professional
 
#3
  Alt 20. Feb 2005, 15:28
Hai Catbytes,

ich bin nur mal kurz über den Code geflogen, da das Programm bei mir das selebe macht wie bei Luckie (wir haben nämlich das richtige Datumsformat).

Als Tipp. Schaue dir einmal Delphi-Referenz durchsuchenEncodeDate an.
Stephan B.
  Mit Zitat antworten Zitat
Benutzerbild von Catbytes
Catbytes

 
Delphi XE5 Enterprise
 
#4
  Alt 20. Feb 2005, 17:00
Hallo,

danke an Luckie und Sharky

An diesen Umstand habe ich überhaupt nicht gedacht.

Der Code ist nun an ISO 8601 angepasst.

Alle Einstellungen der Systemsteuerung werden korrekt angezeigt.

Jetzt könnt ihr weiter testen...

Der Link ist mit der neuen Version angepast.
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

 
Delphi 2006 Professional
 
#5
  Alt 20. Feb 2005, 17:04
Hai Catbytes,

hast Du es an jedes Datumsformat angepasst oder nur speziell an die ISO Schreibweise? Es gibt ja auch Leute die verstellen ihren PC so das er das Datum so wie in "Kleinquetschenmombach" in Zentral-Hinter-Ober-Unter-Wassweissich-wo eingestellt haben
Stephan B.
  Mit Zitat antworten Zitat
Benutzerbild von Pr0g
Pr0g

 
Delphi 7 Personal
 
#6
  Alt 20. Feb 2005, 17:12
Kann es sein, dass die Funktionen GetDOW_Str und GetWochentage das gleiche machen? Eine könntest du also löschen.


MfG Pr0g
  Mit Zitat antworten Zitat
Benutzerbild von Catbytes
Catbytes

 
Delphi XE5 Enterprise
 
#7
  Alt 20. Feb 2005, 17:27
Zitat von Sharky:
Hai Catbytes,

hast Du es an jedes Datumsformat angepasst oder nur speziell an die ISO Schreibweise? Es gibt ja auch Leute die verstellen ihren PC so das er das Datum so wie in "Kleinquetschenmombach" in Zentral-Hinter-Ober-Unter-Wassweissich-wo eingestellt haben
"Kleinquetschenmombach"

Ich habe es, wie empfohlen, mit EncodeDate gelöst. Alle bei mir in der Systemsteuerung vorhandenen Datumsformate hat er korrekt angezeigt. Mit ISO meinte ich nur, daß es eben jetzt _auch_ ISO-Daten anzeigt (alle anderen natürlich auch).

Das das ist Deutschland auch schon "Pflicht" ist, wußte ich übrigens nicht. Ich ging von DIN5008 aus - das war zu meiner Schulzeit noch TT.MM.JJJJ - ist wohl mittlerweile an die ISO angepasst worden.

Zitat von Pr0g:
Kann es sein, dass die Funktionen GetDOW_Str und GetWochentage das gleiche machen? Eine könntest du also löschen.
Oha - stimmt. Da ist wohl was durcheinander geraten. Damals habe ich wohl etwas "rumexperimentiert", wie es wohl am besten geht

Gibt auch noch andere Funktionen, die in der Demo gar nicht vorhanden sind, wie z.B. "LebensAlter", die das Alter zurück gibt, wenn man ein Datum als TDateTime übergibt.
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

 
Delphi 2006 Professional
 
#8
  Alt 21. Feb 2005, 07:10
Zitat von Catbytes:
....."Kleinquetschenmombach" ...
Mein Lieblingsort bei solchen Sachen

Fein das Du das Programm auf unterschiedliche Datumsformate umgestellt hast

Eine Anmerkungen zum Quellcode habe ich noch

In deiner Methode TForm1.GetFeiertage rufst Du für jeden Feiertag StrToInt(Edit1.Text) auf.
Der Code wird wesentlich einfacher und leserlicher wenn Du dies nur einmal am Anfang der Methode machst und den Wert in einer lokalen Variablen speicherst.
Stephan B.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:25 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