* Считаем продолжительность сна. (даты в данных не указаны). * Автор: Raynald Levesque. * Допустим, id - номер наблюдения, sleetime - время отхода ко сну в 12-часовом формате, sampm - указание на период до полудня или после полудня (AM/PM), waketime - время пробуждения, wampm - указание на период пробуждения. NEW FILE. DATA LIST LIST /id(F8) Sleetime(TIME5) sampm(A2) waketime(TIME5) wampm(A2). BEGIN DATA. 1 12:00 PM 11:00 AM 2 2:00 AM 10:00 AM 3 4:00 AM 1:00 PM 4 11:30 PM 12:30 PM 5 12:30 AM 12:45 PM END DATA. LIST. * В нашей записи 12:30 AM означает отход ко сну в половине первого ночи. COMPUTE timebeg=12+sleetime/3600. IF sampm='AM' AND (XDATE.HOUR(sleetime)<>12) timebeg=timebeg+12. COMPUTE timeend=24+waketime/3600. IF wampm='PM' AND (XDATE.HOUR(waketime)<>12) timeend=timeend+12. COMPUTE dur1=timeend-timebeg. * Здесь переменная dur1 - числовая, т.е. 10.25 означает 10 часов 15 минут) * Если нужен ответ в формате времени (HH:MM), поступаем так. COMPUTE dur2=dur1*3600. FORMATS dur2(TIME5). EXECUTE. NEW FILE. DATA LIST LIST /id(F8) Sleetime(DTIME8) waketime(DTIME8). BEGIN DATA. 1 1:00:00 1:11:00 2 1:2:00 1:10:00 3 1:4:00 1:1:00 4 0:11:30 1:12:30 5 1:00:30 1:12:45 END DATA. LIST. * Вариант 2. * Здесь время заведено в формате DTIME. В данном формате * 0 21:00 означает 9 PM в день перед началом исследования. * 1 00:30 означает половину первого ночи. * 1 01:00 означает 1 AM в день исследования. * 1 12:30 означает 12:30 PM в день исследования. COMPUTE dur3=waketime-Sleetime. FORMAT dur3 (TIME5). *Здесь dur3 - продолжительность в часах и минутах (10:30 это 10 часов и 30 минут). EXECUTE.