H:String и EncodeDateTime

@Jake Morgan · Регистрация: 27.10.2016

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

Есть h типа String, в ней хранится 2016, 11, 12, 21,00,0,0

Нужно сделать примерно так: EncodeDateTime(h) | Но если так сделать будет Incompatible types: Word and String

Переменная h берётся из БД

@cfbogd · 15.11.2016, 23:37

Jake Morgan, смени string на word

@Jake Morgan · 15.11.2016, 23:40 **[ТС]**

Тогда появится другая проблема, с вот этим:

Delphi

1
2
3

Form1.ADOQuery1.SQL.Text:='Select turn FROM bd';
Form1.ADOQuery1.Open;
h:= Form1.ADOQuery1.Fields[0].AsString;

Что делать с AsString?

@qwertehok · 16.11.2016, 00:23

ничего, строка у вас строка
а дату раскодируйте в ДРУГУЮ перменную

@Jake Morgan · 16.11.2016, 00:49 **[ТС]**

Сообщение от qwertehok

ничего, строка у вас строка
а дату раскодируйте в ДРУГУЮ перменную

А подробней? На примере. А лучше сразу, я не втупляю в какую переменную ещё можно ввести 2016, 11, 12, 21,00,0,0 с сохранением запятых. Да и EncodeDateTime воспринимает только Word а конвертации из String в Word нет

@krapotkin · 16.11.2016, 08:22

вам понадобится две вещи
var
s1:string;
w1:word;
d:TDateTime;

s1:=copy(s, 1,4); - копирование части строки S с 4 символа, начиная с первого, в строку S1
w1:=StrToInt(s1); - перевод cтроки S1 в целое число w1
....
а потом
d:=encodeDate(...) + encodeTime(...);

@Jake Morgan · 16.11.2016, 18:06 **[ТС]**

Сообщение от krapotkin

вам понадобится две вещи
var
s1:string;
w1:word;
d:TDateTime;
s1:=copy(s, 1,4); - копирование части строки S с 4 символа, начиная с первого, в строку S1
w1:=StrToInt(s1); - перевод cтроки S1 в целое число w1
....
а потом
d:=encodeDate(...) + encodeTime(...);

var u:word
h:String;
h:='2016,11,12,21,00,00,0'
u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21));

на плюсах выдаёт ошибку Incompatible types

Добавлено через 14 минут

Сообщение от Jake Morgan

Сообщение от krapotkin
вам понадобится две вещи
var
s1:string;
w1:word;
d:TDateTime;
s1:=copy(s, 1,4); - копирование части строки S с 4 символа, начиная с первого, в строку S1
w1:=StrToInt(s1); - перевод cтроки S1 в целое число w1
....
а потом
d:=encodeDate(...) + encodeTime(...);
var u:word
h:String;
h:='2016,11,12,21,00,00,0'
u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21));
на плюсах выдаёт ошибку Incompatible types

Поправка:

var u:word
h:String;
h:='2016,11,12,21,00,00,0'
u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21));

Сообщение от Jake Morgan

вам понадобится две вещи
var
s1:string;
w1:word;
d:TDateTime;
s1:=copy(s, 1,4); - копирование части строки S с 4 символа, начиная с первого, в строку S1
w1:=StrToInt(s1); - перевод cтроки S1 в целое число w1
....
а потом
d:=encodeDate(...) + encodeTime(...);
var u:word
h:String;
h:='2016,11,12,21,00,00,0'
u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21));
на плюсах выдаёт ошибку Incompatible types

Поправка:

var u:word;
h:String;
h:='2016,11,12,21,00,00,0';
u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21));

@D1973 · 16.11.2016, 21:47

Delphi

var Y, M, D, H, Min, S, MS : word;
h : string;
Dt : TDateTime;
begin
 h := '2016,11,12,21,00,00,0'; 
 Y := StrToInt(Copy(h, 1, 4));
 M := StrToInt(Copy(h, 6, 2));
 D := StrToInt(Copy(h, 9, 2));
 H := StrToInt(Copy(h, 12, 2));
 Min := StrToInt(Copy(h, 15, 2));
 S := StrToInt(Copy(h, 18, 2));
 MS := StrToInt(Copy(h, 21, 1));
 Dt := EncodeDateTime(Y, M, D, H, Min, S, MS);
end;

@cfbogd · 16.11.2016, 21:57

Не по теме:

Jake Morgan, вставляйте код в тэги дельфи: [DELPHI]ваш код[/DELPHI]. все это для того, что бы легче "читать" код, и чтобы не растягивало страницу.

@krapotkin · 17.11.2016, 08:44

Сообщение от Jake Morgan

u:=StrToInt(Copy(h,1,4))......

интересно, что это должно значить?
если сложить в кучу год, месяц, число и ч,м,с, получится что-то очень астрологическое

@D1973 · 17.11.2016, 09:04

Сообщение от krapotkin

если сложить в кучу...

Угу, а еще к целочисленным значениям прибавить строки ',' - вообще Нострадамус получается

Да и как использовать Copy(...) ТС имеет весьма отдаленное понятие!

@HiredKiller · 17.11.2016, 09:43

Не по теме:

в своем софте(работа с бд) использую unix время, мне с ним намного удобней

Новые блоги и статьи
Как проверить, что файл НЕ существует с помощью Bash bytestream 25.01.2025 В системном администрировании проверка существования файлов является фундаментальной операцией, особенно при написании скриптов на Bash. Правильная обработка ситуаций, когда файл отсутствует,. . .	Как проверить, что строка пустая, неопределена или null в JavaScript bytestream 25.01.2025 При разработке веб-приложений на JavaScript разработчики регулярно сталкиваются с необходимостью проверки строковых значений на различные состояния. Валидация данных является критически важным. . .	Как проверить существование ключа в объекте или массиве в JavaScript bytestream 25.01.2025 При разработке веб-приложений на JavaScript программисты постоянно сталкиваются с необходимостью работать с объектами и массивами. Эти структуры данных являются фундаментальными элементами языка и. . .	Как создать ArrayList из массива (array) в Java bytestream 25.01.2025 При разработке программного обеспечения на языке Java программисты часто сталкиваются с необходимостью эффективного управления наборами данных. Массивы и ArrayList являются двумя фундаментальными. . .	Как сгенерировать случайные целые числа (int) в указанном диапазоне в Java bytestream 25.01.2025 В программировании генерация случайных чисел является важнейшим инструментом для решения множества практических задач. От создания игровых механик до реализации алгоритмов машинного обучения, от. . .	Как сделать, чтобы grep выводил строки до и после найденной hw_wired 25.01.2025 Утилита grep стала незаменимым инструментом для поиска и фильтрации информации в Unix-подобных операционных системах. Эта командная утилита позволяет осуществлять поиск строк, соответствующих. . .
Как клонировать определенную ветку в Git bytestream 24.01.2025 Одной из ключевых функций Git является возможность клонирования веток, что позволяет создавать локальные копии удаленных репозиториев и работать с определенными версиями проекта. Этот механизм. . .	Как в цикле обойти строки DataFrame в Pandas Python bytestream 24.01.2025 DataFrame представляет собой одну из основных структур данных в библиотеке Python Pandas, которая организует информацию в виде двумерной таблицы с строками и столбцами. Эта структура данных особенно. . .	Как получить имя текущей ветки в Git bytestream 24.01.2025 При работе с Git часто возникает необходимость определить имя текущей ветки, в которой ведется разработка. Знание текущей ветки является критически важным аспектом для эффективного управления. . .	Как отсортировать массив объектов по значению поля объекта в JavaScript bytestream 24.01.2025 При разработке веб-приложений на JavaScript разработчики часто сталкиваются с необходимостью работать с массивами объектов. Эти структуры данных представляют собой упорядоченные наборы элементов, где. . .	Ошибка "src refspec master does not match any" при пуше коммита в Git bytestream 24.01.2025 При работе с системой контроля версий Git разработчики нередко сталкиваются с различными ошибками, одной из которых является сообщение "src refspec master does not match any". Эта ошибка возникает. . .	Как округлить не более двух цифр после запятой в JavaScript bytestream 24.01.2025 При работе с числами в JavaScript разработчики часто сталкиваются с необходимостью округления десятичных значений до определенного количества знаков после запятой. Это особенно важно при работе с. . .

@Jake Morgan 25 / 26 / 5 Регистрация: 27.10.2016 Сообщений: 245
		1
	H:String и EncodeDateTime 15.11.2016, 23:26. Показов 887. Ответов 11 Метки нет (Все метки) Есть h типа String, в ней хранится 2016, 11, 12, 21,00,0,0 Нужно сделать примерно так: EncodeDateTime(h) \| Но если так сделать будет Incompatible types: Word and String Переменная h берётся из БД 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	15.11.2016, 23:37	2
	Jake Morgan, смени string на word 0

@qwertehok 5590 / 4440 / 1080 Регистрация: 29.08.2013 Сообщений: 27,750 Записей в блоге: 3
	16.11.2016, 00:23	4
	ничего, строка у вас строка а дату раскодируйте в ДРУГУЮ перменную 0

@Jake Morgan 25 / 26 / 5 Регистрация: 27.10.2016 Сообщений: 245
	16.11.2016, 00:49 [ТС]	5
	Сообщение от qwertehok ничего, строка у вас строка а дату раскодируйте в ДРУГУЮ перменную А подробней? На примере. А лучше сразу, я не втупляю в какую переменную ещё можно ввести 2016, 11, 12, 21,00,0,0 с сохранением запятых. Да и EncodeDateTime воспринимает только Word а конвертации из String в Word нет 0

@krapotkin 5872 / 4600 / 1448 Регистрация: 14.04.2014 Сообщений: 20,415 Записей в блоге: 20
	16.11.2016, 08:22	6
	вам понадобится две вещи var s1:string; w1:word; d:TDateTime; s1:=copy(s, 1,4); - копирование части строки S с 4 символа, начиная с первого, в строку S1 w1:=StrToInt(s1); - перевод cтроки S1 в целое число w1 .... а потом d:=encodeDate(...) + encodeTime(...); 0

@Jake Morgan 25 / 26 / 5 Регистрация: 27.10.2016 Сообщений: 245
	16.11.2016, 18:06 [ТС]	7
	Сообщение от krapotkin вам понадобится две вещи var s1:string; w1:word; d:TDateTime; s1:=copy(s, 1,4); - копирование части строки S с 4 символа, начиная с первого, в строку S1 w1:=StrToInt(s1); - перевод cтроки S1 в целое число w1 .... а потом d:=encodeDate(...) + encodeTime(...); var u:word h:String; h:='2016,11,12,21,00,00,0' u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21)); на плюсах выдаёт ошибку Incompatible types Добавлено через 14 минут Сообщение от Jake Morgan Сообщение от krapotkin вам понадобится две вещи var s1:string; w1:word; d:TDateTime; s1:=copy(s, 1,4); - копирование части строки S с 4 символа, начиная с первого, в строку S1 w1:=StrToInt(s1); - перевод cтроки S1 в целое число w1 .... а потом d:=encodeDate(...) + encodeTime(...); var u:word h:String; h:='2016,11,12,21,00,00,0' u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21)); на плюсах выдаёт ошибку Incompatible types Поправка: var u:word h:String; h:='2016,11,12,21,00,00,0' u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21)); Сообщение от Jake Morgan вам понадобится две вещи var s1:string; w1:word; d:TDateTime; s1:=copy(s, 1,4); - копирование части строки S с 4 символа, начиная с первого, в строку S1 w1:=StrToInt(s1); - перевод cтроки S1 в целое число w1 .... а потом d:=encodeDate(...) + encodeTime(...); var u:word h:String; h:='2016,11,12,21,00,00,0' u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21)); на плюсах выдаёт ошибку Incompatible types Поправка: var u:word; h:String; h:='2016,11,12,21,00,00,0'; u:=StrToInt(Copy(h,1,4))+','+StrToInt(Copy(h,6,7))+','+StrToInt(Copy(h,9,10))+', '+StrToInt(Copy(h,12,13))+','+StrToInt(Copy(h,15,16))+','+StrToInt(Copy(h,18,19) )+','+StrToInt(Copy(h,21,21)); 0

@cfbogd
	16.11.2016, 21:57 #9
	Не по теме: Jake Morgan, вставляйте код в тэги дельфи: [DELPHI]ваш код[/DELPHI]. все это для того, что бы легче "читать" код, и чтобы не растягивало страницу. 0

@krapotkin 5872 / 4600 / 1448 Регистрация: 14.04.2014 Сообщений: 20,415 Записей в блоге: 20
	17.11.2016, 08:44	10
	Сообщение от Jake Morgan u:=StrToInt(Copy(h,1,4))...... интересно, что это должно значить? если сложить в кучу год, месяц, число и ч,м,с, получится что-то очень астрологическое 0

@D1973 Модератор 9655 / 6261 / 2429 Регистрация: 21.01.2014 Сообщений: 26,691 Записей в блоге: 3
	17.11.2016, 09:04	11
	Сообщение от krapotkin если сложить в кучу... Угу, а еще к целочисленным значениям прибавить строки ',' - вообще Нострадамус получается Да и как использовать Copy(...) ТС имеет весьма отдаленное понятие! 0

@HiredKiller
	17.11.2016, 09:43 H:String и EncodeDateTime #12
	Не по теме: в своем софте(работа с бд) использую unix время, мне с ним намного удобней 0