Всавка частичных данных из 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);

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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.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

Опции темы