Скачать: CL | DM;

DecodeDate   Найти похожие ветки 

← →
Kirill ©   (2007-08-07 00:28) [0]

Не знаю даже куда писать?
Создал пустое приложение на Delphi

procedure TForm1.FormCreate(Sender: TObject);
var wYear, wDay, wMonth : word;
begin
 DecodeDate(Now,wYear,wMonth,wDay);
 ShowMessage(IntToStr(wYear));
end;
Показывает 2007

В своей программе использую synautil
в ней функция

function Rfc822DateTime(t: TDateTime): string;
var
 wYear, wMonth, wDay: word;
begin
 DecodeDate(t, wYear, wMonth, wDay);
 Result := Format("%s, %d %s %s %s", [MyDayNames[DayOfWeek(t)], wDay,
   MyMonthNames[1, wMonth], FormatDateTime("yyyy hh":"nn":"ss", t), TimeZone]);
end;

исправил function Rfc822DateTime(t: TDateTime): string;
var
 wYear, wMonth, wDay: word;
begin
 DecodeDate(t, wYear, wMonth, wDay);
 MessageBox(0,PChar(IntToStr(wYear)),"Test",0);
 Result := Format("%s, %d %s %s %s", [MyDayNames[DayOfWeek(t)], wDay,
   MyMonthNames[1, wMonth], FormatDateTime("yyyy hh":"nn":"ss", t), TimeZone]);
end;
и перадаю Now
в итоге вижу 3906.

Написал такой program Project1;

uses
 Kol;

var wYear, wDay, wMonth : word;
begin
 DecodeDate(Now,wYear,wMonth,wDay);
 MsgOK(Int2Str(wYear));

end.
Результат 2007.

Не понимаю - кто виноват? synautil?

---

← →
Kirill ©   (2007-08-07 00:32) [1]

Вряд ли.
Может ли Now меняться в программе?

В пустой программе он равен 39300,...
В моей больше 700000,...

---

← →
Jon ©   (2007-08-07 03:44) [2]

See my reply in the Synapse mailing list.

Do not mix VCL and KOL DateTime functions!
In SynaUtil uses section replace SysUtils with KOL.

From the KOL documentation:

const VCLDate0 = 693594;
Value to convert VCL "date 0" to KOL "date 0" and
back. This value corresponds to 30-Dec-1899, 0:00:00.
So, to convert VCL date to KOL date, just subtract
this value from VCL date. And to convert back from KOL
date to VCL date, add this value to KOL date.

---

← →
Kirill ©   (2007-08-07 10:23) [3]

Joe,
Thank you very much. This work!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c