прописью день недели от поля Дата Microsoft Access

вычисляем прописью день недели от поля Дата Microsoft Access
Private Sub Кнопка9_Click()
Forms![пример]![ДН] = Weekday(Forms![пример]![дата], 2)
Forms![пример]![деньНеделиСокр] = WeekdayName(Forms![пример]![ДН], True, 2)
Forms![пример]![деньНедели] = WeekdayName(Forms![пример]![ДН], False, 2)
End Sub
программы на Microsoft Access
access-program...