MYSQL Params AsDateTime

[SergioFeitoza]

How could  I write the phrase  marked below  with ???? (date expire)to represente a Date time = now + 30 minutes. I am using MySql Server 8.0

procedure TuniMainModule.saveToken;
var        SaveTokenQuery: TMyQuery;
begin
  SaveTokenQuery := TMyQuery.Create(nil);
  try
    SaveTokenQuery.Connection := ConnectionSFC;
    SaveTokenQuery.SQL.Clear;
    SaveTokenQuery.SQL.Add('INSERT INTO tokens(dateregister,dateexpire,token) VALUES (:dateregister, :dateexpire, :token);');
    SaveTokenQuery.ParamByName('dateregister').AsDateTime := now;
    SaveTokenQuery.ParamByName('dateexpire').AsDateTime :=  now;        /// Now + 30 minutes    ???????????????????
    SaveTokenQuery.ParamByName('token').AsString := token;           
    SaveTokenQuery.Execute;
  finally
    SaveTokenQuery.Free;
  end;

end;

[irigsoft]

7 hours ago, SergioFeitoza said:

How could  I write the phrase  marked below  with ???? (date expire)to represente a Date time = now + 30 minutes. I am using MySql Server 8.0

procedure TuniMainModule.saveToken;
var        SaveTokenQuery: TMyQuery;
begin
  SaveTokenQuery := TMyQuery.Create(nil);
  try
    SaveTokenQuery.Connection := ConnectionSFC;
    SaveTokenQuery.SQL.Clear;
    SaveTokenQuery.SQL.Add('INSERT INTO tokens(dateregister,dateexpire,token) VALUES (:dateregister, :dateexpire, :token);');
    SaveTokenQuery.ParamByName('dateregister').AsDateTime := now;
    SaveTokenQuery.ParamByName('dateexpire').AsDateTime :=  now;        /// Now + 30 minutes    ???????????????????
    SaveTokenQuery.ParamByName('token').AsString := token;           
    SaveTokenQuery.Execute;
  finally
    SaveTokenQuery.Free;
  end;

end;

//uses SysUtils;

SaveTokenQuery.ParamByName('dateexpire').AsDateTime :=  IncMinute (now,30);        /// Now + 30 minutes    
   

[SergioFeitoza]

4 hours ago, irigsoft said:

//uses SysUtils;

SaveTokenQuery.ParamByName('dateexpire').AsDateTime :=  IncMinute (now,30);        /// Now + 30 minutes    
   

Thank you very much Irigsoft . I was looking for something like this but simply did not find in many searches  Regards

[SergioFeitoza]

2 minutes ago, SergioFeitoza said:

Thank you very much Irigsoft . I was looking for something like this but simply did not find in many searches  Regards

Just to record for future use   

Delphi Basics : IncMinute command