Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.006 c
1-100250
Юлия
2003-03-18 17:36
2003.03.31
Создание своих компонентов


14-100377
REA
2003-03-13 13:06
2003.03.31
Реклама


1-100299
Behemoth
2003-03-19 12:30
2003.03.31
Хочу, чтобы дочерние MDI формы сразу появлялись развернутыми


1-100276
Barman
2003-03-18 09:30
2003.03.31
MDIChild


14-100381
JibSkeart
2003-03-07 17:49
2003.03.31
Может кто то видел но все же это довольно круто





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский