Типы, функции и процедуры Delphi для работы с датой и временем.

Содержание:

Функции и процедуры Delphi для работы с датой и временем.

Тип TDateTime.

Тип TTimeStamp.

Тип TSQLTimeStamp.

Функции и процедуры Delphi для работы с датой и временем.

Значения символических констант для обозначения дней недели в соответствии с ISO 8601. Используйте эти константы для работы с функциями, работающими в соответствии со стандартом ISO 8601 (функции из модуля DateUtils).

Внимание: Не используйте эти константы с функцией DayOfWeek, которая трактует Воскресение (Sunday) как первый день недели.

DayOfфункция
DateUtilsВозвращает день месяца из значения TDateTime. Возвращаемое функцией значение находится в промежутке между 1 и 31.DayOfTheMonthфункция
DateUtilsВозвращает день месяца из значения TDateTime. Возвращаемое функцией значение находится в промежутке между 1 и 31.DayOfTheWeekфункция
DateUtils

Внимание: Значения DayOfTheWeek соответствуют ISO 8601 (где Понедельник (Monday) является первым днем недели). Если хотите чтобы первым днем недели считалось Воскресение (Sunday) используйте функцию DayOfWeek вместо функции DayOfTheWeek.

Совет: Чтобы сделать возвращаемые значения более читабельными, используйте константы Day of week.

DayOfTheYearфункция
DateUtilsВозвращает количество дней между значением, указаным в TDateTime и 31 Декабря предыдущего года.DayOfWeekфункция
SysUtils

Внимание: Значения DayOfWeek не соответствуют ISO 8601 (где Понедельник (Monday) является первым днем недели). Если хотите чтобы первым днем недели считался Понедельник (Monday) используйте функцию DayOfTheWeek вместо функции DayOfWeek.

Содержание

Тип TDateTime.

Ниже приведены несколько примеров значения TDateTime и соответсвующие им дата и время:

Чтобы найти количество дней, включая дробную часть, между двумя датами, просто вычтите два значения, если только одно из них не является отрицательным. Аналогично, если значение TDateTime не отрицательное, то, чтобы увеличить значение даты и времени на определенное кличество дней, включая дробную часть, достаточно прибавить количество дней, включая дробную часть, к значению TDateTime.

Когда обрабатываются отрицательные значения TDateTimes, то вычисление дробной части производится отдельно. Дробная часть отражает часть 24-часового дня не зависимо от знака значения TDateTime. Например, 6:00 am on 12/29/1899 это –1.25, а неt –1 + 0.25, что составило бы –0.75. Значений TDateTime между –1 и 0 не существует. Cовет: В модулях SysUtils и DateUtils для работы с датой и временем имеется большое количество процедур и функций на все случаи жизни. Не заморачивайтесь с обственными вычислениями, не изобретайте велосипед, а пользуйтесь уже готовыми наработками разработчиков Delphi. (См. Функции и процедуры Delphi для работы с датой и временем.) Оно надежнее.

Примечание: В Delphi 1 за начало отсчета принят год 1, т.е. для перевода даты Delphi 1 в дату последующих версий Delphi надо вычесть из даты число 693594.

Содержание

Тип TTimeStamp.

TTimeStamp представляет значения дата и время.

Используйте TTimeStamp если требуется повышеная точность представления значения времени в знчениях дата/время. Если нет необходимости сохранять значение времени с точностью до милисекунд, используйте более компактное TDateTime. Если необходима еще большая точность, то используйте TSQLTimeStamp (но НЕ назначайте его типом Variant).

Поле Time field показывает количество милисекунд, прошедших с полуночи.

Поле Data показывает число календарных дней от начала календаря (число дней с 1/1/0001 плюс один).

Содержание

Тип TSQLTimeStamp.

TSQLTimeStamp представляет значения даты и времени с очень высокой точностью.

Используя функцию VarSQLTimeStampCreate, Вы можете создать тип Variant который представляет значение TSQLTimeStamp. Фактически, простейший путь манипулирования значениями SQLTimeStamp это создать подобный Variant и использовать встроеные операторы, обеспечивающие работу с Variant.

Источник

Delphi количество дней в месяце

Как узнать количество дней в месяце

← →
MBo ( 2003-01-23 12:24 ) [1]

← →
Separator ( 2003-01-23 12:34 ) [2]

function DaysPerMonth(AYear, AMonth: Integer): Integer;

← →
KSION ( 2003-01-23 13:21 ) [3]

в какой версии Делфи? в 6-ке нет, такой функции (DaysPerMonth), или какой модуль использовать?

← →
Johnmen ( 2003-01-23 13:39 ) [4]

← →
Separator ( 2003-01-23 14:02 ) [6]

← →
Slava ( 2003-01-23 14:20 ) [7]

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

← →
mike-d ( 2003-01-23 15:18 ) [8]

DayNum := MonthDays[IsLeapYear(Y), M];

← →
cult ( 2003-01-23 15:29 ) [9]

Ну блин Ваще, функция пишется самостоятельно за 5 минут и содержать будет строк 10, даже если бы в дельфях встроенной не было. Смешно и грустно.

function Days(Year,Month:integer):integer;
begin
Result:=-1;
case month of
1,3,5,7,8,10,12:Result:=31;
4,6,9,11:Result:=30;
2:begin
Result:=28;
if (Year-2002) div 4 = 0 then Result:=Result+1;
end;
end;
end;

все хорошо, но это:
if (Year-2002) div 4 = 0 then Result:=Result+1;
Ну блин Ваще

← →
Anatoly Podgoretsky ( 2003-01-23 15:36 ) [11]

Это выходит, что в феврале 2002 года 29 дней, в могилу.

← →
cult ( 2003-01-23 15:38 ) [12]

mod, блин, а не div!
Ну я Ваще :)))

А насчет 2002. а он не високосный был? ну тогда 2000 🙂

← →
REA ( 2003-01-23 16:03 ) [13]

Ну если брать планетарный масштаб, то там каждый сотый или тысячный год не високосный. Или что-то типа того. Вобщем на 4 не всегда можно делить.

← →
Reindeer Moss Eater ( 2003-01-23 16:07 ) [14]

В Григорианском календаре в течение 400 лет должно быть не 100 високосных лет, а на 4 меньше. Эти 4 года определяются произвольным образом.

Самый простой способ: научится считать до 31

← →
REA ( 2003-01-23 16:29 ) [16]

>Эти 4 года определяются произвольным образом.

← →
Reindeer Moss Eater ( 2003-01-23 16:50 ) [17]

1. Зачем?
2. Да наверняка есть
3. Постепенно сползают

← →
Anatoly Podgoretsky ( 2003-01-23 16:54 ) [18]

И скорость вращения изменяется, падает

← →
Reindeer Moss Eater ( 2003-01-23 17:01 ) [19]

Виноват, наврал. Про произвольный выбор.

к високосным относятся только те вековые годы, число столетий которых делится на 4 без остатка. Такими годами, являются: 1600, 2000, 2400, 2800 и т. д. Годы же 1700, 1800, 1900, 2100 и т. д. будут простыми.

← →
dolmat ( 2003-01-23 17:04 ) [20]

еще можно попробовать такое
if mons+1>12 then year1:=year+1 else year1:=year;
n_day:=strtodate(«01.»+inttostr(mons)+».»+inttostr(year))-strtodate(«01.»+inttostr(mons+1)+».»+inttostr(year1))-1;

← →
Johnmen ( 2003-01-23 17:10 ) [21]

>Reindeer Moss Eater (23.01.03 17:01)

← →
Reindeer Moss Eater ( 2003-01-23 17:16 ) [22]

← →
KDenis ( 2003-01-23 17:21 ) [23]

А зачем количество дней в месяце? Может GetDate подойдет.

← →
Романов Р.В. ( 2003-01-23 17:41 ) [24]

Да что вы беспокоитесь. Через 6 лет взорвется Солнце, а тех кто выжевет через 3 года добъет метеорит 🙂

← →
dtrn ( 2003-01-27 16:15 ) [25]

function MaxDayOfMonth(Year,Month:word):integer;Overload;
function MaxDayOfMonth(Date:TDateTime):integer;Overload;

function MaxDayOfMonth(Year,Month:word):integer;
begin
Result:=PDayTable(
@MonthDays[IsLeapYear(Year)])^[Month];
end;

function MaxDayOfMonth(Date:TDateTime):integer;Overload;
var
Year,Month,Day:Word;
begin
DecodeDate(Date,Year,Month,Day);
Result:=MaxDayOfMonth(Year,Month);
end;

← →
Anatoly Podgoretsky ( 2003-01-27 16:23 ) [26]

Reindeer Moss Eater (23.01.03 17:01)
Что скажешь про 4000 год?

← →
Reindeer Moss Eater ( 2003-01-27 16:57 ) [27]

Скажу, что Григорианский календарь к этому времени выйдет из употребления

← →
Sha ( 2003-01-28 11:49 ) [28]

LeapYear:= (Year and 3=0)
and ((Year mod 100<>0)
or (Year and 15=0)
and (Year mod 4000<>0));

← →
Anatoly Podgoretsky ( 2003-01-28 11:58 ) [29]

Вот жто загадочно (Year and 15=0)

← →
Chubais ( 2003-01-28 12:32 ) [30]

Sha © (28.01.03 11:49)
поразительно!

← →
Sha ( 2003-01-28 12:34 ) [31]

2 Anatoly Podgoretsky © (28.01.03 11:58)
Делимость на 16 проверить легче, чем делимость на 400.

← →
Sha ( 2003-01-28 12:58 ) [32]

2 Chubais © (28.01.03 12:32)
Поразительно хорошо или поразительно плохо?
Если первое, то спасибо.
Если второе, то советую сначала все как следует проверить.

Источник

Delphi количество дней в месяце

Мастера, подскажите функцию которая возвращает количество дней в указаном месяце?

← →
Ученик ( 2002-08-12 18:08 ) [1]

DateUtils.DaysInMonth в Delphi 6, может есть и в Delphi 5

← →
MrBeer ( 2002-08-12 20:35 ) [2]

Navernoe mozhno napisatj i optimalnee. no.

function LeapYear(year: integer): boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;
Function GetDaysInMonth(year,month:integer):integer;
const
DaysInMonth: array[1..12] of Integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysInMonth[Month];
if (Month = 2) and LeapYear(Year) then Inc(Result);
end;

← →
Юрий Зотов ( 2002-08-12 23:22 ) [3]

> MrBeer © (12.08.02 20:35)

Ну почему, написано вполне нормально. Просто немного раньше почти то же самое уже написано в VCL. :о)

См. MonthDays и IsLeapYear.

← →
MrBeer ( 2002-08-13 01:38 ) [4]

Юрий Зотов © (12.08.02 23:22)
Ya VCL dostatochno slabo znaju (mozhet na urovne D3 ;), mne bistree napisatj chem iskatj. (ne podozreval chto estj 😉

Источник

Delphi количество дней в месяце

Форум программистов > Delphi программирование > Общие вопросы Delphi определение кол-ва дней в месяце

Регистрация январь 31 день. февраль 28 или 29. это просто знать надо. Вообще не понял вопроса . Если что-то известно заранее, то создаёться таблица соответсвия, некоторые любят называть это «Кеш» Вот как реализован ответ на твой вопрос в Delphi в модуле Calendar.pas function TCalendar.IsLeapYear(AYear: Integer): Boolean; begin Result := (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0)); end; function TCalendar.DaysPerMonth(AYear, AMonth: Integer): Integer; const DaysInMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); begin Result := DaysInMonth[AMonth]; if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result); < leap-year Feb is special > end; function TCalendar.DaysThisMonth: Integer; begin Result := DaysPerMonth(Year, Month); end; Думаю коментарии с моей стороны будут лишними. Источник По заданным году и номеру месяца m определить количество дней в месяце Помощь в написании контрольных, курсовых и дипломных работ здесь. По заданному году и номеру месяца определить количество дней в месяце В среде разработки Delphi написать программу с графическим интерфейсом, которая по заданному году и. По заданному году и номеру месяца определить количество дней в этом месяце мне надо чтобы он работал правильно. сост.пр, которая по заданным году и номеру месяца m. По заданным году и номеру месяца определить количество дней в этом месяце Составить программу, которая по заданным году и номеру месяца определяет количество дней в этом. doomsteel, Вы до сих пор не нашли решения? Основное Вам давно написали Добавлено через 2 минуты не понимаю..а сдать надо MrOnlineCoder, есть стандартная функция модуля DateUtils: function DaysInAMonth ( const Year, Month : Word ) : Word; Arcor, вряд ли ТС все предложенные варианты о чем-либо говорят ток в конце где end сточкой ошибку позывает Добавлено через 2 минуты в конце ошибку выдает end. Добавлено через 1 минуту в конце ошибку выдает end. Добавлено через 5 минут кароч непонимаю Решение ошибку выдает из-за того что нету соответствующего begin’а синтаксис вложенных функций или процедур Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце Помогите решить: Составить программу, которая по заданным году и номеру месяца m определяет. Составить программу, которая по заданным году n и номеру месяца т определяет количество дней в этом месяце Сколько раз пытался, постоянно какие-то проблемы и в итоге ничего не работает! Если умеет кто-то. Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце 1. Даны три числа. Написать программу, подсчитывающую количество чисел, равных 0. 2. Составить. По заданному году и номеру месяца m определить количество дней в этом месяце Брату в универе нужно написать задачки по программированию (лабы) на паскале. Помогите кто знает. Источник ← delphi день недели по дате delphi количество дней между двумя датами → Вам также понравится в течение скольки дней возвращают деньги на карту при возврате товара сбербанк 12.01.202315.01.2023 admin 0 Цлг stone island что означает 14.01.202303.03.2023 admin 0 10 июня праздник мвд 12.01.202312.01.2023 admin 0 Добавить комментарий Отменить ответ Ваш адрес email не будет опубликован. Обязательные поля помечены * Комментарий * Имя * Email * Сохранить моё имя, email и адрес сайта в этом браузере для последующих моих комментариев.