Страницы: 1
RSS
VBA. Как вывести текущую минуту?
 
Dim d1, d2, d3, t1, t2, t3  
 
d1 = Format(Date, "yyyy")  
d2 = Format(Date, "mm")  
d3 = Format(Date, "dd")  
t1 = Format(Time, "hh")  
t2 = Format(Time, "mm")  
t3 = Format(Time, "ss")  
 
Почему t2 выдает номер месяца, а не минуты???  
Как вывести текущую минуту???  
 
СПАСИБО!
 
Dim d1, d2, d3, t1, t2, t3  
 
d1 = Format(Date, "yyyy")  
d2 = Format(Date, "mm")  
d3 = Format(Date, "dd")  
t1 = Format(Time, "hh")  
t2 = Format(Time, "Nn")  
t3 = Format(Time, "ss")
 
Хотя не все зубры поддерживают эту мысль...  
Переменным при объявлении желательно задавать тип (экономия памяти и увеличение быстродействия):  
Dim d1 As Date, d2 As Date,...
 
как вариант:  
 
DefDate D, T  
Dim d1, d2, d3, t1, t2, t3
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
ччёрт!!!  
Виктор, Вы меня сбили с путя истинного :)  
конечно же,  
 
DefStr D, T  
Dim d1, d2, d3, t1, t2, t3  
 
ибо Format
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Прошу прощения, сам недосмотрел.  
 
Кстати, моя ошибка подтверждает мысль ZVI (новичкам лучше не задавать типы переменных). Хотя я все равно другого мнения :)
 
Вариант  
MsgBox Mid(Time, 3, 2)
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
{quote}{login=vikttur}{date=12.03.2012 02:37}{thema=}{post}...(новичкам лучше не задавать типы переменных). Хотя я все равно другого мнения :){/post}{/quote}Вить, думаю новички не пишут такие макросы, в которых необходимо экономить память. Это с опытом приходит. Так же как в формулах. Думаю многие из нас проходили через 7 вложений ЕСЛИ, пока не пришли к ПРОСМОТР :-)
Страницы: 1
Читают тему
Наверх