Формат даты разняться в Delphi

[Cantana]

Привет всем программистам и тем кто собираеться стат им.

У меня проблема с датой: формат даты разняться(можеть не совсем ясно но я не нашел другое слова)
вот это процедура

procedure Tdbform.Button2Click(Sender: TObject);
begin
  // vaqt.Format:=m/d/y;

  dm2.ins_usloviya.Parameters.ParamByName('vaqt').Value:=vaqt.DateTime;
 case rd_tip.ItemIndex of
  0:begin
     dm2.ins_usloviya.Parameters.ParamByName('tipdat').Value:=dm2.bookTIP.Value;
     dm2.ins_usloviya.Parameters.ParamByName('t').Value:=strtofloat(sp_t.Text);
     dm2.ins_usloviya.Parameters.ParamByName('vlaj').Value:=strtofloat(sp_vlaj.Text);
     dm2.ins_usloviya.Parameters.ParamByName('davl').Value:=strtofloat(ed_davl.Text);
     dm2.ins_usloviya.Parameters.ParamByName('v_pit').Value:=strtofloat(sp_vpit.Text);
     dm2.ins_usloviya.Parameters.ParamByName('v_sep').Value:=strtofloat(sp_vsep.Text);
     dm2.ins_usloviya.Parameters.ParamByName('n_pit').Value:=strtofloat(sp_npit.Text);
     dm2.ins_usloviya.Parameters.ParamByName('n_sep').Value:=strtofloat(sp_nsep.Text);
     dm2.ins_usloviya.Parameters.ParamByName('linkkey').Value:=dm2.bookDSDesigner.Value;
     dm2.ins_usloviya.ExecSQL;
    // dm2.ins_usloviya.Active:=false;
    end;
  1: begin
     dm2.ins_usloviya.Parameters.ParamByName('tipdat').Value:=dm2.bookUTM.Value;
     dm2.ins_usloviya.Parameters.ParamByName('t').Value:=strtofloat(sp_t.Text);
     dm2.ins_usloviya.Parameters.ParamByName('vlaj').Value:=strtofloat(sp_vlaj.Text);
     dm2.ins_usloviya.Parameters.ParamByName('davl').Value:=strtofloat(ed_davl.Text);
     dm2.ins_usloviya.Parameters.ParamByName('v_pit').Value:=strtofloat(sp_vpit.Text);
     dm2.ins_usloviya.Parameters.ParamByName('v_sep').Value:=strtofloat(sp_vsep.Text);
     dm2.ins_usloviya.Parameters.ParamByName('n_pit').Value:=strtofloat(sp_npit.Text);
     dm2.ins_usloviya.Parameters.ParamByName('n_sep').Value:=strtofloat(sp_nsep.Text);
     dm2.ins_usloviya.Parameters.ParamByName('linkkey').Value:=dm2.bookDSDesigner.Value;
     dm2.ins_usloviya.ExecSQL;
    end;
//else  ShowMessage('Выберите тип, пожалуйста.');
end;
 ShowMessage('поехали!!!');
end;

а это результат то есть идеинтичный код даеть два разных результатов.
БД MS Access
11.04.2008
04.11.2008
p.s: я и ранше поднимал эту тему но увы те подсказки не помогли...

[Stilet]

Это здесь: dm2.ins_usloviya.Parameters.ParamBy Name('vaqt').Value:=vaqt.DateTime; чепухится?

[Cantana]

ДА ИМЕННО ТАМ

[Stilet]

Чесно скажу - никогда не сталкивался с проблемой такой.
У моих проектов с Акцессом даты всегда выдавались так так нужно без исключений. И способ ессно такой же.

[Cantana]

я тут заметил что это только при первых записях в таблицу или когда 10.мм.гг; 11.мм.гг. потом все окей...