Формат даты

[SergiOD]

Здраствуйте!

Из StringGrid1 икспортирую данные в Table1.db

Table1.Open;                                   
 Table1.Append;
 Table1.Edit;
 Table1.FieldByName('COD').AsString:=StringGrid1.Cells[2,i];
// Table1.FieldByName('DATAIN').AsString:=StringGrid1.Cells[3,i];
 Table1.Post;

В StringGrid1 попадает дата в формате YYYY-MM-DD
В таблицу (в 'DATAIN') надо занести дату в формате DD.MM.YYYY
Подскажите как "на лету" при экспорте конвертировать дату из формата в формат и записать в нужном формате.

[ArtGrek]

то в каком формате заносит в стринг лист еше зависит от того какои формат отображения даты стоит в винде
если поменять должно помоч

или так

var
  mydate : TDateTime;
begin
  myDate := EndOfAMonth(2007, 9); // 9 Февраля 2007 23:59:59.999
  ShowMessage('Дата     = '+DateTimeToStr(myDate));
  DateSeparator := '_';           // Замена разделитель даты /
  ShowMessage('Дата теперь = '+DateTimeToStr(myDate));
end;

[SergiOD]

Сообщение от ArtGrek

то в каком формате заносит в стринг лист еше зависит от того какои формат отображения даты стоит в винде
если поменять должно помоч

В стринг попадает YYYY-MM-DD. Системный формат менять нельзя.

Сообщение от ArtGrek

или так

Это просто изменит "_". А мне надо чтобы формат изменился на DD.MM.YYYY

[ArtGrek]

ну ты блин даеш!!!
перед занесением в StringGrid
DateSeparator := '.';

почитаи
http://www.delphisources.ru/pages/fa...rator.php.html
http://www.delphibasics.ru/navDateUtils.php

[SergiOD]

! Мне не просто нужно заменить разделитель,
Дата = 09/02/2007
Дата теперь = 09_02_2007

а изменить формат

Решил вот так:

var
 FS:TFormatSettings;
 dt: TDateTime;
 Wdate : string;
begin
 Wdate:= '2010-12-24';
with fs do begin
DateSeparator:='-';
ShortDateFormat:='yyyy-mm-dd';
LongDateFormat:='yyyy-mm-dd';
end;
dt:=StrToDate(Wdate,FS);
ShowMessage(DateToStr(dt));
end;

[Genco]

FormatDateTime() ?)