Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Курс видеоуроков КРЭКЕРСТВО + ПРОГРАММИРОВАНИЕ 2017
(актуальность: апрель 2017)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Вывод даты в нужном формате


 function CheckDateFormat(SDate:  string):  string;
 var
   IDateChar: string;
   x, y: integer;
 begin
   IDateChar := '.,\/';
   for y := 1 to length(IDateChar) do
   begin
     x := pos(IDateChar[y], SDate);
     while x > 0 do
     begin
       Delete(SDate, x, 1);
       Insert('-', SDate, x);
       x := pos(IDateChar[y], SDate);
     end;
   end;
   CheckDateFormat := SDate;
 end;
 
 
 function DateEncode(SDate:string):longint;
 var
   year, month, day: longint;
   wy, wm, wd: longint;
   Dummy: TDateTime;
   Check: integer;
 begin
   DateEncode := -1;
   SDate := CheckDateFormat(SDate);
   Val(Copy(SDate, 1, pos('-', SDate) - 1), day, check);
   Delete(Sdate, 1, pos('-', SDate));
   Val(Copy(SDate, 1, pos('-', SDate) - 1), month, check);
   Delete(SDate, 1, pos('-', SDate));
   Val(SDate, year, check);
   wy := year;
   wm := month;
   wd := day;
   try
     Dummy := EncodeDate(wy, wm, wd);
   except
     year := 0;
     month := 0;
     day := 0;
   end;
   DateEncode := (year * 10000) + (month * 100) + day;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS