Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: 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 вся ветка

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-35134
RDA
2002-07-20 20:24
2002.08.12
Простой вопрос


1-35258
Kran
2002-07-31 11:15
2002.08.12
Посимвольное присваивание Строк


3-35213
zavisalych
2002-07-24 09:43
2002.08.12
баг в VCL? не понимает множественных полей в KeyFields


1-35332
qube
2002-07-30 10:09
2002.08.12
Есть ли для Delphi функции для работы с регулярными выражениями?


3-35179
Relaxer
2002-07-22 23:55
2002.08.12
Хелп, плз ! Обновление данных в реалтайм ... (D6, IB6)