Аналитика
https://www.geosystema.net/forum/

Все про скрипти
https://www.geosystema.net/forum/viewtopic.php?f=1&t=2809		 Страница 83 из 83
Автор:  petrogeo [ 31 янв 2024 16:44 ]
Заголовок сообщения:  Re: Все про скрипти
Доброго дня.
Підкажіть, як перевести значення отримане за допомогою функції @FileDate (дата файлу), у формат дати dd.mm.yyyy
Автор:  Руслан Пархуць [ 31 янв 2024 18:09 ]
Заголовок сообщения:  Re: Все про скрипти
petrogeo писал(а):
Доброго дня.
Підкажіть, як перевести значення отримане за допомогою функції @FileDate (дата файлу), у формат дати dd.mm.yyyy

Спробуйте, накинув на скору руку з сайтів 1 і 2, можливо щось підправити потрібно
Код:
$FDate=45316.79
$Trunc=@Calc Trunc("$FDate")
$Trunc=@DequoteText $Trunc
$d=$Trunc
$y24=$d/365.2422
$years=@Calc Trunc("$y24")+1900
$m24=Frac("$y24")*12
$months=@Calc Trunc("$m24")+1
$days=@Calc Trunc(Frac("$m24")*30)
; hours minutes seconds
$Frac=@Calc Frac("$FDate")
$Frac=@DequoteText $Frac
$t=$Frac
$t24=$t*24
$hours=@Calc Trunc("$t24")
$t24=@Calc Frac("$t24")
$minutes=@Calc Trunc("$t24"*60)
$t24=$t24-$minutes/60
$seconds=@Calc Trunc("$t24"*3600)
@Dialog.Memo Header|$days-$months-$years ($hours:$minutes:$seconds)

P.S. З датою, бачу, проблеми. Потрібно аналізувати місяць (не кожен має 30 днів)
Автор:  petrogeo [ 01 фев 2024 08:34 ]
Заголовок сообщения:  Re: Все про скрипти
Руслан Пархуць писал(а):
petrogeo писал(а):
Доброго дня.
Підкажіть, як перевести значення отримане за допомогою функції @FileDate (дата файлу), у формат дати dd.mm.yyyy

Спробуйте, накинув на скору руку з сайтів 1 і 2, можливо щось підправити потрібно
Код:
$FDate=45316.79
$Trunc=@Calc Trunc("$FDate")
$Trunc=@DequoteText $Trunc
$d=$Trunc
$y24=$d/365.2422
$years=@Calc Trunc("$y24")+1900
$m24=Frac("$y24")*12
$months=@Calc Trunc("$m24")+1
$days=@Calc Trunc(Frac("$m24")*30)
; hours minutes seconds
$Frac=@Calc Frac("$FDate")
$Frac=@DequoteText $Frac
$t=$Frac
$t24=$t*24
$hours=@Calc Trunc("$t24")
$t24=@Calc Frac("$t24")
$minutes=@Calc Trunc("$t24"*60)
$t24=$t24-$minutes/60
$seconds=@Calc Trunc("$t24"*3600)
@Dialog.Memo Header|$days-$months-$years ($hours:$minutes:$seconds)

P.S. З датою, бачу, проблеми. Потрібно аналізувати місяць (не кожен має 30 днів)

Дякую за допомогу. :wink:
Теж замітив що останні дні місяця рахує невірно. Буду пробувати прив'язувати кількість днів до місяця
Автор:  Руслан Пархуць [ 01 фев 2024 19:07 ]
Заголовок сообщения:  Re: Все про скрипти
Руслан Пархуць писал(а):
P.S. З датою, бачу, проблеми. Потрібно аналізувати місяць (не кожен має 30 днів)

Поправив скрипт, рішення знайшов тут
Код:
$FDate=45316.79
; year month day
$Trunc=@Calc Trunc("$FDate")
$Trunc=@DequoteText $Trunc
$d=$Trunc
$l=$d+68569+2415019
$n=@Calc Trunc((4*"$l")/146097)
$l=@Calc "$l"-Trunc((146097*"$n"+3)/4)
$i=@Calc Trunc((4000*("$l"+1))/1461001)
$l=@Calc "$l"-Trunc((1461*"$i")/4)+31
$j=@Calc Trunc((80*"$l")/2447)
$day=@Calc "$l"-Trunc((2447*"$j")/80)
$l=@Calc Trunc("$j"/11)
$month=@Calc "$j"+2-(12*"$l")
$year=100*("$n"-49)+"$i"+"$l"
; hours minutes seconds
$Frac=@Calc Frac("$FDate")
$Frac=@DequoteText $Frac
$t=$Frac
$t24=$t*24
$hours=@Calc Trunc("$t24")
$t24=@Calc Frac("$t24")
$minutes=@Calc Trunc("$t24"*60)
$t24=$t24-$minutes/60
$seconds=@Calc Trunc("$t24"*3600)
; formating
$Len=@StringLength $month
@If $Len=1 Then $month=0$month
$Len=@StringLength $day
@If $Len=1 Then $day=0$day
$Len=@StringLength $hours
@If $Len=1 Then $hours=0$hours
$Len=@StringLength $minutes
@If $Len=1 Then $minutes=0$minutes
$Len=@StringLength $seconds
@If $Len=1 Then $seconds=0$seconds
;
@Dialog.Memo Header|$day-$month-$year ($hours:$minutes:$seconds)
Автор:  petrogeo [ 01 фев 2024 20:52 ]
Заголовок сообщения:  Re: Все про скрипти
Руслан Пархуць писал(а):
Руслан Пархуць писал(а):
P.S. З датою, бачу, проблеми. Потрібно аналізувати місяць (не кожен має 30 днів)

Поправив скрипт, рішення знайшов тут

Дякую Вам, саме те що потрібно!!! :D
Автор:  VictorR [ 13 апр 2024 14:22 ]
Заголовок сообщения:  Re: Все про скрипти
Доброго дня. Підкажіть як реалізувати наступну ідею:
Необхідне зробити немодальне окреме вікно у якому буде відображатися зміна площі в реальному часі.
Наприклад я тягну за точку земельної ділянки, а у цьому вікні відображається площа ділянки яка змінюється..
Страница 83 из 83 Часовой пояс: UTC + 2 часа
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/