You are not logged in. Please login or register.
My Visual Database → Russian → DateTimePicker
Здравейте,
procedure frmApplication_OnShow (Sender: string; Action: string);
var
Y, M, D: Word;
begin
if Action='NewRecord' then
begin
DecodeDate(Now, Y, M, D);
frmApplication.DateTimePicker2.Date := EncodeDate(Y, M, D + 15);
end;
end;
Когато до края на месеца остават наи малко 15 дни ..работи...,Когато дните до края на месеца са по малко от 15 съобщава "Invalid argument to date encode", къде греш?
попробуйте так
procedure frmApplication_OnShow (Sender: string; Action: string);
begin
if Action='NewRecord' then
begin
frmApplication.DateTimePicker2.Date := Now+15;
end;
end;Благодаря,така работи
Здравствуйте.
На форуме покопалась, не нашла ничего подходящего.
Как можно сделать, чтобы в колонке таблицы дата отображалась не полностью, а в формате только "месяц-год"?
Milla.Makova
Это можно сделать с помощью вычисляемого поля такого вида
strftime('%m.%Y', datefield)здравейте,имам въпрос:
Form1.DateTimePicker2.Date := Form1.DateTimePicker1.Date+ ????
как да добавя 1 месец
здравейте,имам въпрос:
Form1.DateTimePicker2.Date := Form1.DateTimePicker1.Date+ ????
как да добавя 1 месец
можно так
Form1.DateTimePicker2.Date := Form1.DateTimePicker1.Date + 30;здравейте,искам да добавам 1 месец,а не 30 дни,защото има месеци с 31 ден,а февруари с 28 и т.н.
здравейте,искам да добавам 1 месец,а не 30 дни,защото има месеци с 31 ден,а февруари с 28 и т.н.
это не совсем тривиальная задача. Допустим у вас дата 31.10.2015, необходимо прибавить месяц, но в ноябре только 30 дней, какая дата должна быть в результате?
или даже сегодня 29.02.2016, нужно прибавить месяц, какая будет итоговая дата? 29.03 ? 30.03? или 31.03?
сначала необходимо знать какой именно алгоритм прибавления месяца вам необходим.
идеята е следната:
когато в TimePcter1 е въведен последен ден от месеца/примерно 31.01.2015/ в TimePicter2 датата да е последния ден от следващия месец/ 28.02.2015/ или ако в Time Picter 1 въведа 15.01.2015 в TimePicter 2 дата да е 15.02.2015
Във Вашя пример ако сега е 29.02 нужния резултат е 31.03
идеята е следната:
когато в TimePcter1 е въведен последен ден от месеца/примерно 31.01.2015/ в TimePicter2 датата да е последния ден от следващия месец/ 28.02.2015/ или ако в Time Picter 1 въведа 15.01.2015 в TimePicter 2 дата да е 15.02.2015
Във Вашя пример ако сега е 29.02 нужния резултат е 31.03
Скачайте бета версию
http://myvisualdatabase.com/forum/viewtopic.php?id=1837
добавил функцию IncMonth, пример использования:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Form1.DateTimePicker1.DateTime := IncMonth(Form1.DateTimePicker1.DateTime, 1);
end;здравейте,за съжаление използвам версия 1.51 за която имам лицензен ключ.Когато поставя версия 2.2 не мога да активирам ключа и имам период от 60 дни
к сожалению обновление с версии 1.53 до версии 2.2 платное.
Здравейте,как мога да забраня в EditCounter да се вписват друго освен цифри,защото ако сбъркам и вместо цифра,въведа буква ,изписва грешка и размества подредбата на колоните в таблицата
Благодаря
Здравейте,как мога да забраня в EditCounter да се вписват друго освен цифри,защото ако сбъркам и вместо цифра,въведа буква ,изписва грешка и размества подредбата на колоните в таблицата
Благодаря
Напишите в скрипте, например на событие OnShow главной формы
Form1.EditCounter1.NumbersOnly := True;в следующей версии данная ошибка будет исправлена, в компонент можно будет вводить только цифры.
здравейте,възможно ли е когато в ComboBox не е избран запис /положение -1/ да бъде надписан с текст /например .кйгфкйхгф/
здравейте,възможно ли е когато в ComboBox не е избран запис /положение -1/ да бъде надписан с текст /например .кйгфкйхгф/
Здравейте,
procedure Form1_OnShow (Sender: string; Action: string);
begin
Form1.ComboBox1.dbEditRecord(-1, 'кйгфкйхгф');
end;здравейте,имах предвид когато form1_OnShow ComboBox да изглежда така:
здравейте,имах предвид когато form1_OnShow ComboBox да изглежда така:
Не совсем понимаю, что вы имели ввиду.
извинете
2016-01-19_204230.png 908 b, 291 downloads since 2016-01-19
извинете
Все равно не понял, что именно не так? )
procedure Form1_OnShow (Sender: string; var Cancel: boolean);
begin
Form1.ComboBox1.Text := 'ОПИТ';
end;
но не се получава...възможно ли е?
procedure Form1_OnShow (Sender: string; var Cancel: boolean);
beginForm1.ComboBox1.Text := 'ОПИТ';
end;но не се получава...възможно ли е?
Смотря что вы хотите сделать, вы писали что хотели бы заменить пустое значение в ComboBox на свое, выше я дал вам пример как это сделать.
My Visual Database → Russian → DateTimePicker
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi