Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Вывод графика https://www.cyberforum.ru/ delphi-beginners/ thread95949.html
помогите пожалуста! никак немогу понять почему у меня не дорисовывает график! график выводиться с помощью Series3! вот код! function Chi2(m:Integer): Real; var S:Real; i: Integer; begin S:=0; for i:=1 to m do S:=S+sqr(Gauss); Result:=S;
Delphi Программа для поиска файлов на компе
Привет! Делаю курсак на делфи , нужно сделать программу , которая бы искала файлы по их разрешению (.exe , .avi , .mp3 , .doc и т.д. ) и выводила в список. а потом чтобы каждый можно было щелкнуть , и он открылся в нужной проге. Может у кого есть готовый вариант или может кто может помогти ? не за спасибо , конечно )) могу выложить то что уже наваял. спасибо
Delphi Лучевой поиск https://www.cyberforum.ru/ delphi-beginners/ thread95937.html
Здравствуйте! Подскажите, как реализовать лучевой поиск заданного элемента в одномерном массиве?
Delphi Умножение матрицы на число Имеются 2е матрицы(StringGrid), и поле editA. Нужно умножить первую матрицу на число, и ответ вывести во второй матрице. Я что-то запутался с преобразованиями и формулой. Var i,j,a:Integer; begin For i:=1 to stgMatr1.RowCount-1 do For j:=1 to stgMatr1.CowCount-1 do StgMatr2.Cells:=StgMatr1.Cell*a; https://www.cyberforum.ru/ delphi-beginners/ thread95900.html
Delphi Как на программу поставить пароль?
подскажите пожалуйста как на програму поставить пороль
Delphi Кнопки https://www.cyberforum.ru/ delphi-beginners/ thread95847.html
привет всем, у меня такой вопрос, может и глупый для вас, но я запарился с ним) у меня на форме есть 2 combobox'a, одна показывает фамилии студентов, а другая специальности, и еще раположены на форме две кнопки СОХРАНИТЬ (сохраняет выбранные объекты в блокнот), и еще одна кнопка НАЙТИ...у меня проблема с кнопкой НАЙТИ, мне надо чтобы эта кнопка выводила в мемо (в моем случае это мемо3) фамилии...
Delphi StringGrid: удалить строку по нажатию на пункт контекстного меню Доброе время суток. Такой вопрос по StringGrid B Delphi: есть таблица StringGrid с несколькими строками, и нужно сделать так чтобы при нажатии правой кнопки мыши появлялось контекстное меню где есть пункт "Удалить" и при выборе этого пункта удалась выбрана строка, то есть та где стоит курсор. И еще такой вопрос по этому компоненту: можно узнать в какой строке (ячейке) стоит курсор, чтобы при... https://www.cyberforum.ru/ delphi-beginners/ thread95830.html Создание функции с массивом Delphi
Есть такое задание "Напишите функцию, которая вычисляет сумму элементов i- ой строки у матрицы. Напишите программу, генерирующую матрицу размерности N x M" function sum(a:array of integer):integer; var i,j,m,str:integer; begin str:=0; for j:=1 to m do str:=str+a; //Write(str,' ');
Delphi программа в VCL Forms Application кто может помочь написать данную программу? помогите пожалуйста задание: Ввести в два окошка два разных слова и по двойному нажатию мыши менять их местами. После нажатия экранной кнопки BLOK заблокировать обмен, при повторном нажатии - возобновить обмен по двойному нажатию мыши и т.д. https://www.cyberforum.ru/ delphi-beginners/ thread95786.html Delphi Любое число в % https://www.cyberforum.ru/ delphi-beginners/ thread95773.html
Всем Привет....собственно помогите перевести какое либо число в %... например есть ProgressBar1 и я собственно хочу получить сколько в процентах он уже прошёл... Делал так но что то не то... f := 100; s := Form1.ProgressBar1.Max / f; s := s * Form1.ProgressBar1.Position;
Пограмма в Delphi. Delphi
Берется два текстовых поля и кнопка в одно текстовое поле вводиш набор букв и при нажатии на кнопку в другом текстовом поле состовляются слова из этих букв и должно писаться можно ли составить слова из этих букв или нет.
Delphi Имитация нажатий клавиш клавиатуры https://www.cyberforum.ru/ delphi-beginners/ thread95707.html
Как соорудить программу, чтобы по нажатию ранее назначеной клавише происходила имитация нажатия некоторой комбинации клавиш. Пример: я нажимаю правый Ctrl программа сама имитирует 5 поочерёдных нажатий клавиши f7, причём с таймаутом 5 секунд. Во многом придёца разбираца, мот кто подкинет нужную литературку?
Junior Developer
44 / 44 / 7
Регистрация: 08.06.2009
Сообщений: 261
16.02.2010, 19:12 0

сколько дней прошло!! - Delphi - Ответ 549399

16.02.2010, 19:12. Показов 8562. Ответов 15
Метки (Все метки)

Ответ

Цитата Сообщение от Mawrat Посмотреть сообщение
Да - можно просто через вычитание дат и взятие целой части сделать. Тип TDateTime на самом деле является псевдонимом типа Double. Он объявлен в модуле System так:
Delphi
1
TDateTime = type Double;
Целая часть этого типа обозначает количество целых дней прошедших от 30.12.1899г. А в дробной части записана часть дня - 0.25 -> 6 часов, 0.5 -> 12 часов. Т. е. 1/24 -> 1 час, 1/(24 * 60) -> 1 минута, 1/(24 * 60 * 60) -> 1 секунда, 1/(24 * 60 * 60 * 1000) -> 1 миллисекунда.
Например, дни:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  Days : Integer;
  Date1, Date2 : TDateTime;
begin
  Date2 := Date; //Дата сегодня.
  Date1 := Date2 - 10; //Дата 10 дней назад.
 
  Days := Round( Int(Date2 - Date1) );
 
  ShowMessage('Прошло дней: ' + IntToStr(Days)); //Будет показано 10 дней.
end;
вот таким образом...

Вернуться к обсуждению:
сколько дней прошло!! Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.02.2010, 19:12
Готовые ответы и решения:

Описать функцию Число дней, подсчитывающую, сколько дней прошло от 1 января 0001 года нашей эры до даты d
type число =1..31; месяц =1..12; год =1..2000; дата = record ч: число; м: месяц; г: год...

С некоторого момента прошло 234 дня. Сколько полных недель прошло за этот период.
С некоторого момента прошло 234 дня. Сколько полных недель прошло за этот период. Зарание...

С начала суток прошло n секунд. Определить сколько полных минут прошло с начала очередного часа
С начала суток прошло n секунд. Определить сколько полных минут прошло с начала очередного часа.

сколько минут прошло между 2 времен
1. как узнать сколько минут прошло с начала дня, причем время нужно по гринвичу. 2. узнать сколько...

15
16.02.2010, 19:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2010, 19:12
Помогаю со студенческими работами здесь

Идет k (катая) секунда суток. Определить, сколько полных часов (h) и полных минут (m) прошло к этому моменту
для вас наверно будет проще пареной репы написать код находящийся в разделе имплементейшен на...

Как отмерять сколько прошло времени от даты
Мне нужно, чтобы программа отмеряла пройденное время. Причём в днях до 1 месяца, а дальше в...

сколько дней прожил человек
составить программу, которая просит дату рождения человека в формате гг.мм.дд. подсчитать...

С начала пятого модуля прошло d дней; сколько полных недель прошло за этот период?
С начала пятого модуля прошло d дней. Сколько полных недель прошло за этот период? Определить,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru