Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Количество лет месяцев дней / 5 сообщений из 5, страница 1 из 1
09.07.2006, 21:19
    #33840894
alex_zima
alex_zima
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество лет месяцев дней
Тогда вопрос как количество дней, например 8215 перевести в количество
лет,месяцев,дней?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2006, 22:29
    #33840917
Urri
Urri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество лет месяцев дней
Общий ответ - никак! Потому что и дней в месяце по-разному выпадает, и года разной длины в днях случаются.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2006, 22:58
    #33840926
alex_zima
alex_zima
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество лет месяцев дней
А как же тогда считают стаж для назначения пенсии кадровики?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2006, 23:19
    #33840937
Burn
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество лет месяцев дней
А у них есть дополнительная информация - дата начала работі или дата конца или и то и другое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2006, 04:35
    #33841037
men dea
men dea
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Количество лет месяцев дней
Мне бухгалтер примерно так объяснила.
Может, и тебе подойдет

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
DATE2=Date()                && Текущая дата
DATE1=Ctod('2001-2-5')   && Дата приема на работу

y1=Year(DATE1)
m1=Month(DATE1)
d1=Day(DATE1)

y2=Year(DATE2)
m2=Month(DATE2)
d2=Day(DATE2)

If d2>=d1
	d=d2-d1
Else
	d=(d2+ 30 )-d1
	m2=m2- 1 
Endif

If m2>=m1
	m=m2-m1
	Y=y2-y1
Else
	m=(m2+ 12 )-m1
	Y=(y2- 1 ) -y1
Endif
*-------------- Смотрим, что вышло
Set Century On
Set Date JAPAN    &&  Удобнее для просмотра
Clear
? DATE2
? DATE1
? Str(Y, 6 )+'-'+Str(m, 2 )+'-'+Str(d, 3 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Количество лет месяцев дней / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 440ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1591259]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 148ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 214ms
total:  440ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]