von Datum abziehen

[robertpp]

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

[robertpp]

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

[Semeaphoros]

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".

[robertpp]

Ich möchte einfach haben dass:

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

das ich diese Formel:
dateStart = dateTemp - nDayofWeek

realsieren kann.

[Semeaphoros]

dateStart = dateTemp

call dateStart.AdjustDay ( - nDayofWeek )

Whats the problem?

[robertpp]

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

[Semeaphoros]

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.

[koehlerbv]

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

[TMC]

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  

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

[robertpp]

Jetzt klappt es.

@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!