Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c