1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
Public Funktion GetTIMESHEETsMonday () als Doppeltes Schwacher Montag als Datum = GetThisMondayDate () Schwaches totalTime = von t in Me.ObjectContext.TIMESHEETs Wo t.TaskDate = Montag T vorwählen Wenn totalTime.Count <> 0 dann Rückholgesamtheit T im totalTime in Summe (T.TaskTime) Sonst Rückkehr 0 Beenden wenn Funktion beenden
1: 2: 3: 4: 5:
Frage = von t im ObjectContext.TIMESHEETs _ verdunkeln Wo t.TaskDate = Montag _ t.TaskTime vorwählen Schwache Summe als ganze Zahl = IIf (Frage IsNot nichts, Frage. Summe (), 0)