Аналитика http://geosystema.net/forum/ |
|
Все про скрипти http://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 днів) Дякую за допомогу. Теж замітив що останні дні місяця рахує невірно. Буду пробувати прив'язувати кількість днів до місяця |
Автор: | Руслан Пархуць [ 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 днів) Поправив скрипт, рішення знайшов тут Дякую Вам, саме те що потрібно!!! |
Автор: | VictorR [ 13 апр 2024 14:22 ] |
Заголовок сообщения: | Re: Все про скрипти |
Доброго дня. Підкажіть як реалізувати наступну ідею: Необхідне зробити немодальне окреме вікно у якому буде відображатися зміна площі в реальному часі. Наприклад я тягну за точку земельної ділянки, а у цьому вікні відображається площа ділянки яка змінюється.. |
Страница 83 из 83 | Часовой пояс: UTC + 2 часа |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |