Q&A

  • 밀리초까지 구하는 방법
초보입니다.

현재 시간을 얻고자 할 때.. 밀리초까지 얻을 수 있는 방법을 갈켜주십시요...

1  COMMENTS
  • Profile
    안재현 1999.11.16 21:39
    여용구 wrote:

    > 초보입니다.

    > 현재 시간을 얻고자 할 때.. 밀리초까지 얻을 수 있는 방법을 갈켜주십시요...

    안녕하세요.

    밀리초라..



    일단 변수를 TDateTime으로 두시구요.

    var a : TDateTime



    a := now; 라고 하시면 현재 날짜와 시간이 모두 a 변수에 들어가게 됩니다.

    이제 날짜와 시간을 따로 구분해서 보시면 되는데요.



    procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

    procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);



    두개의 함수를 쓰시면 될것같네요.

    사용법은 헬프를 보시면 정확하게 나옵니다.