|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.11.2009, 19:39 | #1 |
Форумчанин
Регистрация: 30.10.2009
Сообщений: 138
|
Динамические часы на форме
Здравствуйте Всем!
Имеется такие коды: 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, 21:35 | #2 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Возможно.Вот вариант.
Переделывайте форму под себя.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
17.11.2009, 21:44 | #3 |
Форумчанин
Регистрация: 26.11.2006
Сообщений: 584
|
Посмотрите еще вариант от Уокенбаха:
http://spreadsheetpage.com/downloads/xl/clockchart.xls |
17.11.2009, 21:52 | #4 |
Форумчанин
Регистрация: 30.10.2009
Сообщений: 138
|
Спасибо большое!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Цифровые часы | Dayvil | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 06.11.2009 16:15 |
Часы | Bingam Vici | Свободное общение | 5 | 18.05.2009 14:50 |
Часы на Ассемблере | Andre1723 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 10.01.2009 17:00 |
свои часы | Liite | Общие вопросы Delphi | 10 | 04.12.2008 13:53 |