| Andrey_A | Дата: Четверг, 01.03.2012, 06:13 | Сообщение № 1 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Копирование выделенных файлов/папок в текущий каталог с добавлением текущей даты
Доступно только для пользователей
|
| |
| |
| svitlasha | Дата: Вторник, 31.03.2015, 11:34 | Сообщение № 2 |
Рядовой
На сайте с: 31.03.2015
Сообщений: 1
|
Спасибо
я ещё добавила две функции
дата с годом в 4 знака и время как у Вас:
Function DateTime4Y
Dim YY, MM, DD, H, M, S
YY = Year(date) : MM = Month(date) : DD = Day(date) : H = Hour(time) : M = Minute(time) : S = Second(time)
DateTime4Y = "[" & Right("0" & YY, 4) & "." & Right("0" & MM, 2) & "." & Right("0" & DD, 2) &_
" - " & Right("0" & H, 2) & "." & Right("0" & M, 2) & "." & Right("0" & S, 2) & "]"
End Function
дата с годом в 4 знака:
Function Date4Y
Dim YY, MM, DD
YY = Year(date) : MM = Month(date) : DD = Day(date) : H = Hour(time) : M = Minute(time) : S = Second(time)
Date4Y = "[" & Right("0" & YY, 4) & "." & Right("0" & MM, 2) & "." & Right("0" & DD, 2) & "]"
End Function
А как реализовать переключение между функциями DateTime DateTime4Y Date4Y?
|
| |
| |
