Domino 9 und frühere Versionen > ND6: Entwicklung

Datum aus Kalenderwoche berechnen

<< < (2/2)

eknori:
merci.

Kurz noch zum Hintergrund. Ich habe 2 Datenbanken, die zu einer DB zusammengezogenwerden sollen. Die "beschreibenden" Felder sind leicht über einen Migrationsagenten zusammenzufassen. Soweit kein Problem.

Einzig ein Feld; in der einen DB ein Textfeld mit "Freitexteingabe" ( entweder KW/YYYY oder Datum DD.MM.YYYY )in der anderen DB ein Datumsfeld.

Beide Felder übernehme ich in ein neues Feld und berechne dann  die KW daraus; wenn Feld leer, dann schrott

REM {Berechnung der Kalenderwoche des Tages >>Datum<<};
REM {Die Initialisierung von DAtum kann bspw. mit @Today erfolgen.};



Datum           := @TextToTime(@Text(puls.BisWann));
Wochenstart     := @Adjust(Datum; 0;0; -@Weekday(Datum)+@If(@Weekday(Datum)=1;-5;2); 0;0;0);
ErsterJanuar    := @Date(@Year(Wochenstart); 1; 1);
ErsterWochentag := @Weekday(ErsterJanuar);
MinutenProTag   := 60 * 60 * 24;
TagImJahr       := (Wochenstart - ErsterJanuar) / MinutenProTag;
Kalenderwoche   := 1 + @Round(TagImJahr / 7);
KW              := @If((ErsterWochenTag *= 2:3:4) & (Kalenderwoche = 53); 1; Kalenderwoche);

_KW:=
@If(!@Contains(@Text(puls.BisWann);"/");
@Text(KW) + "/" +@Text(@Year(Datum));
@Text(puls.BisWann));

@If(@Trim(@Text(puls.BisWann))="";
"-";
@Word(_KW;"/";2) +"/"+@Word(_KW;"/";1))

( Formel ist übrigens von Bernhard und kann über den Suchbegriff "Kalenderwoche" hier gefunden werden )

Für evtl. Benachrichtigungen brache ich aber neben der KW auch noch ein DATUM; daher die Frage.
Die Ansicht sieht dann ( vorläufig so aus )

Die obige Formel ist in einem Feld "dspKW" ( berechnet) im Doc enthalten: Die Spalte mit dem Datum enthält

KW := @TextToNumber(@Word(dspKW;"/";2));
jan04 := [04.01.2005];
adjDays := (KW-1) * 7;
oneDayinYourKW := @Adjust( jan04 ; 0 ; 0 ; adjDays ; 0 ; 0 ; 0 );
_friday:=@Adjust(OneDayInYourKW;0;0;4 - @Weekday(oneDayinYourKW); 0;0;0);
_friday

P.S. Ich rechne hier übrigens den MITTWOCH aus  ;)
Und ich weiß, daß ich auch noch @Word(_KW;"/";1) checken und dann entsprechend tätig werden muß  ;D Deshalb ja auch "vorläufig".
Und den Einwand von Tode werde ich auch noch berücksichtigen ...

koehlerbv:

--- Zitat von: eknori am 22.08.05 - 19:58:20 ---( Formel ist übrigens von Bernhard und kann über den Suchbegriff "Kalenderwoche" hier gefunden werden )

--- Ende Zitat ---

Ich will mich hier nicht mit fremden Federn schmücken: Die Formel wurde aus meinem BP-Beitrag mittlerweile durch eine kürzere Variante von Joachim (Alias "jr") ersetzt. Ich habe Joachims Formel  damals aufmerksam gelesen und danach ziemlich geknüppelt in Tests und stehe damit für die Freigabe / den Ersatz meines Konstrukts.

Bernhard

TMC:
Ich habe Joachim im BP-Artikel gleich mal in der Autorenliste ergänzt:


--- Zitat --- Autor(en):             Bernhard Koehler (koehlerbv), Formeln: Joachim (jr)

--- Ende Zitat ---

Übrigens, hier gibt es noch eine Lösung von Ata für Lotus Script:
http://www.atnotes.de/index.php?topic=4453.0 (Function 'KWRange')

DerAndre:
Hier gibt es noch einiges Rund um den Kalender 

http://www.computus.de/

Gruss

André

Navigation

[0] Themen-Index

[*] Vorherige Sete