Delphi Delphi получить недельную функцию

[Lomanu4]

Function GetWeek( dtTarih: TDateTime ): String;
begin
Case DayOfWeek( dtTarih ) of
1 : Result := 'Понедельник';
2 : Result := 'Вторник';
3 : Result := 'Среда';
4 : Result := 'Четверг';
5 : Result := 'Пятница';
6 : Result := 'Суббота';
7 : Result := 'Воскресенья';
End;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
ShowMessage( GetWeek( DateTimePicker1.DateTime ) );
end;

 

[Sascha]

Function GetWeek( dtTarih: TDateTime ): String;
begin
Case DayOfWeek( dtTarih ) of
1 : Result := 'Понедельник';
2 : Result := 'Вторник';
3 : Result := 'Среда';
4 : Result := 'Четверг';
5 : Result := 'Пятница';
6 : Result := 'Суббота';
7 : Result := 'Воскресенья';
End;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
ShowMessage( GetWeek( DateTimePicker1.DateTime ) );
end;

Ошибка в коде, нужно начинать с выходного, тогда будет показывать правильно.

Case DayOfWeek( dtTarih ) of
1 : Result := 'Воскресенья';
2 : Result := 'Понедельник';
3 : Result := 'Вторник';
4 : Result := 'Среда';
5 : Result := 'Четверг';
6 : Result := 'Пятница';
7 : Result := 'Суббота';
End;