Вверх ↑
Этот топик читают: Гость
Ответов: 1891
Рейтинг: 110
#1: 2007-05-02 01:46:14 ЛС | профиль | цитата
Данный пример показывает как в SQLite можно осуществить расчет количества дней и часов между двумя датами, определить текущую дату и время, а также как применять форматированную строку и прибавлять время

Для работы схемы нужна библиотека sqlite3.dll Взять можно здесь
карма: 0
%time%
0
файлы: 1DateTimeSQLite.rar [2.4KB] [381]
vip
#1.1контекстная реклама от партнеров
Ответов: 8593
Рейтинг: 795
#2: 2007-05-02 09:19:00 ЛС | профиль | цитата
Alexbootch, хорошо сделано (ну что за имя "проект44", как в этих 44 проектах разбираетесь, где что )
карма: 18

0
Ответов: 1891
Рейтинг: 110
#3: 2007-05-02 22:04:02 ЛС | профиль | цитата
Леонид, вообще-то схема была проект4, но туда куда сохранял уже был проект4... вот и пришлось переименовать в проект44
карма: 0
%time%
0
Ответов: 1326
Рейтинг: 68
#4: 2007-05-05 15:23:34 ЛС | профиль | цитата
Alexbootch, a ты temp.db не забыл выложить
карма: 2

0
Ответов: 1891
Рейтинг: 110
#5: 2007-05-05 15:26:10 ЛС | профиль | цитата
Konst, писал(а):
Alexbootch, a ты temp.db не забыл выложить


Konst, база temp.db создается автоматом

В принципе база temp.db не нужна для работы примера, а нужно лишь подключение какой-либо базе, т.к. без подключения примеры работать не будут
карма: 0
%time%
0
Ответов: 37
Рейтинг: 0
#6: 2020-08-16 15:46:35 ЛС | профиль | цитата
Всем здравствовать!
В блоке "Сложение" больше 24-х часов не прибавить, правильно?
Тут просматривал темы, схемы.... в общем для себя такое сделал, без SQLite.
https://forum.hiasm.com/getfile/39100
В календаре прошлые года ограничивается 1752-ым, будущее годом 9999-ым, все верно, или что то не верно понимаю?

Редактировалось 1 раз(а), последний 2020-08-16 15:51:20
карма: 0

0
Ответов: 16884
Рейтинг: 1237
#7: 2020-08-16 18:30:22 ЛС | профиль | цитата
Work писал(а):
в общем для себя такое сделал, без SQLite
1. Тема именно про SQLite.
Work писал(а):
прошлые года ограничивается 1752-ым,
2. А в SQLite "прошлые года" начинаются с 24 ноября 4714 г. до нашей эры.
Work, да и считает неверно.

Редактировалось 2 раз(а), последний 2020-08-17 19:39:35
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 4636
Рейтинг: 510
#8: 2020-08-18 21:19:16 ЛС | профиль | цитата
Простое вычисление между датами (vbs)
Для всяких напоминалок пойдёт

Add(MainForm,2953706,147,168)
{
Width=257
Height=145
BorderStyle=3
Position=1
Point(onClose)
}
Add(DatePicker,6941124,84,105)
{
Left=20
Top=26
Width=164
Height=24
Font=[Tahoma,8,0,8388736,1]
TabOrder=1
Ctl3D=0
Hint="Выбор даты:Начало"
DateFormat=1
Point(DateTime)
link(onChange,9453086:doWork1,[(130,111)])
}
Add(DatePicker,1752262,147,105)
{
Left=20
Top=48
Width=164
Height=24
Font=[Tahoma,8,0,8388736,1]
TabOrder=2
Hint="Выбор даты:Конец"
DateFormat=1
Point(DateTime)
link(onChange,9453086:doWork2,[(198,111)(198,143)])
}
Add(VBJScript,1064411,84,168)
{
WorkPoints=#6:doWork|
EventPoints=#5:onRes|
DataPoints=#3:dt1|3:dt2|
Script=#18:Sub doWork(dt,idx)|43: sys.onRes DateDiff("s", sys.dt1, sys.dt2)|7:End Sub|0:|28:' первый параметр может быть|12:' "d" - день|11:' "h" - час|14:' "n" - минута|15:' "s" - секунда|
link(onRes,2953706:doCaption,[])
link(dt1,6941124:DateTime,[])
link(dt2,1752262:DateTime,[(97,152)(153,152)])
}
Add(HubEx,9453086,126,137)
{
Angle=2
link(onEvent,1064411:doWork,[(72,143)(72,174)])
}

карма: 6

0
Ответов: 1700
Рейтинг: 120
#9: 2020-08-19 15:47:02 ЛС | профиль | цитата
andrestudio, Чуня Муня...
Я такой-же, если смогу!
Но мне нравится, как ты сделал Win.pas и WinControl.ini!
А почему-бы не возродить HiAsm?
Конечно и внук Илюшка это прошёл, и пишет уже на другом языке, но трамплин был!!!
Не знаю, конечно тут не это только обсуждения, но и глубокие вещи.
Ну, так, допустим, из D4 добавим CLASSES.PAS, CONSTS.PAS, ffmt.OBJ, SYSCONST.PAS, SYSUTILS.PAS, TYPINFO.PAS - да и дело с концом! (их есть у меня)
Проверял - всё будет, как из пистолета работать!
Не те КОЛовские, которые ты выкладывал, а именно D4.
Как его зовут - КОЛ - четвертовать!!!
Понимаю, как? - да так!
Любой язык достойный, если из него не делать "Цыганского золота".
Какая разница, на коком языке писать, всё будет работать, - как из пистолета!
Главное, чтобы это не выбивалось из общепринятых законов мироздания.

Во Netspirit с FPC благое дело затеял!
Хоть я колдун, но не хватит мне силы, чтобы сложилось.
Надо постепенно.
А ошибки, ещё труднее исправлять, чем их делать.
Под лежачий камень - вода не течёт! Какие наши годы?

Редактировалось 7 раз(а), последний 2020-08-19 16:10:59
карма: 5

0
Ответов: 4636
Рейтинг: 510
#10: 2020-08-19 16:41:55 ЛС | профиль | цитата
flint2, Привет!
Что опять весёлый и разговорчивый, "Самый лучший день" типа
Никто ничего добавлять не будет, оставь надежды.
Я думаю если ты сделаешь типа известного приложения "Алиса" "Алиса2-сказочница" будет больше пользы чем юниты навязывать и игрушками маяться
HiAsm загибается от самих же всё время вопрошающих пользователей (которые впоследствии как правило ничего нового и не принесут в копилку HiAsm), ну и от политики форума. Здесь можно просто оставить своё время, время обмена опытом закончилось
карма: 6

0
Ответов: 1700
Рейтинг: 120
#11: 2020-08-19 17:10:02 ЛС | профиль | цитата
Сер Антонио, Привет!
Что опять весёлый и разговорчивый, "Самый лучший день" типа

Сильно заметно?
Я приехал около девяти, не спал сутки, затарился...
Буду отдыхать и никому не, чего там делать?, не мешать.
Я думаю если ты сделаешь типа известного приложения "Алиса" "Алиса2-сказочница" будет больше пользы чем юниты навязывать и игрушками маяться

такие мысли очень часто посещают!
Какого рожна, чего-то там копаться в "ASM", если и так можно сделать на бюджетных функциях.
Каждому - Своё!
У кого нет цели (жёлтых штанов Или заказа), тот в движках копается. У кого есть задача, тому по хе.ру мороз на чём идти.
Главное - есть куда!

«Надо жить километрами, а не квадратными метрами» ... Кукин и Визбор.

отрубаюсь, потому, что устал.
Видишь-же, что пытаюсь стоять...
Два инсульта - не предел!
Кстати, Леонид всегда всё правильно говорит. Он добрый и хороший!!!


Редактировалось 6 раз(а), последний 2020-08-19 19:32:46
карма: 5

0
Ответов: 16884
Рейтинг: 1237
#12: 2020-08-19 19:33:11 ЛС | профиль | цитата
andrestudio_4.jpg
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1700
Рейтинг: 120
#13: 2020-08-19 19:34:57 ЛС | профиль | цитата
Tad, я нихт ферштейн!
Порусски?

Tad, прошу прощения!
Понял.

Редактировалось 3 раз(а), последний 2020-08-19 19:51:43
карма: 5

0
Ответов: 4636
Рейтинг: 510
#14: 2020-08-20 10:29:50 ЛС | профиль | цитата
У кого ещё не работает?
У меня нет свойства Useчегото_там, скорей всего нужно его поменять с дефолтным
карма: 6

0
Ответов: 1700
Рейтинг: 120
#15: 2020-08-20 18:08:12 ЛС | профиль | цитата
Дон Педро, я разделяю такой подход!
карма: 5

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)