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

Системная дата и время   Найти похожие ветки 

← →
omckma ©   (2002-05-15 10:41) [0]

Помогите!!! Как программно изменить ММ/ДД/ГГ на ДД/ММ/ГГ в виндах.

---

← →
Zev   (2002-05-29 16:16) [1]

// установка в системе:
SetLocaleInfo( LOCALE_SYSTEM_DEFAULT , LOCALE_SSHORTDATE, PChar("dd.mm.yy") );

// установка в приложении
// в файле проекта

program P_Report;
uses
Forms, SysUtils, . . .
{$R *.RES}
begin
Application.Initialize;

DecimalSeparator := ".";
DateSeparator := ".";
SHortDateFormat := "dd.mm.yyyy" ;

Application.CreateForm(TF_Report, F_Report);
Application.CreateForm(TF_DM, F_DM);
Application.Run;
end

---

← →
Ura   (2002-05-29 16:24) [2]

var NewTime: SYSTEMTIME;
TimeServer : TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
Error : integer;

DecodeTime(TimeServer, Hour, Min, Sec, MSec);
DecodeDate(TimeServer, Year, Month, Day);
NewTime.wYear := Year;
NewTime.wMonth := Month;
NewTime.wDay := Day;
NewTime.wHour := Hour;
NewTime.wMinute := Min;
NewTime.wSecond := 0;
NewTime.wMilliseconds := 0;

if ( SetLocalTime(NewTime) = FALSE) then
begin
//OK
end
else begin
Error;
end;

---

← →
Ura   (2002-05-29 16:26) [3]

Сорри. Не то написал...

---

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

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



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