Q&A

  • 컴퓨터 시간바꾸기를 어떻게 하면 될까요..?
매번 이곳에서 도움만 받아 갑니다. 간단한 것이라 생각해야 할지 어떨지는 모르겠지만, 방법이
생각나질 않고 자료를 찾아봐도 없네요.. 부탁드립니다.

에디터 창에 2006-11-14 14:00:00 이라는 날짜와 시간을 입력후

컴퓨터 시간을 입력된 값으로 바꾸려고 하는데 어떻게 하면 될까요..?
1  COMMENTS
  • Profile
    이동규 2006.11.13 21:19
    그냥 복사해 왔습니다. 그럼 수고하세요.


    var
            S : TSystemTime;
            D, T : TDateTime;
            yy, mm, dd, hh, mi, ss, ms : Word;
    begin
            D := StrToDate('2003-01-15');
            T := StrToTime('오후 2:31:51‘);

            DecodeDate(D,yy,mm,dd);
            DecodeTime(T,hh,mi,ss,ms);

            S.wYear := yy;
            S.wMonth := mm;
            S.wDayOfWeek := DayOfWeek(D);
            S.wDay := dd;
            S.wHour := hh;
            S.wMinute := mi;
            S.wSecond := ss;
            S.wMilliSeconds := ms;

            if SetLocalTime(S) then
                    MessageDlg('OK');

    end;