как разделить строку даты

[evg_m]

wDat + число дней в месяце. Конкретную функцию смотри справку DateUtils

[Sm1Le]

procedure DecodeDate(TDateTime; var Year, Month, Day: Word); - для взятия как число ....
и обратно : function EncodeDate(Year, Month, Day: Word): TDateTime;

[Serge_Bliznykov]

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

DecodeDate(...) и обратно : function EncodeDate(

В данном случае, ИМХО, так нецелесообразно делать... я не рекомендую так делать. Потом напляшешься с проверками какой день, какой месяц, какой год...
Хотя, в данном случае, и если всегда задано 1-е число месяца и надо перейти всегда на 1-е число следующего месяца, то можно...
понадобится только одна проверка, что месяц < 12

if Month < 12 then
  D := EncodeDate(Year, Month+1, 1)
else
  D := EncodeDate(Year+1, 1, 1);

но, всё же, я рекомендую воспользоваться функцией

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;
из модуля SysUtils

[Arkuz]

Спасибо всем за помощь...

[student90]

а мне кто нить че нить подскажет?

[Serge_Bliznykov]

student90
1) не понял, а что же Вы со своими датами в конце концов хотите сделать?
2) а "по хорошему" - с типом TDateTime не получается?
вот такое, что не работает?

var
  d1 : TDateTime;
...
  d1:=adoquery1.fieldbyname('dt').AsDateTime;

{dt-столбец с датами.}

[student90]

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

student90
1) не понял, а что же Вы со своими датами в конце концов хотите сделать?
2) а "по хорошему" - с типом TDateTime не получается?
вот такое, что не работает?

var
  d1 : TDateTime;
...
  d1:=adoquery1.fieldbyname('dt').AsDateTime;

{dt-столбец с датами.}

var
  d1 : TDateTime;
...
  d1:=adoquery1.fieldbyname('dt').AsDateTime;

- не идет.пишет ошибка многошаговой операции.
через adoquery приходит результат запроса в dbgrid (он же столбик dt).
так вот мне нужно уже пришедшие результаты в delphi (то есть столбик а точнее ячейки столбика) которые в формате datetime разбить на
"2008-11-08 08:08:00.001" -> "08-11-2008" (формата date) и "08:08:00.001" (формата time)