Lotus Notes - Obtener los días de la semana en LotusScript

If oDoc.isNewDoc Then

   oDoc.devolverEl = getFechaDevolucion()

   oDoc.Devuelto = "0"

End If

Call oDoc.Save

function getFechaDevolucion() as Variant

        Dim dFecha as New NotesDateTime(Now)

        Call SumaDia( dFecha ) '<--POR SI HOY ES LUNES  (Nota: Se puede pedir prestado un domingo?)

       While Not isLunes( dFecha )

             Call SumaDia( dFecha )

      End

     getFechaDevolucion = cDat( dFecha.DateOnly )

End Function

Function isLunes( dFecha ) as boolean

       isLunes = ( weekday( dFecha )=2  )

End Function