AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Prüfung ob Wochentag in der Zeit vorhanden

Ein Thema von loirad · begonnen am 7. Sep 2011 · letzter Beitrag vom 8. Sep 2011
Antwort Antwort
Seite 2 von 2     12
loirad

Registriert seit: 25. Nov 2009
135 Beiträge
 
Delphi 6 Professional
 
#11

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 07:00
Ich will alle Freitage ausgeben. Den Rest probiere ich heute Nachmittag aus.
Wer Fehler findet darf sie behalten!
  Mit Zitat antworten Zitat
loirad

Registriert seit: 25. Nov 2009
135 Beiträge
 
Delphi 6 Professional
 
#12

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 07:08
incDay(Tag);
Das funktioniert nicht. Der Wert ändert sich nicht.
Wer Fehler findet darf sie behalten!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
40.509 Beiträge
 
Delphi 11 Alexandria
 
#13

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 07:22
Ein/zwei Beiträge weiter vorne steht die Lösung.

Außerdem steht sie auch in der OH > Delphi-Referenz durchsuchenIncDay

und wenn man sich die Signatur (Definition) der "Funktion" ansieht, bzw die Parameter, welche einem von der IDE/CodeInsigt aufgelistet werden, sollte einem auch sofort klar werden, daß hier
keine Prozedur mit einem Var-Parameter, sondern eine Funktion mir einem Const-Parameter + Result vorliegt.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#14

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 12:00
Gelegentlich hilft auch ein Blick in die Delphi Hilfe.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  ADate: TDateTime;
  days: array [1..7] of string;
begin
  ADate:= StrToDate('1.1.2011');
  days[1]:= 'Sunday';
  days[2]:= 'Monday';
  days[3]:= 'Tuesday';
  days[4]:= 'Wednesday';
  days[5]:= 'Thursday';
  days[6]:= 'Friday';
  days[7]:= 'Saturday';
  while CompareDate (Adate, Now) <= 0 do
  // oder while not IsSameDay (Adate, IncDay(Now)) do
  // oder while not IsToday (IncDay(ADate, -1)) do
  begin
    // ListBox1.Items.Add(DateToStr(ADate) + ' is a ' + days[DayOfWeek(ADate)]);
    if DayOfWeek(ADate) = 6 then
      ListBox1.Items.Add(DateToStr(ADate) + ' ist ein Freitag');
    ADate:= IncDay(ADate);
  end;
end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.463 Beiträge
 
Delphi 11 Alexandria
 
#15

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 12:06
Jo:
Zitat:
Anmerkung: DayOfWeek ist nicht mit dem ISO 8601-Standard konform, in dem Montag als der erste Tag der Woche definiert wird. Die Funktion DayOfTheWeek stimmt mit dem ISO 8601-Standard überein.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.830 Beiträge
 
Delphi 10.4 Sydney
 
#16

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 12:09
Sehr interessant, Wer sich an Regeln hält, verhält sich nicht Regelkonform
Markus Kinzler
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#17

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 12:25
Jo, g g geil. Scheint wohl eine falsche Verbesserung der Hilfe zu sein, wo in SysUtils und DateUtils noch unterschiedliche Zählungen waren.
  Mit Zitat antworten Zitat
r2c2

Registriert seit: 9. Mai 2005
Ort: Nordbaden
925 Beiträge
 
#18

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 12:44
Das "The" habt ihr entdeckt?

mfg

Christian
Kaum macht man's richtig, schon klappts!
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#19

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 13:02
Stimmt Christian, wer lesen kann ist klar im Vorteil.

DateUtils.DayOfTheWeek vs. SysUtils.DayOfWeek

Thanx.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.463 Beiträge
 
Delphi 11 Alexandria
 
#20

AW: Prüfung ob Wochentag in der Zeit vorhanden

  Alt 8. Sep 2011, 13:10
Ich hätte es vielleicht entsprechend markieren sollen
Also nochmal:
DayOfWeek -> Sonntag = 1, Samstag = 7
DayOfTheWeek -> Montag = 1, Sonntag = 7

Da die letztere Variante ISO-konform ist, sollte man sie bevorzugt verwenden.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf