Domino 9 und frühere Versionen > ND6: Entwicklung

Date/Time Vergleich + Range

<< < (2/2)

Andreas Bauer:
Hier nun das Ergebnis:


--- Code: ---Public Function IsTimeValid(doc As NotesDocument) As Integer
   
   On Error Goto ErrorHandler
   
   '---------------------------------------------
   'Ein paar Konstanten
   '---------------------------------------------   
   Const L_TIMEFIELDNAME$ = "DayTime"
   Const L_MINUTE! = 6.94444446708076E-04
   Const L_BEFORE% = 10
   Const L_AFTER% = 30
   
   '---------------------------------------------
   'Declarations & Settings
   '---------------------------------------------   
   Dim vNow As Variant   
   Dim vTime As Variant
   Dim vTimeStart As Variant
   Dim vTimeEnd As Variant
   vNow = Fraction(Now)   
   vTime = Fraction(doc.GetItemValue(L_TIMEFIELDNAME)(0))
   vTimeStart = vTime - (L_BEFORE * L_MINUTE)
   vTimeEnd = vTime + (L_AFTER * L_MINUTE)
   
   '---------------------------------------------
   'Vergleich
   '---------------------------------------------   
   If vNow > vTimeStart And vNow < vTimeEnd Then
      IsTimeValid = True
   Else
      IsTimeValid = False
   End If
   
ExitNow:
   Exit Function
   
ErrorHandler:
   IsTimeValid = False
   Call ErrorMessage("Function: IsTimeValid")
   Resume ExitNow
   
End Function
--- Ende Code ---

Danke nochmal, Bernhard.

Grüße,
Andreas

Navigation

[0] Themen-Index

[*] Vorherige Sete