ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel VBA Помагите немогу найти решеняе (Date)
6 сообщений из 6, страница 1 из 1
Excel VBA Помагите немогу найти решеняе (Date)
    #34933968
Михаил_Блинов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил_Блинов
Участник
У меня 5 TextBox( BatOnDate, BatOnTime, BatOffDate BatOffTime и PowerHrs)
BatOnDate = дата нач.
BatOnTime = время нач.
BatOffDate = дата кон.
BatOffTime = время кон.
PowerHrs = время разницы в часах может быть больше >24

Из них 4(Bat*) при запуске формы отображают данные четырех ячеек таблицы .

Задача (BatOnDate +BatOnTime)-(BatOffDate+BatOffTime) = PowerHrs
Не как не могу найти подходящие рабочего решения для вычисления PowerHrs.
Подскажите пожайлуста а, то голова уже пухнет.
...
Рейтинг: 0 / 0
13.11.2007, 04:39
| Ответить | Цитировать | Написать  
Excel VBA Помагите немогу найти решеняе (Date)
    #34933976
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Для разницы - datediff
...
Рейтинг: 0 / 0
13.11.2007, 05:20
| Ответить | Цитировать | Написать  
Excel VBA Помагите немогу найти решеняе (Date)
    #34933981
Михаил_Блинов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил_Блинов
Участник
RestavraciyaДля разницы - datediff

DateDiff Вычесляет разницу 2х дат...
...
Рейтинг: 0 / 0
13.11.2007, 05:32
| Ответить | Цитировать | Написать  
Excel VBA Помагите немогу найти решеняе (Date)
    #34933993
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
А у вас их сколько в разнице ? Больше чтоли ?
Или вам надо выражение целиком подсказать (включая сумму) ? ;-)

Код: plaintext
PowerHrs = datediff("h",cdate(BatOnDate)+cdate(BatOnTime),cdate(BatOffDate)+cdate(BatOffTime ))
...
Рейтинг: 0 / 0
13.11.2007, 06:04
| Ответить | Цитировать | Написать  
Excel VBA Помагите немогу найти решеняе (Date)
    #34934037
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Михаил_БлиновPowerHrs = время разницы в часах может быть больше >24если находить разницу в минутах, то можно затем выделить, минуты отдельно, часы отдельно
Код: plaintext
1.
2.
3.
4.
5.
    wsego_minut = PowerHrs 

    chasi = Int(wsego_minut /  60 )
    minut = Round(((wsego_minut /  60 ) - chasi) *  60 ,  0 )

    wsego = CStr(chasi) & " час. " & Format(minut, "00") & " мин."
например 51 час. 15 мин.
или ещё дни выделить
2 дня 3 час. 15 мин.
...
Рейтинг: 0 / 0
13.11.2007, 07:48
| Ответить | Цитировать | Написать  
Excel VBA Помагите немогу найти решеняе (Date)
    #34936877
Михаил_Блинов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил_Блинов
Участник
RestavraciyaА у вас их сколько в разнице ? Больше чтоли ?
Или вам надо выражение целиком подсказать (включая сумму) ? ;-)

Код: plaintext
PowerHrs = datediff("h",cdate(BatOnDate)+cdate(BatOnTime),cdate(BatOffDate)+cdate(BatOffTime ))


Благодарю все получилось!

Вот только есть вопрос немогу сообразит как правильно описать Textbox_Change что при изменение даты вручную автоматически обновлялся TextBox_PowerHrs

Private Sub Change()
Dim BatOnDate
Dim BatOnTime
Dim BatOffDate
Dim BatOffTime
BatOnDate = TextBox_BatOnDate
BatOnTime = TextBox_BatOnTime
BatOffDate = TextBox_BatOffDate
BatOffTime = TextBox_BatOffTime
PowerHRS = DateDiff("H", CDate(BatOnDate) + CDate(BatOnTime), CDate(BatOffDate) + CDate(BatOffTime))
TextBox_PowerHrs = PowerHRS
End Sub
...
Рейтинг: 0 / 0
13.11.2007, 23:35
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel VBA Помагите немогу найти решеняе (Date)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34933981&tid=2163089]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 256ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 260ms
total:  611ms
созд. / загр.: 611ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]