เขียน Funtion ดึงข้อมูลที่เป็น Date จาก DBGrid พร้อมแปลง Format เป็นวันที่

ประกาศตัวแปร
private
    function convertDateDgvToEdt(dataGridView : TDBGrid ; index : Integer): TDate ;
    tempDueDate : TDate ;

function TSaleOrder_F.convertDateDgvToEdt(dataGridView: TDBGrid;index: Integer):TDate;
var
  getDate : string ;
  setDate : string ;
  year : string ;
  month : string ;
  day : string ;
  i : Integer ;
begin
getDate := dataGridView.Fields[index].Text ;
ShowMessage(getDate);
  for i := 0 to  getDate.Length- 1 do begin
    if i < 4 then begin
      year := year+getDate.Chars[i] ;
    end
    else if (i > 4) and (i < 7) then begin
      month := month+getDate.Chars[i] ;
    end
    else if i > 7 then begin
      day := day+getDate.Chars[i];
    end;
  end;

setDate := day+'/'+month+'/'+year ;
Result := StrToDate(setDate);
end;

เรียกใช้งาน

tempDueDate := convertDateDgvToEdt(dgvDataMst,11);