频道分类

Delphi 获取星期的函数

作者:admin 来源: 日期:2020/2/9 18:37:39 人气: 标签:

 
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;