|
Alhimik |
|
|
|
Это просто жесть. Нужно чтобы в поле Edit была написана текущая дата. Вот я и пытаюсь:
...
var date : TDateTime;
....
edit1.text:= DateToStr (date);
...
И выводит не сегодняшню дату, а 30 дек. 1899!!!! На компе, в левом нижнем углу экрана, дата как надо.
Что это может быть? Попробовал разбить на числа god, mes, chislo : word; функцией DecodeDate (date, god, chislo, mes); тоже самое: god=1899; mes=12; chislo=30;
Что это за беспредел?
Компилятор Borland Delphi 7.
|
|
|
|
 |
|
Xaositect |
|
|
А где Вы присваиваете переменной date текущую дату? http://www.delphibasics.co.uk/RTL.asp?Name=Now
|
|
|
|
|
