1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
Public Functie GetTIMESHEETsMonday () zoals Dubbel Schemerige Maandag als Datum = GetThisMondayDate () Schemerige totalTime = van t in Me.ObjectContext.TIMESHEETs Waar t.TaskDate = Maandag Selecteer t Als totalTime.Count <> 0 toen Terugkeer Gezamenlijk T in totalTime in Som (T.TaskTime) Anders Terugkeer 0 Eind als De Functie van het eind
1: 2: 3: 4: 5:
Schemerige vraag = van t in ObjectContext.TIMESHEETs _ Waar t.TaskDate = Maandag _ Selecteer t.TaskTime Verduister som als Geheel = IIf (vraag IsNot niets, vraag. Som (), 0)