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

[JasperCRT]

Здравствуйте) Нужна помощь знающих людей) Мне нужно узнать как записать в переменную (например a:integer) номер текущего дня в месяце Заранее спасибо за помощь)

[Аватар]

var Year, Month, Day: Word;
...
DecodeDate(Date,Year,Month,Day);

[MyLastHit]

str:=DateToStr(Now);
выпарсить день и
a:=strtoint(str);


Или я чтото не то говори...Просто еще ниразу дела не имел с датами((

[JasperCRT]

Ммм... а можно по подробнее? Я попробовал вот так

var Year, Month, Day: Word;
var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
DecodeDate(Date,Year,Month,Day);
datetostr(day);

begin
Label1.caption :=datetostr(day);
end;

Он выводит мне совершенно другое число %)

А нужно чтобы в переменную типа интежер записывался только номер дня в неделе)) я пробовал перевести из строки в инт так он мне ошибку пишет(( С датами тоже работаю впервые поэтому проблем куча((

[Kotofff]

«Учу поиску. Дорого»

Как приятно - задал любой вопрос, получил ответ и не надо ни думать, ни искать ...

http://www.delphisources.ru/pages/fa...Month.php.html- это не прямой ответ !!! Дальше сами будьте добры !!!

[XeruH]

Сообщение от JasperCRT

Ммм... а можно по подробнее? Я попробовал вот так
Он выводит мне совершенно другое число %)

А нужно чтобы в переменную типа интежер записывался только номер дня в неделе)) я пробовал перевести из строки в инт так он мне ошибку пишет(( С датами тоже работаю впервые поэтому проблем куча((

А что ты хотел получить вот этим

datetostr(day);

Хоть английский то немножечко тоже знать не мешает!
P.S. вместо datetostr попробуй использовать inttostr

[Serge_Bliznykov]

Сообщение от JasperCRT

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

Сообщение от JasperCRT

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

Так что, собственно надо? Номер дня в месяце или номер дня в неделе?!

[_Engine_]

uses DateUtils;

function DayOfTheMonth
function DayOfTheWeek

[Serge_Bliznykov]

_Engine_ угу точно.
только я бы отметил, что этот модуль появился только в Delphi6

в моей любимой Delphi 5 его нет...

[_Engine_]

Ну тогда, вот они выдранные из DateUtils

function DayOf(const AValue: TDateTime): Word;
var
  LYear, LMonth: Word;
begin
  DecodeDate(AValue, LYear, LMonth, Result);
end;

function DayOfTheMonth(const AValue: TDateTime): Word;
begin
  Result := DayOf(AValue);
end;

function DayOfTheWeek(const AValue: TDateTime): Word;
begin
  Result := (DateTimeToTimeStamp(AValue).Date - 1) mod 7 + 1;
end;