[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Andrey_A, ХарВик, chip642  
Форум » • Total Commander • » ТЕСТИРОВАНИЕ СКРИПТОВ для TC » CopyDubleDate.vbs - Копирование с датой (Копирование)
CopyDubleDate.vbs - Копирование с датой
Andrey_AДата: Четверг, 01.03.2012, 06:13 | Сообщение № 1
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 6409
Награды: 98
Репутация: 87
Аверин Андрей
Копирование выделенных файлов/папок в текущий каталог с добавлением текущей даты

Доступно только для пользователей


 
svitlashaДата: Вторник, 31.03.2015, 11:34 | Сообщение № 2
Рядовой

На сайте с: 31.03.2015
Сообщений: 1
Награды: 0
Репутация: 0
Спасибо
я ещё добавила две функции

дата с годом в 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?

 
Форум » • Total Commander • » ТЕСТИРОВАНИЕ СКРИПТОВ для TC » CopyDubleDate.vbs - Копирование с датой (Копирование)
  • Страница 1 из 1
  • 1
Поиск:

Сообщите о находке всему миру:
Рейтинг@Mail.ru Тиц и pr сайта Яндекс.Метрика

Интеллектуальные права и отказ от ответственности


Перейти на сайт Недвижимость сточи