修改操作系统的日期格式

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
        SystemTime : TSystemTime ;
        DateTime : TDateTime ;
begin
        DateTime := StrToDateTime ( Edit1.Text ) ;
        DateTimeToSystemTime( DateTime ,SystemTime ) ;
        SetLocalTime( SystemTime ) ;
 
end;

Answer 1

忘记讲了。你要修改的日期填在Edit上头其实可以搞个DateTimePicker的。_______________________________________________________________
多多交流    共同进步
[email protected]
http://nizvoo.myrice.com
_______________________________________________________________