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

Всем доброго времени суток.

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Получить начало и конец месяца по дате документа
Здравствуйте! Платформа 8.2. Есть документ Инвентаризация, который содержит стандартный реквизит.

Вывести номер дня и месяца, предшествующее указанной дате
Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года.

По заданной дате вывести информацию о том, високосный ли год в этой дате, а также название месяца и количество дней в нем.
Ребят, помогите пожалуйста, я только начала проходить программирование и еще не совсем разбираюсь.

Даны два целых числа: D (день месяца) и M (номер месяца в году). Вывести знак зодиака, соответствующий этой дате.
Помогите пожалуйста сделать не знаю даже с чего начать Даны два целых числа: D (день месяца) и M.

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

Определить день недели по указанной дате
Создать программу которая определяет день недели по указанной дате (по современному календарю).

Вывести в datagridview по указанной дате dateTimePicker
добрый вечер. никак не могу разобраться что не так я сделал. в интернете везде смотрел и здесь на.

Прибавление к числа (месяца) к дате
Добрый день уважаемые форумчане. Задачка проста: Имеем дату: 12.12.2008г Имеем число: 26,5.

Источник

Delphi первый день месяца

Вх. данные: число месяца, год
Необходимо получить 2 даты:
— дата первого дня указаного месяца и года
— дата последнего дня указаного месяца и года

← →
engine © ( 2008-01-22 15:02 ) [1]

> [0] deras © (22.01.08 14:57)

StartOfAMonth
EndOfAMonth

+ EncodeDate и decodedate

← →
deras © ( 2008-01-22 15:08 ) [3]

> [0] deras © (22.01.08 14:57)
Как вариант.

> Sergey13 © (22.01.08 16:47) [4]

> [5] Семеныч (22.01.08 16:56)

← →
Семеныч ( 2008-01-22 17:04 ) [7]

> Sergey13 © (22.01.08 17:00) [6]

То есть, Вы считаете, что после [3] Ваши наблюдения еще имели смысл?

← →
engine © ( 2008-01-22 17:06 ) [8]

> [7] Семеныч (22.01.08 17:04)

О чем спор? Сергей по теме ответил, вроде все правильно.

← →
Anatoly Podgoretsky © ( 2008-01-22 19:10 ) [9]

> По моим наблюдениям они заканчиваются накануне 1 числа следущего
> месяца

А по моим наблюдениям она равна количеству дней в месяце.

> [7] Семеныч (22.01.08 17:04)

Ты новый хранитель местных традиций или представляешь святую инквизицию? Тогда хоть зарегистрируйся.

> еще имели смысл?
Представь себе да. Например в SQL запросе, где недоступны делфийские функции, удобнее, ИМХО, пользоваться именно моими вариантом (то, что это вариант решения я честно указал).

Sergey13 © (23.01.08 9:08) [10]
+1
function StartOfAMonth(date:TDateTime):TDateTime;
begin
result:=Int(date)-DayOf(date)+1;
end;

function EndOfAMonth(date:TDateTime):TDateTime;
begin
result:=StartOfAMonth(StartOfAMonth(date)+32)-1;
end;

Slym © (23.01.08 10:29) [11]
function EndOfAMonth(date:TDateTime):TDateTime;
поправка
function EndOfAMonth(date:TDateTime):TDateTime;
begin
result:=StartOfAMonth(StartOfAMonth(date)+32)-OneMillisecond;
end;

← →
Семеныч ( 2008-01-23 10:35 ) [13]

> Sergey13 © (23.01.08 09:08) [10]

Вряд ли задавший вопрос настолько глуп, что нуждался в подсказке очевидного. Проблема состояла не в этом, а в том, как получить результат именно в виде TDateTime. Человек просто не знал нужных функций и после того, как ему их подсказали, проблема была сразу же закрыта. Что он, фактически, и сообщил в [3] (иначе были бы новые вопросы). Значит, появившийся через час после этого Ваш постинг был уже не нужен. Да и вряд ли вообще нужны ответы, в которых излагаются тривиальные вещи, очевидные даже для первоклассников.

Не хотелось бы к такому привыкать.

> [13] Семеныч (23.01.08 10:35)
> Да и вряд ли вообще нужны ответы, в которых излагаются тривиальные
> вещи, очевидные даже для первоклассников.

Эти тривиальные вещи на самом деле алгоритм определения искомых дат.

Разумеется это примитивный псевдокод (на случай если ты попытаешься это откомпилировать).

Если ты не понял, что это алгоритм, то видимо ты зашел не на тот сайт. А не поняв, видимо решил, что это издевка.

Почитав несколько твоих постов в разных ветках я не нашел к сожалению твоих ответов авторам по существу, только обсуждения постов отвечающих. Ты видишь в этом свое предназначение?

← →
Семеныч ( 2008-01-23 11:19 ) [17]

> Sergey13 © (23.01.08 11:00) [16]

Вот другой псевдокод:

Скажите, Вы действительно считаете других настолько глупыми, что им нужно объяснять, сколько будет дважды два? И при этом еще сомневаетесь, поняли ли они Ваши объяснения?

> [17] Семеныч (23.01.08 11:19)

Ну прекращай уже 🙂
Уже не смешно становится.

Источник

Типы, функции и процедуры 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 первый день месяца

Доброго времени суток! Уважаемые подскажите пжл как можно устанавить программно в DateTimePicker дату что бы всегда было первое число текущего месяца?

← →
Anatoly Podgoretsky © ( 2010-08-09 12:12 ) [1]

← →
Дмитрий С © ( 2010-08-09 12:25 ) [2]

В событии OnChange

uses dateutils
.
+
ixen © (09.08.10 13:22) [3]

DecodeDate + EncodeDate + F1

> DateTimePicker.date:=StartOfTheMonth(date);

Это Вы где такое откапали. у меня не работает, говорит не знаю я такого!

← →
Rouse_ © ( 2010-08-09 15:48 ) [7]

> 6ruse (09.08.10 15:43) [6]
>
>
> > DateTimePicker.date:=StartOfTheMonth(date);
>
> Это Вы где такое откапали. у меня не работает, говорит
> не знаю я такого!

uses DateUtils

← →
Anatoly Podgoretsky © ( 2010-08-09 15:57 ) [8]

> 6ruse (09.08.2010 15:43:06) [6]

А у тебя видимо не указан нужный модуль в uses и конечно нет справки?

> Anatoly Podgoretsky © (09.08.10 16:07) [10]
>
> Пробовал?

ааа. Там StartOfTheMonth
Ну да, так сработает. Только один фиг это

function StartOfTheMonth(const AValue: TDateTime): TDateTime;
var
LYear, LMonth, LDay: Word;
begin
DecodeDate(AValue, LYear, LMonth, LDay);
Result := EncodeDate(LYear, LMonth, 1);
end;

← →
Anatoly Podgoretsky © ( 2010-08-09 16:13 ) [13]

> Ega23 © (09.08.10 16:10) [11]

С этим методом да, но предложен то StartOfTheMonth

Источник

Первое число месяца

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Составить программу, которая уменьшает первое введённое число в два раза
Составить программу, которая уменьшает первое введённое число в два раза, если оно больше второго.

Вывести первое число месяца по текущей дате
По текущей дате рассчитать первое число месяца

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

Функция, устанавливающая дату, переданную в параметре, в первое число месяца StartOfTheMonth(Date)
находится в модуле DateUtils.

P.S. При чем здесь, правда, ADO.

Если первое число больше второго по абсолютной величине, то необходимо уменьшить первое в 5 раз
1. Даны два числа. Если первое число больше второго по абсолютной величине, то необходимо уменьшить.

Если первое число больше второго по абсолютной величине, то необходимо уменьшить первое в 5 раз, иначе оставить числа без изменения.
Здравствуйте помогите пожалуйста решить 4 задачки последняя надежда на Вас! Спасибо! 1.Даны.

Данно вещественное число X. Найти в нем первое число десятка, число десятых долей.
помогите плз решить Данно вещественное число X. Найти в нем первое число десятка, число десятых.

Источник