ลองดูนะครับ ขั้นแรกก็สร้าง ตัวแปรก่อนนะครับ แล้วค่อย เก็บค่า
var fhn : string;
d1,d2:tdatetime;
ds1,ds2:string;
แล้วก็เพิ่มหลัง begin นะครับ
if preset_value(1)='' then
begin
if not inputquery('กรุณาใส่ HN ด้วย','HN',fhn) then exit;
end else
begin
fhn:=preset_value(0);
end;
อันนี้เป็น ให้เลือกวันที่ครับ
if not getdaterange() then exit;
d1:=date_result1();
d2:=date_result2();
ds1:=formatdatetime('yyyy-mm-dd',d1);
ds2:=formatdatetime('yyyy-mm-dd',d2);