Вверх ↑
Этот топик читают: Гость
Ответов: 8937
Рейтинг: 824
#46: 2007-01-19 21:38:26 ЛС | профиль | цитата
Сергей Федорович, точно так же, только чуть проще (как дела с VB ? )
code_844

[size=-2]------ Добавлено в 21:38
Чуть почитайте это обсуждение, там есть и ссылки на учебник по VB http://www.dev.hiasm.com/xf/topic.php?t=7338&start=15
карма: 19

0
файлы: 1code_844.txt [1KB] [562]
Гость
Ответов: 17029
Рейтинг: 0
#47: 2007-01-20 00:58:50 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2025-01-09 05:16:30
карма: 0

0
Ответов: 704
Рейтинг: 7
#48: 2011-08-17 18:40:01 ЛС | профиль | цитата
Леонид, подскажите, пожалуйста, как бы эту же схему переделать для сложения дат, или хотя бы часов. Уж было думал своими силами через реалтайм, но при количестве часов больше 24... если бы можно чтоб как и Вас в схеме: результат 126:12:32 например.
------------ Дoбавленo в 18.40:

Add(Edit,1332730,245,154)
{
Left=10
Top=30
Width=110
Text="-30"
DataType=2
}
Add(Label,10255789,245,105)
{
Left=10
Top=10
Width=108
Height=17
Caption="+- sec"
}
Add(Label,10206159,294,105)
{
Left=10
Top=60
Width=101
Height=17
Caption="End Data:"
}
Add(Edit,1628333,294,154)
{
Left=10
Top=80
Width=110
Text="01/02/2007 00:00:00"
}
Add(Label,6404101,343,154)
{
Left=10
Top=110
Width=72
Height=17
Caption="Result:"
}
Add(Edit,14725073,343,203)
{
Left=10
Top=130
Width=110
Text=""
}
Add(VBJScript,1929417,266,203)
{
WorkPoints=#6:doWork|
EventPoints=#7:onEvent|
DataPoints=#5:Data1|5:Data2|
Script=#0:|15:Option Explicit|0:|27:Function doWork(Data,Index)|3: |49: Sys.onEvent DateAdd("S", Sys.Data1, Sys.Data2)|2: |12:End Function|
UseName=0
link(onEvent,14725073:doText,[])
link(Data1,1332730:Text,[(272,195)(251,195)])
link(Data2,1628333:Text,[(279,195)(300,195)])
}
Add(Button,383065,210,203)
{
Left=40
Top=165
link(onClick,1929417:doWork,[])
}


карма: 0

0
Ответов: 4641
Рейтинг: 334
#49: 2011-08-17 21:25:44 ЛС | профиль | цитата
все просто. изучаем DateConvertor и режим StrFmtToDateUnix и ему обратный.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16884
Рейтинг: 1239
#50: 2011-08-17 21:42:57 ЛС | профиль | цитата
Ravilr, увы, всё совсем не так просто.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8937
Рейтинг: 824
#51: 2011-08-17 22:32:13 ЛС | профиль | цитата
Neo, но ведь это 2007 сейчас в HiAsm полно инструментов для работы с датами.
Сложение дат -- дело бесперспективное, например: 17.08.2011+31.08.2012=? что желаете получить в результате?
Другое дело к дате прибавить какое-то количество времени (в неделях, днях, ... микросекундах) и получить следующую дату, так для этого и выдумывать ничего не надо, всё уже есть
------------ Дoбавленo в 22.32:

Add(Edit,2673159,280,133)
{
Left=25
Top=70
Width=160
Text="17.08.2011 22:11:33"
}
Add(Edit,1974876,329,133)
{
Left=205
Top=70
Width=110
Text="1 15:02:17"
link(onChange,5060943:doSplit,[])
}
Add(Label,15111530,280,84)
{
Left=25
Top=55
Width=120
Caption="Дата ДД.ММ.ГГГГ ЧЧ:ММ:СС"
}
Add(Label,8192933,287,84)
{
Left=205
Top=55
Width=110
Caption="Время Д ЧЧ:ММ:СС"
}
Add(Label,10478990,294,84)
{
Left=190
Top=70
Width=15
Font=[MS Sans Serif,12,1,0,1]
Caption="+"
}
Add(Label,1896823,469,182)
{
Left=65
Top=105
Width=215
}
Add(Button,10522112,231,182)
{
Left=315
Top=70
Width=25
Font=[MS Sans Serif,12,1,0,1]
Caption="="
link(onClick,10141666:doConvert,[])
}
Add(DateConvertor,10141666,280,182)
{
Mode=8
Format="dd.MM.yyyy HH:mm:ss"
Point(Data)
link(onResult,3941699:doOperation,[])
link(Data,2673159:Text,[])
}
Add(StrPart,5060943,385,133)
{
Char=" "
DirectEvent=0
link(onSplit,16328838:doConvert,[(425,139)(425,104)])
link(onPart,2946301:doOperation,[])
}
Add(DateConvertor,16328838,434,98)
{
Mode=8
Format="HH:mm:ss"
Point(Result)
}
Add(Math,2946301,427,140)
{
Default=1.62658564814815
link(Op2,16328838:Result,[])
}
Add(Math,3941699,364,182)
{
link(onResult,2547815:doConvert,[])
link(Op2,2946301:Result,[(377,177)(433,177)])
}
Add(DateConvertor,2547815,413,182)
{
Mode=9
Format="dd.MM.yyyy HH:mm:ss"
link(onResult,1896823:doText,[])
}

Код исправлен по замечанию коллеги Tad
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#52: 2011-08-17 22:38:36 ЛС | профиль | цитата
Видно я что-то пропустил
Леонид писал(а):
Другое дело к дате прибавить какое-то количество времени
Леонид, какой будет день недели через 7 лет 4 месяца 10 дней ? (от текущей).
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1161
Рейтинг: 160
#53: 2011-08-17 22:45:48 ЛС | профиль | цитата
Tad писал(а):
Леонид, какой будет день недели через 7 лет 4 месяца 10 дней ? (от текущей).

Случаем не суббота? (у меня воскресенье )
code_24928.txt
карма: 0

0
файлы: 1code_24928.txt [816B] [354]
Ответов: 16884
Рейтинг: 1239
#54: 2011-08-17 23:40:30 ЛС | профиль | цитата
Леонид,
code_24929.txt
Или как подогнать ответ к задаче.
------------ Дoбавленo в 23.40:
LainX писал(а):
Случаем не суббота? (у меня воскресенье
ни то ни другое.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_24929.txt [1.5KB] [260]
Ответов: 1161
Рейтинг: 160
#55: 2011-08-18 00:00:28 ЛС | профиль | цитата
Tad писал(а):
ни то ни другое.

Согласен, ложанулся... Пятница?
карма: 0

0
Ответов: 8937
Рейтинг: 824
#56: 2011-08-18 00:00:31 ЛС | профиль | цитата
Tad, какие же въедливые эти профессионалы по поиску багов!
Tad писал(а):
какой будет день недели через 7 лет 4 месяца 10 дней

"Читаем внимательно и вдумчиво!"
Леонид писал(а):
(в неделях, днях, ... микросекундах

карма: 19

0
Ответов: 704
Рейтинг: 7
#57: 2011-08-18 00:16:50 ЛС | профиль | цитата
Леонид, все же тема сисе... прошу прощения - тема вопроса осталась не раскрыта: возможно ли доработать именно тот Ваш скрипт для сложения с теми же параметрами? Так как скрипт не знаю, то потуги вставить вместо diff комаду add успехом не увенчались
карма: 0

0
Ответов: 8937
Рейтинг: 824
#58: 2011-08-18 01:03:45 ЛС | профиль | цитата
Neo, конечно можно, хотя и непонятно зачем отпишите какой формат для ДАТЫ и ВРЕМЕНИ (ВРЕМЯ не должно содержать ни столетия, ни годы, ни месяцы, начинаем с недель (см. выше ))
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#59: 2011-08-18 09:14:55 ЛС | профиль | цитата
Леонид,[flood]Внимательно смотрим на Вашу схему
StrPart писал(а):
onSplit=Событие происходит после отделения левой части строки и выдает в поток её правую часть|2|0
onPart=Событие происходит сразу после разделения строки перед событием onSplit при DirectEvent=False, или после события onSplit при DirectEvent=True и выдает в поток левую её часть|2|0
Ну и что считает компонент Math ?[/flood]
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 704
Рейтинг: 7
#60: 2011-08-18 11:36:43 ЛС | профиль | цитата
Леонид, формат оставить как и в вычитании : 01/02/2007 00:00:00. Хотя оно считает время и без даты. Просто не логично - вычитание есть, а сложения нет.
карма: 0

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