|
#1
|
|||
|
|||
Дата
Привет!!!
Подскажите как разложить дату на состовляющие т.е день отдельно месяц отдельно и год отдельно и получить данные в формате string или integer. Спасибо! |
#2
|
||||
|
||||
Дата передается целым числом до точки, тип Double после точки идет время.
12/06/2002 т.е число будет выглядеть как 12062002, далее тебе необходимо получить нужное тебе число. Код:
var temp:string; date:TDate; day,month,year:string; begin date:=StrToDate('12/06/2002'); temp:=DateToStr(Date); Month:=copy(temp,1,2); Day:=Copy(Temp,3,2); Year:=Copy(Tmp,6,2); end; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
еще проще - есть функция decodeDate:
Код:
var Day, Month, Year : WORD; begin DecodeDate(Date,Year,Month,Day); end; |