Domino 9 und frühere Versionen > ND7: Entwicklung

Wochenende ausschließen

(1/4) > >>

Lurchi:
Hallole,

ich hab hier einen Code, der das Speichern des Dokumentes nur bis 13:00 Uhr des vortags zulässt.

Das Feld mit dem Datumswert lautet "Datum"

Die Formel klappt auch soweit sehr gut, nur hab ich jetzt das Problem, dass ich das Wochenende nicht ausschließen kann.
Beispiel: Freitags kann man das Dokument für Montag auch nach 13 Uhr erstellen.


Bei meinem Fall handelt es sich hierbei um eine Essensbestellung.

Hier der Code:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim doc As NotesDocument
   Set doc = Source.Document
   
   Dim item As NotesItem
   Set item = doc.GetFirstItem( "Datum" )
   
   Dim DatumEssen As NotesDateTime
   Set DatumEssen = item.DateTimeValue
   DatumEssen.LocalTime = DatumEssen.LocalTime + " 13:00:00"
   
   Dim AktuelleZeit As New NotesDateTime( "" )
   Call AktuelleZeit.SetNow
   
   Dim DifferenzSekunden As Long
   DifferenzSekunden = DatumEssen.TimeDifference( AktuelleZeit )
   
   If DifferenzSekunden < 86400 Then
      Msgbox "Bestellungen sind nur bis 13 Uhr des Vortags möglich." , 48, "Firma"
      Continue = False
      
   End If
End Sub



Hat jemand eine Idee, wie ich das Wochenende ausschließen kann??!!? Ich wär euch sehr dankbar!  :love:


Hochachtungsvoll
der Lurchi

EDIT: Boardsymbol geändert - Ulrich hat eine richtige Lösung genannt. Ich hoffe, das bisherige Symbol war nur ein Versehen ...

eknori:
Gucke mal nach Weekday function in der Designer Hilfe

Lurchi:
Hallo eknori,

danke für deine Antwort. Ich habe mir mal die "weekday function" angeschaut, leider stehe ich auf dem Schlauch, wie ich sie in mein Script einbauen muss.

Kannst du mir bei der Vorgehensweise behilflich sein?


Danke und Gruß
Lurchi

eknori:
Du nimmst dein DatumEssen und prüfst mit der weekday function, ob eine 1 oder eine 7 als Rückgabewert geliefert wird. Wenn ja, ist nix mit Essen und du kannst die Prüfung nach der Zeit abbrechen, wenn ein anderer Wert geliefert wird, ist es ein Wochentag und du prüfst imweiteren Verlauf noch auf 13:00 ...

Lurchi:
Servus, eine Woche später.....


wir sitzen nun schon wieder an diesem Problem und raffen es nicht.

Wir wissen nicht, wie wir den Code aus der Hilfe in unser Code integrieren sollen.


Dim x As Variant, wd As Integer
x = DateNumber(1993, 7, 7)
wd% = Weekday(x)
Print wd%
' Output:
' 4


Help, I need somebody!

Gruß
der Lurchi

Navigation

[0] Themen-Index

[#] Nächste Seite