Передача данных из одной базы в другую.

← →
Iscandersam (2004-02-09 09:36) [0]

Здарвствуйте! Подскажите пожалуйсто как можно переписать с одной базы в другую поля даты в поля String. В базе выглядит вот так 15.12.2003 , а нужно чтобы выглядела вот так 15122003 желательно программный год. Прошу вас кто занет подскажите зарание благодарю!

← →
DenK_vrtz (2004-02-09 10:19) [1]

На вскидку разобрать строку, удалив из нее сепаратор.
var s:string;
begin
s:=datetostr(date());
while pos(dateseparator,s) <> 0 do
s:=copy(s,1,pos(dateseparator,s)-1)+copy(s,pos(dateseparator,s)+1,length(s)-pos(dateseparator,s));
showmessage(s);
end;

← →
sniknik (2004-02-09 10:38) [2]

замена вышеприведенного
var s:string;
begin
DateTimeToString(s, "ddmmyyyy", date());
showmessage(s);
end;

← →
Anatoly Podgoretsky (2004-02-09 10:58) [3]

Или же ее более удобный представитель - функцию FormatDateTime, тогда это будет выглядеть красивее

// var s:string;
begin
showmessage(FormatDateTime("ddmmyyyy", date));
end;

Передача данных из одной базы в другую. Найти похожие ветки