Как сделать дату в делфи
Работа с датами и временем
Как узнать номер недели данного дня в году?
function WeekOfYear(ADate : TDateTime) : word;
DecodeDate(ADate, year, month, day);
procedure TForm1.Button1Click(Sender: TObject);
function WeekNum( const ADate: TDateTime): word;
function WeekOfYear(Dat: TDateTime): Word;
// Интерпретация номеров дней:
// ISO: 1 = Понедельник, 7 = Воскресенье
// Delphi SysUtils: 1 = Воскресенье, 7 = Суббота
day := SysUtils.DayOfWeek(Dat)- 1 ;
DecodeDate(Dat, Year, Month, Day);
Result := 1 + (DateDiff div 7 );
Взято из http://forum.sources
Получить номер недели по дате
FirstWeekDay: Integer = 2 ;
2 : Montag (nach DIN 1355) >
FirstWeekDate: Integer = 4 ;
4 : Erste-4 Tage-Woche (nach DIN 1355)
7 : Erste volle Woche >
function WeekToDate(AWeek, AYear: Integer): TDateTime;
procedure DateToWeek(ADate: TDateTime; var AWeek, AYear: Word);
DecodeDate(ADate, AYear, Month, Day);
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Button2Click(Sender: TObject);
DateToWeek(now, week, year);
Взято с сайта: http://www.swissdelphicenter
Как определить день недели?
procedure TForm1.Button1Click(Sender: TObject);
Функции DayOfTheWeek и DayOfWeek (см. справку по Дельфи)
Автор: Hans Pieters
Если Вы создаёте приложение, в котором пользователь вводит значения времени, то стандартные вычисления не подойдут. Проблема в том, что нужно сделать так, чтобы выражение 1.20 + 1.70 было равно НЕ 2.90 а 3.10.
Здесь представлены три функции, которые решают эту проблему. Они работают только с часами и минутами, потому что пользователь очень редко используют секунды, но если Вам потребуются секунды, то Вы без труда сможете доработать эти функции по своему желанию. Вторая и третья функции позволяют преобразовать реальное значение времени в десятичный эквивалент и обратно. Все поля на форме будут в формате hh.mm.
function sumhhmm(a, b: double): double;
h1 := (INT(A) + INT(B)) * 60 + (frac(a) + frac(b)) * 100 ;
function hhmm2hhdd( const hhmm: double): double;
function hhdd2hhmm( const hhdd: double): double;
// sumtime(1.20,- 0.50) => 0.30
// hhmm2hhdd(1.30) => 1.5 (1h.30m = 1.5h)
// hhdd2hhmm(1.50) => 1.30 (1.5h = 1h30m)
Взято из http://forum.sources
Дни недели
function checkdate(date: string ): boolean;
function Date2julian(date: string ): longint;
function Julian2date(julian: longint): string ;
function DayOfTheWeek(date: string ): string ;
function idag: string ;
function idag(): string ;
другими функциями данного молуля.>
Year, Month, Day: Word;
DecodeDate(Now, Year, Month, Day);
result := IntToStr(year) + IntToStr(Month) + IntToStr(day);
function Date2julian(date: string ): longint;
Если у вас другой формат,
в первую очередь преобразуйте его.>
month, day, year: integer;
ta := 146097 * (year div 100 ) div 4 ;
tb := 1461 * (year mod 100 ) div 4 ;
tc := ( 153 * month + 2 ) div 5 + day + 1721119 ;
result := ta + tb + tc
function mdy2date(month, day, year: integer): string ;
y := ‘000’ + inttostr(year);
m := ‘0’ + inttostr(month);
function Julian2date(julian: longint): string ;
month, day, year: integer;
y := (x div 146097 ) * 100 ;
d := (x mod 146097 ) div 4 ;
d := (x mod 1461 ) div 4 + 1 ;
d := (x mod 153 ) div 5 + 1 ;
result := mdy2date(month, day, year);
function checkdate(date: string ): boolean;
Это позволит получить необходимое значение.>
Это всегда будет правильной датой. Для проверки делаем обратное преобразование.
Результат проверки передаем как выходной параметр функции.>
if date = test then
function DayOfTheWeek(date: string ): string ;
и возвращаем день недели.>
julian := (Date2julian(date)) mod 7 ;
0 : result := ‘Понедельник’ ;
1 : result := ‘Вторник’ ;
3 : result := ‘Четверг’ ;
4 : result := ‘Пятница’ ;
5 : result := ‘Суббота’ ;
6 : result := ‘Воскресенье’ ;
Тем не менее, начиная со второй версии, Delphi содержат в своем арсенале замечательную функцию DayOfWeek, возвращающую целочисленный результат в диапазоне от 1 до 7. Вот пример кода, присланный Андреем Ивановым:
function TForm1.DayOfWeekRus(S: TDateTime): string ;
Автодобавление текущей даты в базу.
Автодобавление текущей даты в БД через Button
Здравствуйте. Необходимо создать обычную программку с авторизацией и журналом посещаемости, т.е.
Запись текущей даты в базу с поправкой в несколько дней
Здравствуйте. Задача: записать в таблицу users в поле user_date «текущую дату + 2 дня» где USER_ID.
Занести в базу значение текущей даты и времени: Ошибка Incorrect syntax near
Здравствуйте! Хочу занести в базу значение текущей даты и время. Тип в базе datetime. Код.
Выборка данных через сравнение даты в DataGridView и текущей даты
Ситуация такова: в датагриде есть столбец с определенной датой. Нужно сравнить все даты с этого.
дата: date
время: now
VampireKB;
дата: date
время: now
VampireKB;
дата: date
время: now
выводит текущую дату!
это надо все делать средствами SQL. для этого ведь нужно использовать ADOQuery? а с ADOTable не получится??
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
На основе введенной даты рождения и текущей даты сообщить пользователю, сколько он прожил дней
3. Написать программу, которая на основе введенной даты рождения и текущей даты сообщает.
Как узнать количество дней между значением текущей даты и даты в поле dateTimePicker?
есть некое значение поля dateTimePicker 1. как работать например с месяцем, в этом значении.
Запретить ввод даты в MaskedTextBox1 больше текущей даты
На форме MaskedTextBox1 с маской под короткую дату, то есть __.__.____ Как запретить ввод в это.
Расчитать возраст человека от даты рождения до текущей даты
Помогите. Нужно расчитать возраст человека от даты рождения до текущей даты. Например.
Выборка текущей даты
Добрый день товарищи! Вобщем задача оочень простая. Сейчас создаю отчёт в BIRT все запросы берутся.
Запись даты и времени в БД
Запись и извлечение даты и времени из БД
Подскажите как записать дату и время в такой формате 2011/12/16 00:59:41 в Базу данных Postgres.
Запись даты и времени в базу
Здравствуйте! Подскажите пожалуйста,как записать дату и время с компьютера в базу данных?
Запись Даты и времени в текст
Нужно записать Дату и Время в текстовый файл Вот мой неудачный код Fwrite($fp, «date(«d/m/Y.
Запись даты и времени в txt файл
Всем привет, нужна помощь в написании элемента программы: суть такая: По нажатию на кнопку нужно.
Решение
Я сделал всё правильно?
Добавлено через 2 минуты
Ругается на s:=formatdatetime(‘dd.mm.yyyy hh:nn:ss’,now())’
Добавлено через 4 минуты
А вот я тупил.Всё заработало
Добавлено через 2 минуты
А можно тогда ещё вопрос при нажатии кнопки которая добавляет дату.Все записи из дбгрид исчезают.Приходится снова открывать таблицу.Можно ли сделать так чтобы записи из дб грид не исчезали?
Добавлено через 6 минут
Он добавляет текущую время и дату но не создаёт новую строку.
А всё заработало.Перепроверил всё теперь добавляет.
Нет у меня есть таблица под названием журнал.Куда записывается:
Антипин А.А время дата вход;
Иванов А.А время дата вход;
Антипин А.А время дата выход;
Иванов А.А время дата выход;
Антипин А.А время дата вход;
Иванов А.А время дата вход;
И так все сотрудники.
Мне нужно чтобы я ввёл номер сотрудника в эдит.И нажал к примеру кнопку вход.И в таблице появилась строчка:
Имя фамилия Отчество время дата вход.
Если жмё на кнопку выход то появляется новая строчка
Имя фамилия Отчество время дата выход.
Добавлено через 3 минуты
Вот что пытаюсь реализовать.
Добавлено через 1 минуту
То есть журнал где отмечаются входы и выходы сотрудников.
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Программа должна работать до определенной даты у пользователя, независимо, что он выставит в настройках даты и времени
Добрый день, уважаемые! Уже сломал голову, но ничего не могу придумать. Дело вот в чем: есть.
Почему при записи даты и времени из формы в бд, к времени прибавляется час?
Здравствуйте, при записи даты и времени из формы в бд, к времени прибавляется час, почему так.