สามารถแก้ไขข้อความ ช่วงเวลาพบแพทย์ได้ที่ ฟังก์ชัน GetTime
function GetTime(Range:Integer): Variant;
begin
Case Range of
0 : Result := 'Time Range 0';
1 : Result := 'Time Range 1';
2 : Result := 'Time Range 2';
3 : Result := 'Time Range 3';
4 : Result := 'Time Range 4';
5 : Result := 'Time Range 5';
6 : Result := 'Time Range 6';
7 : Result := 'Time Range 7';
8 : Result := 'Time Range 8';
9 : Result := 'Time Range 9';
10 : Result := 'Time Range 10';
end;
end;
อันนี้ผมจะแบ่งเป็น 11 ช่วง ก็กำหนดคำเอาได้เลยครับว่า
ช่วงที่ 0 กี่โมง - กี่โมง
ช่วงที่ 1 กี่โมง - กี่โมง
ส่วนในแต่ละช่วงจะมีกี่คน กำหนดที่
visit_per_range:=10;
(อยู่ใน variable2)
ไม่รู้ว่าตรงตามที่ต้องการหรือเปล่านะครับ
ปล. ช่วยตรวจสอบด้วยนะครับ ผมลองแล้วข้อมูลออก แต่ผมก็ยังไม่ชัวร์