Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 17.11.2009, 20:39   #1
Артур Иваныч
Форумчанин
 
Регистрация: 30.10.2009
Сообщений: 138
Репутация: 10
По умолчанию Динамические часы на форме

Здравствуйте Всем!
Имеется такие коды:

Sub UpdateTime()
Dim varNextCall As Variant
' Записываем в ячейку текущее время
Cells(1, 1).Value = Now
' Записываем в varNextCall время, когда вызвать этот макрос _
в следующий раз (через 1 секунду)
varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
' Уведомляем Excel в необходимости вызова макроса
Application.OnTime varNextCall, "UpdateTime"
End Sub


и такой


Sub DateAndTime()
TheDate = Format(Date, "Long Date")
TheTime = Format(Time, "Medium Time")
Select Case Time
Case Is < TimeValue("12:00"): Greeting = "Доброе Утро, "
Case Is >= TimeValue("17:00"): Greeting = "Добрый день, "
Case Else: Greeting = "Время"
End Select
SpaceInName = InStr(1, FullName, " ", 1)
If SpaceInName = 0 Then SpaceInName = Len(FullName)
FirstName = Left(FullName, SpaceInName)
Greeting = Greeting & FirstName
MsgBox TheDate & vbCrLf & TheTime, vbOKOnly, Greeting
End Sub


Однако, я хочу создать свою(!) форму в редакторе Бэйсика и чтобы там динамически отражалось время, желательно секундами!
Такое возможно?
Артур Иваныч вне форума   Ответить с цитированием
Старый 17.11.2009, 22:35   #2
VictorM
Профессионал
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Адрес: Луганск
Сообщений: 2,055
Репутация: 274

icq: 1-702-732
skype: victor11129
По умолчанию

Возможно.Вот вариант.
Переделывайте форму под себя.
Вложения
Тип файла: zip часы.zip (8.0 Кб, 61 просмотров)
__________________
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума   Ответить с цитированием
Старый 17.11.2009, 22:44   #3
ZORRO2005
Участник клуба
 
Аватар для ZORRO2005
 
Регистрация: 27.11.2006
Адрес: Москва
Сообщений: 584
Репутация: 204
По умолчанию

Посмотрите еще вариант от Уокенбаха:
http://spreadsheetpage.com/downloads/xl/clockchart.xls
ZORRO2005 вне форума   Ответить с цитированием
Старый 17.11.2009, 22:52   #4
Артур Иваныч
Форумчанин
 
Регистрация: 30.10.2009
Сообщений: 138
Репутация: 10
По умолчанию

Спасибо большое!!!
Артур Иваныч вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Цифровые часы Dayvil Паскаль 5 06.11.2009 17:15
Часы Bingam Vici Свободное общение 5 18.05.2009 14:50
Часы на Ассемблере Andre1723 Assembler 0 10.01.2009 18:00
свои часы Liite Общие вопросы Delphi 10 04.12.2008 14:53


23:01.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.