hi

我們打算寫一隻程式

要讓程式取得系統時間後 能夠在RadioGroup自動選取

例如 早診 午診 晚診===>這是RadioGroup的items

假如現在登入時間是早上8:00-中午12:30 那麼RadioGroup的早診鈕便會被自動選取

中午12:30-下午18:00的午診鈕便會被自動選取

午診12:30-18:00晚診18:00-22:00

這樣的程式要如何寫判斷式呢?

------
hi

HI, 你可以試試下面這樣，這樣的寫法比較笨，但現在我人還不聰明，所以先貼給你~~ 

[code delphi]
var tmpNow: Double;
begin
tmpNow := TimeOf(Now);
if (tmpNow >= StrToTime('08:00')) and (tmpNow < StrToTime('12:30')) then
RadioGroup1.ItemIndex := 0
else if (tmpNow >= StrToTime('12:30')) and (tmpNow < StrToTime('18:00')) then
RadioGroup1.ItemIndex := 1
else if (tmpNow >= StrToTime('18:00')) and (tmpNow < StrToTime('22:00')) then
RadioGroup1.ItemIndex := 2
else
RadioGroup1.ItemIndex := -1;
end;
[/code]

===================引 用 od11112001 文 章===================
hi

我們打算寫一隻程式

要讓程式取得系統時間後 能夠在RadioGroup自動選取

例如 早診 午診 晚診===>這是RadioGroup的items

假如現在登入時間是早上8:00-中午12:30 那麼RadioGroup的早診鈕便會被自動選取

中午12:30-下午18:00的午診鈕便會被自動選取
午診12:30-18:00晚診18:00-22:00

這樣的程式要如何寫判斷式呢?

------
價值的展現，來自於你用哪一個角度來看待它!!

抱歉，改一下 careychen 大大的回覆提供另一個用字串比較的方式，僅供參考。


[code delphi]
procedure TForm1.FormCreate(Sender: TObject);
var tmpNow: String;
begin
tmpNow := formatdatetime('hhmm',now);
if (tmpNow >= '0800') and (tmpNow < '1230') then
RadioGroup1.ItemIndex := 0
else if (tmpNow >= '1230') and (tmpNow < '1800') then
RadioGroup1.ItemIndex := 1
else if (tmpNow >= '1800') and (tmpNow < '2200') then
RadioGroup1.ItemIndex := 2
else
RadioGroup1.ItemIndex := -1;
end;
[/code]

------
努力會更接近成功

1.新手入學, 請先閱讀版規, 謝謝合作
2.此文非資料庫區討論, 移至新手問題區
3.如果求程式請到新手問題區

編輯記錄

不敢說最聰明，但至少是最簡單

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
tmptime : integer;
begin
tmptime := strtoint(formatdatetime('hhmm',now));
case tmptime of
0800..1200:
RadioGroup1.ItemIndex := 0;
1400..1800:
RadioGroup1.ItemIndex := 1;
1900..2100:
RadioGroup1.ItemIndex := 2;
else
RadioGroup1.ItemIndex := -1;
showmessage('現在 ' formatdatetime('hh 時 mm 分',now) ' 是休息時間');
end;
end;
[/code]

------
努力會更接近成功