Всавка частичных данных из Datatimepiker

@ins813 · Регистрация: 18.05.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте, такая проблема, надо чтобы из Datatimepikerв конкретные ячейки в Excel вставлялось : часы, минуты, Дни, месяцы. Делал Так:

Delphi
1
2
3
4
 exapp.Range['DI13', 'DI13'].Value := DayOf(DateTimePicker3.Time);
exapp.Range['DQ13', 'DQ13'].Value := MonthOf(DateTimePicker3.Time);
exapp.Range['DY13', 'DY13'].Value := HourOf(DateTimePicker2.Time);
exapp.Range['EG13', 'EG13'].Value := MinuteOf(DateTimePicker2.Time);

Перенос данных происходит, но отображаются не так как нужно, т.е. Если ставишь Формат ячейки - Дата(14 мар), то так и выходит, а мне нужно просто десятичное число без лишней лабуды. Я разными вариантами настраивал форматирование ячеек (по дате разн форматами, числовой просто ставил, текстовые...) нифига (: Почему-то только месяц отображается как надо - просто числом ( формат этой ячейки Числовой без десятичных знаков) ! Подскажите, что не так ?

@Ales'hon'ne · 29.09.2012, 20:26

Попробуйте установить тип ячейки в текстовый и заполнять так:

Delphi
1
exapp.Range['DI13','DI13'].Value:=UIntToStr(DayOf(DateTimePicker3.Time))+#160;

Такую строку к числу вроде как преобразовать нельзя, хотя, возможно, я и ошибаюсь.

@ins813 · 01.10.2012, 15:38 **[ТС]**

не получается (

@Ice_and_Fire · 01.10.2012, 15:51

exapp.Range['DI13', 'DI13'].Value :=#39+IntToStr(DayOf(DateTimePicker3.Tim e));

@ins813 · 01.10.2012, 17:22 **[ТС]**

Это тоже не работает. Блин чо за хрень, вот этот код работает хорошо :

Delphi
1
2
3
exapp.Range['BN5', 'BN5'].Value := DayOf(DateTimePicker1.Time);
exapp.Range['BW5', 'BW5'].Value := MonthOf(DateTimePicker1.Time);
exapp.Range['CS5', 'CS5'].Value := YearOf(DateTimePicker1.Time);

А вот почему-то если беру с другого дататайм пикера или даже с этого отображается не то что нужно

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@ins813 8 / 4 / 0 Регистрация: 18.05.2012 Сообщений: 215
	01.10.2012, 15:38 [ТС]
	не получается ( 0

@Ice_and_Fire 512 / 298 / 37 Регистрация: 22.06.2011 Сообщений: 929
	01.10.2012, 15:51
	exapp.Range['DI13', 'DI13'].Value :=#39+IntToStr(DayOf(DateTimePicker3.Tim e)); 0