1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
* Требуется конвертировать строку 1997-08-22 в переменную, имеющую формат даты.
* Автор: Ray, 10.10.2003.

data list fixed /date1 1-10(a).
begin data
1997-08-22
1998-03-31
end data.

compute yr=number(substr(date1,1,4),f4).
compute mo=number(substr(date1,6,2),f4).
compute da=number(substr(date1,9,2),f4).
compute date2=date.dmy(da,mo,yr).
formats date2(adate10).
execute.