T tiendinosaur Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-19 #1 有个问题想请教，如何获得系统当前的星期，谢谢各位，我会在线等待您的指教！
老 老革命 Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-19 #2 var LocalTime: TSystemTime; begin GetSystemTime(LocalTime); //LocalTime.wDayOfWeek end;
T tiendinosaur Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-19 #3 谢谢，我是个初学者，可不可以告诉我怎么把结果show出来，谢谢！
Z zhihuali Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-19 #4 function GetWeek: String; var I : Integer; WeekStr : String; begin I := DayofWeek(Now); Case I of 1 : WeekStr := '天'; 2 : WeekStr := '一'; 3 : WeekStr := '二'; 4 : WeekStr := '三'; 5 : WeekStr := '四'; 6 : WeekStr := '五'; else WeekStr := '六'; end; Result := '星期' + WeekStr; end;
function GetWeek: String; var I : Integer; WeekStr : String; begin I := DayofWeek(Now); Case I of 1 : WeekStr := '天'; 2 : WeekStr := '一'; 3 : WeekStr := '二'; 4 : WeekStr := '三'; 5 : WeekStr := '四'; 6 : WeekStr := '五'; else WeekStr := '六'; end; Result := '星期' + WeekStr; end;
J jlbios Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-20 #5 const cWeekCn: array[1..7] of string = ('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六'); begin Edit1.Text := cWeekCn[DayOfWeek(Now)];
const cWeekCn: array[1..7] of string = ('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六'); begin Edit1.Text := cWeekCn[DayOfWeek(Now)];
S shbjkl Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-20 #6 formatdatetime('dddd',now)
M mei_mei Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-20 #7 procedure TForm1.Button1Click(Sender: TObject); begin showmessage(formatdatetime('dddd',now)); end;
H hnxx2003 Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-20 #8 formatdatetime('dddd',now)
D dongliang110 Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-20 #9 case DayOfWeek(now) of 1:Label1.Caption:='周7'; 2:Label1.Caption:='周1'; 3:Label1.Caption:='周2'; 4:Label1.Caption:='周3'; 5:Label1.Caption:='周4'; 6:Label1.Caption:='周5'; 7:Label1.Caption:='周6'; end;
case DayOfWeek(now) of 1:Label1.Caption:='周7'; 2:Label1.Caption:='周1'; 3:Label1.Caption:='周2'; 4:Label1.Caption:='周3'; 5:Label1.Caption:='周4'; 6:Label1.Caption:='周5'; 7:Label1.Caption:='周6'; end;
