Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: robertpp am 23.07.04 - 15:06:49

Titel: von Datum abziehen
Beitrag von: robertpp am 23.07.04 - 15:06:49

Ich hab eine Function und möchte in dieser von dateTmp nDayofWeek abziehen nur bekomm ich da immer eine Fehler.

Wenn ich Dim dateTmp As NotesDateTime lasse dann bekomm ich auch bei dateTmp= Datenumber(nYear, 4, 1) einen Fehler.
Ich weiß auch das man das nicht einfach abziehen kann ich weiß aber nicht wie es geht.
Kann mir da bitte jemand helfen.



Function GetDSTDates(nYear As Integer, dateStart As NotesDateTime, dateEnd As NotesDateTime)
   
   Dim nDayofWeek As Integer
'   Dim dateTmp As NotesDateTime
   
   GetDSTDates = True
   On Error Goto GetDSTDatesErr
   'Wochentag des 1 April bestimmen
   dateTmp= Datenumber(nYear, 4, 1)
   nDayofWeek = Weekday(dateTmp)
      dateStart = dateTemp - nDayofWeek
   
   Exit Function
GetDSTDatesErr:
   GetDSTDates = False
End Function

Titel: Re:von Datum abziehen
Beitrag von: robertpp am 23.07.04 - 15:13:12

Ich hab in der Hilfe ein
 :)
Call dateTime.AdjustDay( -x )

gefunden nur dann müsste mein dateTemp ein NotesDateTime sein aber da gibt es ja auch ein problem ???

Titel: Re:von Datum abziehen
Beitrag von: Semeaphoros am 23.07.04 - 15:21:18

Kannst Du Dich mal etwas klarer ausdrücken? Ich verstehe nix, insbesondere, was für ein Problem es denn da geben sollte. In der Hilfte steht unter NotesDateTime durchaus, wie das funktioniert und wie man ein solches Objekt erzeugt und mit dem richtigen Datum "befruchtet".

Titel: Re:von Datum abziehen
Beitrag von: robertpp am 23.07.04 - 15:29:14

Ich möchte einfach haben dass:

dateTmp= Datenumber(nYear, 4, 1)
nDayofWeek = Weekday(dateTmp)

das ich diese Formel:
dateStart = dateTemp - nDayofWeek

realsieren kann.

Titel: Re:von Datum abziehen
Beitrag von: Semeaphoros am 23.07.04 - 15:34:41

dateStart = dateTemp

call dateStart.AdjustDay ( - nDayofWeek )

Whats the problem?

Titel: Re:von Datum abziehen
Beitrag von: robertpp am 23.07.04 - 15:49:41

Ich kann leider dem datestart (NotesDateTime) nicht = dateTmp setzten das geht nicht!

Titel: Re:von Datum abziehen
Beitrag von: Semeaphoros am 23.07.04 - 17:30:49

Und warum nicht? Fehlermeldung? Beim Compiler oder Runtime? Datentypben unverträglich? Wenn Du nur sagst "geht nicht" und den Grund oder die Fehlermeldung nicht angibst, kann ich Dir leider auch nicht weiterhelfen.

Titel: Re:von Datum abziehen
Beitrag von: koehlerbv am 23.07.04 - 20:34:02

Burschen, lest Ihr denn nie SORGFÄLTIG die DesignerHelp, in der ja eigentlich immer alles perfekt beschrieben steht ? Da wird doch eindeutig von den jeweils verwendeten Datentypen gesprochen (mal ist es Variant, mal ist es NotesDateTime) !

NotesDateTime ist hier nicht erforderlich, um den Montag der Woche mit dem 1. April zu berechnen:

Code

   
   Dim vApril1 As Variant
   Dim iYear As Integer
   Dim vStartDate As Variant
   
   iYear = 2004
   vApril1 = Datenumber (iYear,4, 1)
   
   If Weekday (vApril1) = 1 Then
      vStartDate = vApril1 - 6
   Else
      vStartDate = vApril1 - Weekday (vApril1) + 2
   End If
   
   Msgbox "DIe Woche des 1. April beginnt am " & Cstr (vStartDate)

HTH,
Bernhard

Titel: Re:von Datum abziehen
Beitrag von: TMC am 23.07.04 - 20:47:29

Zitat von: koehlerbv am 23.07.04 - 20:34:02

NotesDateTime ist hier nicht erforderlich

Lese ich auch immer wieder: Die Leute nehmen die DateTime-Klasse, obwohl es diese oft gar nicht braucht.
Ging mir aber anfangs genauso  ;D

Vieles lässt sich aber ohne die Klasse lösen.

Titel: Re:von Datum abziehen
Beitrag von: robertpp am 26.07.04 - 08:25:27

Jetzt klappt es. ;D

@koehlerbv
Danke für die Lösung
Ich hab schon in der HELP bemerkt das das eine Variant ist und ich NotesDatetime verwendet hab genau da lag auch mein Problem dass das ja auch nicht geht.

Wie @TMC gesagt hat, die NotesDateTime wird hier gar nicht gebraucht!