Domino 9 und frühere Versionen > Entwicklung

Datum für Ansicht formatieren

(1/3) > >>

braincrusha:
Ich habe ein Feld in dem ein Datum hinterlegt ist. Dieses Datum brauch ich in einer meiner Ansichten. Also nach diesem Datum sollen sie sich ordnen. Vorher sollte das datum aber umgeändert werden in die Woche des Jahres..

Also statt 1.1.2004 soll nur noch 1 da stehen..

ich hab es mit der Formatfunktion probiert in allen möglichen Variationen da ich nicht viel in der Hilfe darüber gefunden.

Wäre über jede Hilfe dankbar

eknori:
@Word(DatumsFeld;".";1)
oder wenn es ein Datumsfeld ist (Typ)

@Day (Datumsfeld)

ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen, ich werdeLesen lernen,

koehlerbv:
@Ulrich: Lesen bildet   ;D

@braincrusha: Wie wäre es, wenn Du die Suche benutzen würdest ? "Kalenderwoche" bringt Dich sofort zum Ergebnis !

Bernhard

braincrusha:
ich glaub ich wurde Missverstanden.

Es sollte nicht ersetzt werden oder nur der Tag oder der Monat dort stehen sondern die Woche des Jahres.

Also bei 1.1.2004 ne 1 weil es die erste Woche im Jahr ist bei 8.1.2004 dann ne zwei weil es die zweite Woche im Jahr ist.

etc

eknori:
REM {This formula satisfies ISO 8601:1988};
REM {Formulae updated : 08.28.1997 };
REM {by Stephen P.R. Renton (sprenton@mcmail.com)};
REM {Version: 1.01};
REM {Tested on : Lotus Notes Release 4.5};

REM {D is the date of interest.};
D := @TextToTime(@Prompt([OkCancelEdit]; "Enter Date"; "Please enter a date to convert to a week number:"; ""));
REM {D := [31/12/95]};

FirstOfYear := @Date(@Year(D); 1; 1);
LastOfYear := @Date(@Year(D); 12; 31);
FirstDayNum := @Weekday(FirstOfYear);
LastDayNum := @Weekday(LastOfYear);

REM {ISO weeks start on Monday and ends on Sunday.};
ISOFirstDayNum := @If(FirstDayNum = 1; 7; FirstDayNum - 1);
ISOLastDayNum := @If(LastDayNum = 1; 7; LastDayNum - 1);

REM {The first and last ISO week is the first};
REM {and last ISO week to include Thursday};
IsFirstWeek := 7 - ISOFirstDayNum > 2;
IsLastWeek := 7 - ISOLastDayNum < 4;
REM {The date of the first day of the first ISO week};
ISOFirstDay := @If(IsFirstWeek;
            @Adjust(FirstOfYear; 0; 0; 1 - ISOFirstDayNum; 0; 0; 0);
            @Adjust(FirstOfYear; 0; 0; 8 - ISOFirstDayNum; 0; 0; 0));
REM {The date of the last day of the last ISO week};
ISOLastDay := @If(IsLastWeek;
            @Adjust(LastOfYear; 0; 0; 7 - ISOLastDayNum; 0; 0; 0);
            @Adjust(LastOfYear; 0; 0; -ISOLastDayNum; 0; 0; 0));

REM {Date outside ISOFirstDay and ISOlastDay};
REM {are from the previous or next year};
REM {Return the ISO week number and exit};

FirstWeekNextYear := @If(D > ISOLastDay; @Return(@Prompt([Ok]; "FWNY";
@Text(@Year(D)+1) + "W01")); NULL);

REM {I suspect this is where Julian dates would be useful};
REM {A recursive call could be used in a real language};
LastWeekLastYear := (D - @Adjust(FirstOfYear; -1; 0; 0; 0; 0; 0))/60/60/24/7;
AdjustLastWeek := 1 - (LastWeekLastYear - @Integer(LastWeekLastYear));
@Set("LastWeekLastYear"; LastWeekLastYear + AdjustLastWeek);
@If(D < ISOFirstDay;
@Return(@Prompt([Ok]; "LWLY"; @Text(@Year(D) - 1) + "W" +
@Text(LastWeekLastYear))); NULL);

REM {If you get this far, the date falls into an ISO week this year};
REM {Convert the difference in seconds to weeks};
NumWeeks := (D - ISOFirstDay)/60/60/24/7;

REM {Fractions indicate that the date falls};
REM {in the middle of the ISO week};
WeekAdjust := 1 - (NumWeeks - @Integer(NumWeeks));
ISOWeekNum := NumWeeks + WeekAdjust;

REM {Conform to ISO 8601 format};
Pad:=@If(ISOWeekNum<10;"0";"");
Result := @Text(ISOWeekNum);

@Prompt([Ok];"Week number"; Result)

Navigation

[0] Themen-Index

[#] Nächste Seite