VPF::Работа с датой и временем. - Форум программистов

Ak47black

Дата 23.3.2007, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Каким способом можно сохранить Now(дату+время) в виде одного Integer и как потом переделать в строку?

Snowy

Дата 23.3.2007, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

В Integer - никак.
TDateTime - double - 8 байт. А в integer только 4.
То бишь можно, но только дату.

Код

i := Trunc(now);

А переделать в строку... в каком виде?

VICTAR

Дата 23.3.2007, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Вот, нашел много извращений с датой

Код


var
  TmStp,
  TmpStr2 : TTimeStamp;
  Mcs     : Comp;
  Dt      : TDateTime;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  TmStp:=DateTimeToTimeStamp(Now);
  Mcs:=TimeStampToMSecs(TmStp);
  ShowMessage(FloatToStr(Mcs));
  TmpStr2:=MSecsToTimeStamp(Mcs);
  Dt:=TimeStampToDateTime(TmpStr2);
  ShowMessage(DateTimeToStr(Dt));
end;

Ak47black

Дата 23.3.2007, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

VICTAR, Спасибо+.

VICTAR

Дата 23.3.2007, 19:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

На здоровье smile

Sunvas

Дата 23.3.2007, 19:42 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Ak47black, а модуль DateUtils смотрел?
Мне кажется тебе это может пригодиться:

Код


{ Encode/decode functions that work with week of month }

function EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth,      {ISO 8601x}
  ADayOfWeek: Word): TDateTime;
procedure DecodeDateMonthWeek(const AValue: TDateTime;               {ISO 8601x}
  out AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);

{ The following functions are similar to the above ones except these don't
  generated exceptions on failure, they return false instead }

function TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond,
  AMilliSecond: Word; out AValue: TDateTime): Boolean;
function TryEncodeDateWeek(const AYear, AWeekOfYear: Word;            {ISO 8601}
  out AValue: TDateTime; const ADayOfWeek: Word = 1): Boolean;
function TryEncodeDateDay(const AYear, ADayOfYear: Word;
  out AValue: TDateTime): Boolean;
function TryEncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth,   {ISO 8601x}
  ADayOfWeek: Word; var AValue: TDateTime): Boolean;

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Ak47black

Дата 23.3.2007, 22:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

от VICTAR, нормально работает.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »