Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как вывести время вместе с датой? 
:(
    Опции темы
barberry
Дата 22.3.2009, 21:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 16.3.2009

Репутация: нет
Всего: нет



Здравствуйте, подскажите, как вывести в 7 текущую дату вместе со временем как в восьмерке
PM MAIL   Вверх
SaschaL
Дата 23.3.2009, 11:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9



Перем = ТекущаяДата() + ТекущееВремя()

Добавлено через 42 секунды
Вот примерно так, если не понятно то пиши будем разбираться
PM MAIL ICQ   Вверх
barberry
Дата 23.3.2009, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 16.3.2009

Репутация: нет
Всего: нет



спасибо, но так время прибавляется к дате. А если наоборот и переменная типа строка, то вроде выводит,а еще, вы не знаете как к ней прибавить число (ну вот типо вывилось время 12:15.23.03.09 и к нему прибавить 5,25 ч. чтоб получилось 17:40.23.03.09)  
PM MAIL   Вверх
AkelaSQL
Дата 23.3.2009, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7



Писал как-то давно для вывода времени выполнения отчёта, пляши отсюда:

Код

//******************************************************************************
//Скармливаем [Начало] и [Конец] в формате строка "чч:мм:сс/дд.мм.гг
//Возвращает [Разница] в виде:
//если [Вид] = 0 то число секунд,
//если [Вид] <> 0 то строку в виде "ЧЧч. ММм. ССс."
//если [Начало] или [Конец] пустая, то получим 0 или "" в зависимости от значения [Вид]
Функция глВремя(Начало, Конец, Вид = 0) Экспорт
    Перем Разница, НачалоДат, КонецДат, РазницаДней;
    Перем НачалоСек, КонецСек;
    
    //проверим на пустоты
    Если (ПустаяСтрока(СокрЛП(Начало)) = 1) ИЛИ (ПустаяСтрока(СокрЛП(Конец)) = 1) ИЛИ (СтрДлина(СокрЛП(Начало)) <> 17) ИЛИ (СтрДлина(СокрЛП(Конец)) <> 17)  Тогда
        Если Вид = 0 Тогда
            Разница = 0;
        Иначе
            Разница = "";
        КонецЕсли;
        Возврат Разница;
    КонецЕсли;
    
    //вычислим разницу в секундах
    НачалоДат = Прав(СокрЛП(Начало),8);
    КонецДат  = Прав(СокрЛП(Конец),8);
    РазницаДней = Дата(КонецДат) - Дата(НачалоДат);
    Разница = РазницаДней * 86400;//переведенная в секунды
                                    //часы                                //минуты                                //секунды
    НачалоСек = (Число(Лев(СокрЛП(Начало),2)) * 3600) + (Число(Сред(СокрЛП(Начало),4,2))*60) + (Число(Сред(СокрЛП(Начало),7,2)));
    КонецСек  = (Число(Лев(СокрЛП(Конец),2)) * 3600) + (Число(Сред(СокрЛП(Конец),4,2))*60) + (Число(Сред(СокрЛП(Конец),7,2)));
    
    Разница = Разница + (КонецСек - НачалоСек);
    
    //если облажались с датами и временем, то выходим корректно
    Если Разница <= 0 Тогда
        Если Вид = 0 Тогда
            Разница = 0;
        Иначе
            Разница = "";
        КонецЕсли;
        Возврат Разница;
    Иначе //вернём результат
        Если НЕ(Вид = 0) Тогда
            с = Разница % 60;
            м = Цел(((Разница) % 3600) / 60);
            ч = Цел((Разница)/3600);
            Разница = Строка(ч) + "ч. " + Строка(м) + "м. " + Строка(с) + "с.";
        КонецЕсли;
        Возврат Разница;
    КонецЕсли;
КонецФункции
//******************************************************************************




--------------------
user posted image
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »


 




[ Время генерации скрипта: 0.0623 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.