Секунды во время (string) / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Секунды во время (string)

6 сообщений из 6, страница 1 из 1

Секунды во время (string)

#35814664

Imperous

Участник

Откуда: Оттуда )

Сообщения: 1 217

Рейтинг: 0 / 0

Всем привет!
Сегодня столкнулся с тем? что необходимо сделать такую конвертацию, и под рукой ничего не было. Вот, написал, может кому-то пригодиться:

1. Создаем метод формы - sectotime
2. Вписываем в него следующее:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

LPARAMETERS x
*!* x - тип integer
LOCAL hh,mm,ss as Integer 
LOCAL ch,cm,cs as String 

hh = INT(x/ 3600 )
mm = INT(x/ 60  -(hh* 60 ))
ss = MOD(x, 60 )

ch= IIF(hh <  10 , "0" + ALLTRIM(STR(hh)), ALLTRIM(STR(hh)))
cm= IIF(mm <  10 , "0" + ALLTRIM(STR(mm)), ALLTRIM(STR(mm)))
cs= IIF(ss <  10 , "0" + ALLTRIM(STR(ss)), ALLTRIM(STR(ss)))

mes = ch+":" + cm + ":" + cs
RETURN mes

3. Пример вызова:

Код: plaintext

1.
2.

SELECT thisform.sectotime(SUM(my_sec)), gr 
FROM table_1 
GROUP BY pr

...

Рейтинг:

0 / 0

12.02.2009, 21:19

| Ответить | Цитировать | Написать

Секунды во время (string)

#35814687

проходящий.

Гость

Imperous,

Код: plaintext

1.
2.

ch= Transform(hh,'@L 99')
cm= Transform(mm,'@L 99')
cs= Transform(ss,'@L 99')

...

Рейтинг:

0 / 0

12.02.2009, 21:39

| Ответить | Цитировать | Написать

Секунды во время (string)

#35814697

Imperous

Участник

Откуда: Оттуда )

Сообщения: 1 217

Рейтинг: 0 / 0

тоже вариант :)

...

Рейтинг:

0 / 0

12.02.2009, 21:42

| Ответить | Цитировать | Написать

Секунды во время (string)

#35814865

Samvel

Участник

Откуда: Армения

Сообщения: 120

Рейтинг: 0 / 0

проходящий.Imperous,

Код: plaintext

ch= Transform(hh,'@L 99')

hh может быть трехзначным и более, так что 99 не правильно

...

Рейтинг:

0 / 0

13.02.2009, 00:32

| Ответить | Цитировать | Написать

Секунды во время (string)

#35815463

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Для справки:

Если к переменной типа DateTime прибавить целое число, то это будет интерпретировано, как прибавление указанного количества секунд.

Тогда все решается проще:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

LPARAMETERS x
*!* x - тип integer

* Формируем значение переменной DateTime с "нулевым" времен
* Использовать пустое значение DateTime нельзя, поскольку будет некорректно работать сложение
LOCAL ltBaseTime
ltBaseTime = DTOT(Date())

* Прибавляем к нулевому времени указанное количество секунд
LOCAL ltNewTime
ltNewTime = m.ltBaseTime + m.x

* Выделяем из полученного значение фрагмент со временем
RETURN TTOC(m.ltNewTime,  2 )

Разумеется, этот алгоритм предполгает, что значение параметра не превышает количество секунд в сутках.

x < 24*60*60 (86400)

Поскольку в противном случае придется еще как-то выделять целое количество дней.

...

Рейтинг:

0 / 0

13.02.2009, 11:28

| Ответить | Цитировать | Написать

Секунды во время (string)

#35815476

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Если "свернуть" эту функцию, то можно использовать в запросе примерно так

Код: plaintext

1.
2.
3.
4.
5.

SELECT ;
	TTOC(DTOT(Date()) + SUM(my_sec), 2 ) as my_time, ;
	gr ;
FROM table_1 ;
GROUP BY gr

...

Рейтинг:

0 / 0

13.02.2009, 11:31

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Секунды во время (string)

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=35814697&tid=1586773]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	50ms
get topic data:	11ms
get forum data:	3ms
get page messages:	48ms
get tp. blocked users:	1ms
others:	13ms

total:	157ms