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

[Kotofff]

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

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

Вы бы еще Turbo Pascal упомянули ! Там вообще все ручками писалось. Помните ? Я хорошо помню как лабораторные на нем в универе делал и по окончании диплом писал, но(!) это было 18 лет назад !....

[kangreon]

Как вариант можно сделать так. Подробнее тут http://www.delphisources.ru/pages/fa...eTime.php.html

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i: Integer;
begin
  // String
  s := FormatDateTime('dd',Now);
  // Integer
  i := StrToInt(FormatDateTime('dd',Now));
end;

[Serge_Bliznykov]

_Engine_, коллега, спасибо, но Вы меня не поняли! лично мне они не нужны! (к тому же у меня JEDI/JCL есть )
Я просто для тех, кто попытается воспользоваться Вашим советом, и, вдруг, Delphi окажется такой же древней, как моя..

Простите, что невольно ввёл Вас в заблуждение...

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

Вы бы еще Turbo Pascal упомянули ! Там вообще все ручками писалось. Помните ?

что значит - "помните"? да я же ежедневно на нём пишу! В качестве гуманитарной помощи студентам...

И, кстати, DecodeDate - была в TurboPascal.
а как показал приведённый _Engine_ пример, DayOfMonth - просто обёртка над этой процедурой..

[JasperCRT]

Здравствуйте!) Долго не отписывался - интернета небыло) Я нашел достаточно простой способ получения времени с помощью функций WinAPI)
Вот он:

 procedure TForm1.Button1Click(Sender: TObject); 
             var 
               lt : TSYSTEMTIME; 
               st : TSYSTEMTIME; 
             begin 
               GetLocalTime(lt); 
               GetSystemTime(st); 
               Memo1.Lines.Add('LocalTime = ' + 
                               IntToStr(lt.wmonth) + '/' + 
                               IntToStr(lt.wDay) +  '/' + 
                               IntToStr(lt.wYear) + ' ' + 
                               IntToStr(lt.wHour) +  ':' + 
                               IntToStr(lt.wMinute) +  ':' + 
                               IntToStr(lt.wSecond)); 
               Memo1.Lines.Add('UTCTime = ' + 
                               IntToStr(st.wmonth) + '/' + 
                               IntToStr(st.wDay) +  '/' + 
                               IntToStr(st.wYear) + ' ' + 
                               IntToStr(st.wHour) +  ':' + 
                               IntToStr(st.wMinute) +  ':' + 
                               IntToStr(st.wSecond)); 
             end;

Как сделать это посредствам Delphi я так и не допёр)
Спасибо всем кто помог)))