Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Преобразовать дату в число / 11 сообщений из 11, страница 1 из 1
24.04.2008, 13:17
    #35277063
vinni
vinni
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать дату в число
Есть поле DateTimePicker, из него я хочу считать дату и сразу приобразовать его в число:

типа такого:

dt1:=datetostr(dt.Date);

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

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

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

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

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


помогло! Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2008, 18:22
    #35278263
Marauder
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
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
02.10.2019, 16:22
    #39870644
Andrey20111987
Andrey20111987
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать дату в число
showmessage (DateTimeToStr(43770))
вернет 01.10.2019
Это как обратно из числа получить дату
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2019, 16:25
    #39870648
Мимопроходящий
Мимопроходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать дату в число
АААААААААААААААААААА!!!!!!!!!!!!
зомби!!!!!!!!!!!!!!!!!!!!!!!!!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2019, 20:22
    #39870826
Куликов Алексей
Куликов Алексей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразовать дату в число
Боже... Уже более 11 лет прошло... Как время-то летит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Преобразовать дату в число / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 340ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2038990]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 213ms
total:  340ms
x
x
Закрыть


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