powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Количество лет месяцев дней
5 сообщений из 5, страница 1 из 1
Количество лет месяцев дней
    #33840894
alex_zima
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Тогда вопрос как количество дней, например 8215 перевести в количество
лет,месяцев,дней?
...
Рейтинг: 0 / 0
Количество лет месяцев дней
    #33840917
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Общий ответ - никак! Потому что и дней в месяце по-разному выпадает, и года разной длины в днях случаются.
...
Рейтинг: 0 / 0
Количество лет месяцев дней
    #33840926
alex_zima
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А как же тогда считают стаж для назначения пенсии кадровики?
...
Рейтинг: 0 / 0
Количество лет месяцев дней
    #33840937
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А у них есть дополнительная информация - дата начала работі или дата конца или и то и другое
...
Рейтинг: 0 / 0
Количество лет месяцев дней
    #33841037
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
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Количество лет месяцев дней
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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