powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Преобразовать дату в число
11 сообщений из 11, страница 1 из 1
Преобразовать дату в число
    #35277063
vinni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть поле DateTimePicker, из него я хочу считать дату и сразу приобразовать его в число:

типа такого:

dt1:=datetostr(dt.Date);

только мне нужно получить не строку, а число!

Как мне это сделать?
...
Рейтинг: 0 / 0
Преобразовать дату в число
    #35277102
Фотография Куликов Алексей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не понял? Что за число?

Вообщето тип TDateTime и есть вешественное число где целая часть это дата, а дробная -- время.
...
Рейтинг: 0 / 0
Преобразовать дату в число
    #35277104
vinni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
например: дата 03.01.2008, а ее числовой эквивалент = 39450
...
Рейтинг: 0 / 0
Преобразовать дату в число
    #35277115
Ega
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vinniнапример: дата 03.01.2008, а ее числовой эквивалент = 39450

TDateTimePicker.Date, TDateTimePicker.Time, TDateTimePicker.DateTime, TDateTime + F1
...
Рейтинг: 0 / 0
Преобразовать дату в число
    #35277126
Naf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
 var 
  x:integer;
 begin 
  x:=Trunc(DateTimePicker.Date);
  ShowMessage(IntToStr(x));
 end ;

С уважением, Naf
...
Рейтинг: 0 / 0
Преобразовать дату в число
    #35277133
Фотография Куликов Алексей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
 var  i: Integer;
...
  i := Round(DataTimePicker1.Date);
...
Рейтинг: 0 / 0
Преобразовать дату в число
    #35277206
vinni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Куликов Алексей
Код: plaintext
1.
2.
 var  i: Integer;
...
  i := Round(DataTimePicker1.Date);


помогло! Спасибо!
...
Рейтинг: 0 / 0
Преобразовать дату в число
    #35278263
Marauder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выбирай что тебе надо:
Код: plaintext
1.
2.
3.
4.
5.
Trunc(StrToDate('24.04.2008 11:00')) =  39562 
Trunc(StrToDate('24.04.2008 13:00')) =  39562 

Round(StrToDate('24.04.2008 11:00')) =  39562 
Round(StrToDate('24.04.2008 13:00')) =  39563 
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Преобразовать дату в число
    #39870644
Andrey20111987
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
showmessage (DateTimeToStr(43770))
вернет 01.10.2019
Это как обратно из числа получить дату
...
Рейтинг: 0 / 0
Преобразовать дату в число
    #39870648
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АААААААААААААААААААА!!!!!!!!!!!!
зомби!!!!!!!!!!!!!!!!!!!!!!!!!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Преобразовать дату в число
    #39870826
Фотография Куликов Алексей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Боже... Уже более 11 лет прошло... Как время-то летит
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Преобразовать дату в число
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]