Работа со временем

← →
Сава (2003-09-14 21:44) [0]

Люди, посоветуйте, плз, что сделать, нужно получать системное время в формате ЧЧ:ММ. В винде стандартно Ч:ММ:СС и ЧЧ:ММ:СС, тоесть 1:11:11 и 11:11:11 в зависимости от текущего времени.

Я думал сначала получить длину переменной, потом в короткуд подставить 0 в начале. ноя не знаю как получить развер переменной.

Помогите, плз, решить проблему, или напишите кук узнать длину переменной...

← →
mfender (2003-09-15 03:49) [1]

Недавно мне здешние мастера настоятельно порекомендовали внимательно все прочитать про DateTime. Прочитал. Не жалею. Тебе тоже рекомендую. Хотя у меня с таким вопросом, как у тебя проблем не возникало.

Здесь тебе надо бы определиться, какое время тебе нужно: системное, или локальное. Это две большие разницы. Системное время - UTC - время на гринвичском меридиане от которого все пляшет. Добывается оно так: GetSystemTime().
Есть еще локальное время, завязанное на региональных настройках. Добывается оно GetLocalTime() или просто Now.

Т.е. если тебе приспичит узнать, который час в Лондоне и отобразить его в виде ЧЧ:ММ, то пиши так:

procedure TForm1.FormCreate(Sender: TObject); var st: TSYSTEMTIME; begin GetSystemTime(st); Label1.Caption:=FormatDateTime("hh:nn",SystemTimeToDateTime(st)); end;

Ну а текущее время дома и того проще:

procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption:=FormatDateTime("hh:nn",Now); end;

А длину строки можно узнать при помощи Length("строка").

Работа со временем Найти похожие ветки