(1): 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
Public Funkcja GetTIMESHEETsMonday () Kopia Ciemnawy Poniedziałek Jako Data = GetThisMondayDate () Ciemnawy totalTime = Od t W Me.ObjectContext.TIMESHEETs Dokąd t.TaskDate = Poniedziałek Wybrany t Jeżeli totalTime.Count <> (0) Wtedy Powrotny Agregat T W totalTime W Suma (T.TaskTime) Inny Powrót (0) Kończyć Jeżeli Kończyć Funkcja
(1): 2: 3: 4: 5:
Ćmić zapytanie = Od t W ObjectContext.TIMESHEETs _ Dokąd t.TaskDate = Poniedziałek _ Wybierać t.TaskTime Ćmić suma Jako Integer = IIf (zapytanie IsNot Zapytanie, zapytanie. Suma (), (0))