AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Wochen eines Monats (deren Start- und Endtag) ermitteln

Wochen eines Monats (deren Start- und Endtag) ermitteln

Ein Thema von hoika · begonnen am 29. Apr 2009 · letzter Beitrag vom 30. Apr 2009
Antwort Antwort
Seite 2 von 2     12
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.269 Beiträge
 
Delphi 10.4 Sydney
 
#11

Re: Anzahl der Wochen eines Monats ermitteln

  Alt 29. Apr 2009, 15:17
Hallo,

also bei mir ergibt DayOfWeek aber DoW_Su ...


PS:
const
DoW_Su = 1;


Heiko
Heiko
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.016 Beiträge
 
Delphi 12 Athens
 
#12

Re: Anzahl der Wochen eines Monats ermitteln

  Alt 29. Apr 2009, 15:22
Du schaust mit DayOfWeek nach welcher Tag auf den 1. fällt
dann kannst du ausrechnen wie lange die erste Woche noch geht.
nun läßt sich ausrechnen wann der 1. Wochenbeginn innerhalb dieses Monat wäre.
DayOfMonth gibt's doch auch nocht? ... also bis wann geht der Monat > DatumDesMonatsendes

und nun
1{für die 1. Teilwoche} + Aufrunden((DatumDesMonatsendes - DatumDesWochenbeginns + 1 {=Resttage}) / 7) = WochenInDiesemMonat
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.679 Beiträge
 
Delphi 2007 Enterprise
 
#13

Re: Anzahl der Wochen eines Monats ermitteln

  Alt 29. Apr 2009, 15:23
Zitat von Hansa:
Dann eben selber F1 drücken. 8)
Soso, Delphi gibt also nun schon vor welchen Tag Europa als Wochenbeginn zu erachten hat.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.269 Beiträge
 
Delphi 10.4 Sydney
 
#14

Re: Anzahl der Wochen eines Monats ermitteln

  Alt 29. Apr 2009, 15:27
Hallo

#himitsu:
Ich brauche vor allem Starttag und Endtag der einzelnen Wochen.

#Edit1: so, mal den Titel geändert.

DUnit wird jetzt gefüttert, dann schau mer mal.

#Edit2: klappppppppt !!!


Heiko
Heiko
  Mit Zitat antworten Zitat
DevilsCamp
(Gast)

n/a Beiträge
 
#15

Re: Anzahl der Wochen eines Monats ermitteln

  Alt 30. Apr 2009, 12:56
Zitat von Hansa:
Dann eben selber F1 drücken. 8)

Zitat von F1:
DayOfWeek gibt den Wochentag des angegebenen Datums als Integer zwischen 1 und 7 zurück. Hierbei gilt der Sonntag als erster Tag der Woche und der Samstag als der siebte Tag.
Es gibt
DayOfWeek // Unit Sysutils und
DayOfTheWeek // Unit DateUtils Ersteres gibt wirklich den Sonntag als letzten Tag der Woche an. Letzteres aber Montag (weil nach ISO 8601). Um wirklich sicher zu gehen, welcher Wochentag nun der erste der Woche ist (aus Sicht des Anwenders) würde ich allerdings auf API-Funktionen zugreifen (von denen es sicher welche bzgl. Datum/Uhrzeit gibt).
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.269 Beiträge
 
Delphi 10.4 Sydney
 
#16

Re: Wochen eines Monats (deren Start- und Endtag) ermitteln

  Alt 30. Apr 2009, 13:24
Hallo,

nein, dazu brauche ich kein API-Funktion.
Wie weiter oben geschrieben geht es hier um
Wochengleitzeit bei einer Monatsabrechnung.

Egal, wann der Monat anfängt, die Woche beginnt am 1.

Schönes Bsp. ist der März 2009.


Heiko
Heiko
  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 18:49 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