Сложение времени

помогите, я даже не знаю как сказать. не программист, думал в простеньком VB6 составлю маааленькую облегчающую програмульку. ан нет, застрял на глухо.
1.Есть время в секундах, я его перевожу во временной формат(если правильно назвал), потом складываю. но.... не получается. Второй вопрос, как вводить в текстбокс цифрами время(121212), а видеть (12:12:12)? сори если что то не так.

0

можно и так.
А экзешник - пара секунд, из меню ФАЙЛ

0

Label3 = CDate((sek1& + sek2&) / 86400)
If Len(Label3) > 8 Then
Label3 = Mid$(Label3, 12)
End If
значение в label3 не сформировывается, он пустое. а что означает условие >8 и 12?

Добавлено через 3 минуты
Спасибо ОГРОМНОЕ за помощь. получилось то что надо. посмотрите

Добавлено через 1 минуту
файл что то не прилип

0

вот

Вложения

РАСЧЕТ ВРЕМЕНИ.rar (4.5 Кб, 8 просмотров)

0

у меня формировалось время, я проверяю, прежде чем сообщить.

Label3 сначала формировалось так: 31.12.1899 1:20:45 (пример).
Длина этого поля получается больше 8 символов - само время не больше 8 символов (14:21:02)
1. поэтому если больше 8 - значит, там есть и дата.
2. поэтому отсекаем первые 11 символов (дата с пробелом "31.12.1899 "),и остается последня часть с 12 символа - то есть само время
3. можно было б и по команде RIGHT$(Label3,8) - то есть взять правые 8 символов,
но тут возникает ловушка в виде часов с одним знаком - до 10 часов или с двумя знаками - с 10 час. до 24 час.
и тогда пришлось бы дополнительно делать корректировку...на признак "0" перед цифрой 0-9 час

наверное, немного запутано ))))

обещаю подумать над нормальным сложением.

Добавлено через 8 минут
пытаюсь глянуть... Но раз Вас это удовлетворило. то это хорошо...

0

спасибо, понятно, приму на вооружение.
vedunasv, скажите пожалуйста, в скрине, есть поля в виде строк, там будет одинаковые вычисление, абсолютно одинаковое.
можно ли для одной строки вычислений, присвоить какую нить фунцию и последующие строки вставлять ее, избегая грамозкого переписывания одних и тех же формул.

Миниатюры

 

0

вот таких вычислений будет к каждой строке, а их планируется до 35, вот отсюда и вопрос?
как к этим вычислением присвоить что то там и использовать к любой последующим строкам
Label4.Caption = (Text3.Text * 1000) / 400
Label4.Caption = Format(Label4.Caption, "0.0")
Dim a As Double
a = Val(Text2.Text)
If a > 70 Then
Else
s = 11.5
Label9.Caption = "" & s
End If
If a < 70 Then
Else
s = 10.8
Label9.Caption = "" & s
End If
Label15.Caption = (Label4.Caption * Label9.Caption) / 200
Label20.Caption = (Text4.Text / Label15.Caption)
Label20.Caption = Format(Label20.Caption, "0")

0

Конечно, можно....
Любые повторяющие расчеты можно подготовить в виде отдельной SUB имя модуля или функции END SUB
а потом из нужного места вызывать этот модуль или функцию.

счас напишу пример...
а вы сделайте снова архив экзешника, но с английским именем ---- что-то не могу открыть.
написал сообщение администрации форума проверить тот архив, но не знаю когда ответ.
и направте его снова.


ага уже есть готовый образец у вас ... счас подумаю...

0

вот

Вложения

CalcTime.rar (4.5 Кб, 2 просмотров)

0

Вижу новый архив, все равно не идет.
если есть возможность, пришлите на почту предварительно поменяв и имя єкзешника на английское
у меня операционка ХР, иногда глючит на русские имена

	Комментарий модератора
	Не стоит просить или предлагать выслать ответ в icq, e-mail и другие средства общения. Эта просьба все равно не будет выполнена, а сообщение будет отредактировано модератором.

0

отправил

0

Тяжело сразу разобраться....
1. Лучше всего вместо имён Label, Command, Text присваивать свои собственные имена по смыслу, понятные вам.
Потом поймете, что станет легче разбираться через пару деньку
например, есл в поле Label3 вводится фамилия пассажира, то придумайте imyaPasajir или что-то подобное
если в Text вводите № билета - то пусть будет nBilet
и так далее
2. Определение переменных лучше делать в начале модуля, если это локальные переменные, или перед модулем, если они для всех модулей ит.д.
3. в настройках VB сделайте установку ВСЕГДА ОБЪЯВЛЯТЬ ПЕРЕМЕННЫЕ
4. немножко все таки распишите -какой элемент что делает.


Я так понимаю, что у Label4 есть близнецы, тогда можно прикинуть так:
0. SUB RaschetDeneg ()
1. Dim a As Double
2. сейчас что-то отрабатываем по Label4
3. .....
4. теперь должны сформировать Label4
5. формируем его текст и его формат, поэтому идем по ссылке в 6-й строке
6. TekstFormat переменная1, .... 'если переменные нужны- то их задаем, но можно и без них
7. получаем ответ от TekstFormat переменная1, .... смотрим дальше строку 8
8. Label4.Caption=переменная1
9. Label4.Caption=переменная2 где переменная2 - это Format (по формат конечно надо подумать, как сделать, но дело
принципа)
10. еще что-то
11. теперь то же самое по Label9
12. сейчас что-то отрабатываем по Label9
13. .....
14. теперь должны сформировать Label9
15. формируем его текст и его формат, поэтому идем по ссылке в 16-й строке
16. TekstFormat переменная1, .... 'если переменные нужны- то их задаем, но можно и без них
17. получаем ответ от TekstFormat переменная1, .... смотрим дальше строку 8
18. Label9.Caption=переменная1
19. Label9.Caption=переменная2 где переменная2 - это Format (по формат конечно надо подумать, как сделать, но
дело принципа)
20. еще что-то
21. END SUB

а теперь сама подпрограмма TekstFormat переменная1, ....

22. SUB TekstFormat (переменная1, ....)
23. переменная1 = (Text3.Text * 1000) / 400
24. переменная2 = Format(Label4.Caption, "0.0")
25. END SUB


Вот примерно так. Но это очень упрощенно ))))). А возможностей куча.

0

ага, принцип понятен, буду разбираться. спасибо
прежде надо осознать в голове, а потом применять на практике.
попробуйте код ввести самостоятельно, и картинка же есть, и сами .exe сделайте
скажите, а могу ли я отправлять тут сообщение, лично вам, а то тему флудим?

0

где-то попадалось, что можно друг с другом....я же тоже несколько дней всего.... надо пройтись по настройкам...
пока всё.

если в голове все сложится, и постановка проекта сложится, и будет желание его расписать подробно,
то не возражаю помочь.... Лавров мне не надо, привлекатть соискателем Нобелевской премии - тоже не надо.
Просто я люблю бейсик от самых азов, от первого бейсика. И люблю программировать....

До побачення.


С уважением vedunasv

0

откуда вы территориально?
если не секрет

0

украина

0

я догадливый, понял что с Украины. Она большая.)

0