procedure TForm1.Button16Click(Sender: TObject); begin edit5.Text:= formatdatetime('yyyy',now) ; edit6.Text:= formatdatetime('MM',now) ; edit7.Text:= formatdatetime('ddd',now) ; edit8.Text:= formatdatetime('dd',now) ; edit9.Text:= formatdatetime('hh',now) ; edit10.Text:= formatdatetime('nn',now) ; edit11.Text:= formatdatetime('ss',now) ; if edit7.Text='星期一' then edit7.Text:='01' ; if edit7.Text='星期二' then edit7.Text:='02' ; if edit7.Text='星期三' then edit7.Text:='03' ; if edit7.Text='星期四' then edit7.Text:='04' ; if edit7.Text='星期五' then edit7.Text:='05' ; if edit7.Text='星期六' then edit7.Text:='06' ; if edit7.Text='星期七' then edit7.Text:='07' ; end;
var
AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word;
begin
DecodeDateTime(now, AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
Edit1.Text:= IntToStr(AYear);
Edit2.Text:= IntToStr(AMonth);
Edit3.Text:= IntToStr(ADay);
Edit4.Text:= IntToStr(AHour);
Edit5.Text:= IntToStr(AMinute);
Edit6.Text:= IntToStr(ASecond);
end;
var
CurrentNow: TDateTime;
begin
CurrentNow:= now;
Edit1.Text:= FormatDateTime('yyyy',CurrentNow);
Edit2.Text:= FormatDateTime('mm',CurrentNow);
Edit3.Text:= FormatDateTime('dd',CurrentNow);
Edit4.Text:= FormatDateTime('hh',CurrentNow);
Edit5.Text:= FormatDateTime('nn',CurrentNow);
Edit6.Text:= FormatDateTime('ss',CurrentNow);
end;
begin
edit5.Text:= formatdatetime('yyyy',now) ;
edit6.Text:= formatdatetime('MM',now) ;
edit7.Text:= formatdatetime('星期几',now) ;
edit8.Text:= formatdatetime('dd',now) ;
edit9.Text:= formatdatetime('hh',now) ;
edit10.Text:= formatdatetime('nn',now) ;
edit11.Text:= formatdatetime('ss',now) ;
end;
begin
edit5.Text:= formatdatetime('yyyy',now) ;
edit6.Text:= formatdatetime('MM',now) ;
edit7.Text:= formatdatetime('ddd',now) ;
edit8.Text:= formatdatetime('dd',now) ;
edit9.Text:= formatdatetime('hh',now) ;
edit10.Text:= formatdatetime('nn',now) ;
edit11.Text:= formatdatetime('ss',now) ;
if edit7.Text='星期一' then edit7.Text:='01' ;
if edit7.Text='星期二' then edit7.Text:='02' ;
if edit7.Text='星期三' then edit7.Text:='03' ;
if edit7.Text='星期四' then edit7.Text:='04' ;
if edit7.Text='星期五' then edit7.Text:='05' ;
if edit7.Text='星期六' then edit7.Text:='06' ;
if edit7.Text='星期七' then edit7.Text:='07' ;
end;
要不你这样
TWeekDay: array[1..7] of string = ( '星期07','星期01', '星期02' ,'星期03' , '星期04', '星期05', '星期06');edit7.Text := tweekday[DayOfWeek(Now)];