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

TIME_ZONE_INFORMATION & GetTimeZoneInformation   Найти похожие ветки 

← →
NikolaB   (2003-02-01 19:32) [0]

Est li v Windows gotovaia function, kotoroia pereobrazuet "Day-in-month format" TIME_ZONE_INFORMATION v nastoiaschee DateTime (ili SystemTime)?
Ia ne nashol, poetomu - napisal, no mojet kto-to znaet original.
Nelzia li ukazat GetTimeZoneInformation vozvraschat tochnoe SystemTime, a ne SystemTime "Day-in-month format"?

{}function MonthSystemTimeToDateTime(var aSysDT {"Day-in-month format, wYear=0"}: tSystemTime): tDateTime;
var
xSysDT : tSystemTime;
xDtTm : tDateTime;
xDay : integer;
begin
try
with aSysDT do begin
if (wYear=0) and (wDay in [1,5]) then begin
DateTimeToSystemTime(Date,xSysDT);
xDay := wDay;
wYear := xSysDT.wYear;
wDay := 1;
xDtTm := SystemTimeToDateTime(aSysDT);
DateTimeToSystemTime(xDtTm,aSysDT);
if wDayOfWeek<=6 then begin
inc(wDay,6-wDayOfWeek);
end else begin
inc(wDay,13-wDayOfWeek);
end;
if xDay=5 then begin
xDay:=DayOfMonths(wYear,wMonth);
while wDay<=xDay do begin
inc(wDay,7);
end;
dec(wDay,7);
end;
end;
end;
except
end;
Result:=SystemTimeToDateTime(aSysDT);
end;

---

← →
Игорь Шевченко ©   (2003-02-03 10:08) [1]

В кладовке, в разделе "Готовые программы" есть программа QuerySystemInformation, кроме всего прочего там и работа с датами в системном формате. Глянь, может, что пригодится.

---

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

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



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