Q&A

  • 현재시간을 읽어와서 기준시간이랑 비교하는방법을 알고싶어요
현재 시간을 읽어와서 새벽12시 부터 아침 9:00전까지이면 예약접수가 안되도록 하는 로직을 구성중인대..시간비교가 안되는것 같습니다.
고수님들 알려주세요.
procedure TForm1.Label1Click(Sender: TObject);
begin
     if (FormatDateTime('hh:mm am/pm', Now) <=  '12:00 am') and  (FormatDateTime('hh:mm', Now) > '8:59 am')  then
        with Application do
        begin
                MessageBox('예약접수시간이 아닙니다', 'Look', MB_OK);
        end
     else
     with Application do
        begin
                MessageBox('OK', 'Look', MB_OK);
                exit;
        end

end;

좋을 하루되세요.
이 게시물을
2  COMMENTS
  • Profile
    이중철 • 2004.12.18 04:15
    if Frac(now) < 9/24 then
    begin
      MessageBox('예약접수시간이 아닙니다', 'Look', MB_OK);
      exit;
    end;

  • Profile
    석주현 • 2004.12.17 06:16
    아래 처럼 시간을 디코딩해서 비교하는게 ^^
    ==================================================
    procedure TForm1.Button1Click(Sender: TObject);
    var
      Present: TDateTime;
      Hour, Min, Sec, MSec: Word;
    begin
      Present:= Now;
      DecodeTime(Present, Hour, Min, Sec, MSec);

      if (Hour < 24) and (Hour >= 9) then
        ShowMessage('예약 접수 시간입니다.')
      else
        ShowMessage('아닙니다.')
    end;
←First Page
359 360 361 362 363 364 365 366 367 368
Last Page→
한델 로그인 하기