DateTimePicker юлианская дата

[Serge_Bliznykov]

А можно ли извлечь из DateTimePicker отдельно год, не вводя новых переменных?

если в вашем C++ Builder есть библиотека DateUtils - то смотрите в её сторону.
Только функция YearOf (ну или как она там у вас называется), всё равно внутри себя создаст три переменные, а вернёт Вам только нужное - в данном случае, год.
Если такой библиотеки нет, то напишите свою функцию (всего пара строк кода), которая будет возвращать год по дате.

И смело используйте переменные, несколько байт, временно выделенные в стеке, ровным счётом ни на что не влияют - этим методом можно смело пользоваться!

[m-d-k]

Просто у меня проблема с DateTimePicker!

В режиме dmUpDown не считывается время (дата считывается):

void __fastcall TForm1::DateTimePicker1Change(TObje ct *Sender)
{
unsigned short year,month,day,hour,min,sec,ms;
DateTimePicker1->Date.DecodeDate(&year,&month,&day) ;
DateTimePicker1->Date.DecodeTime(&hour,&min,&sec,&m s);
Label1->Caption=IntToStr(day); //считывается!
Label2->Caption=IntToStr(min); //не считывается!
}

Может, подскажете, в чем ошибка?

[m-d-k]

Как я выяснил, надо просто перед считыванием переключать программно DateTimePicker1 в соответствующий режим даты или времени.
Но как это сделать?

[m-d-k]

Программно тоже почему-то свойства работают корректно только отдельно.
В режиме dmUpDown не меняется ни дата, ни время:

unsigned short year,month,day,hour,min,sec,ms;
DateTimePicker1->Kind = dtkDate;
DecodeDate(DateTimePicker1->Date,year,month,day) ;
DateTimePicker1->Kind = dtkTime;
DecodeTime(DateTimePicker1->Time,hour,min,sec,ms);
Label1->Caption=IntToStr(day);
Label2->Caption=IntToStr(min);


Если оставить только один из режимов Kind, то все работает!

[m-d-k]

Еще одна проблема при работе с DateTimePicker - различные значения секунд!

void __fastcall TForm1::DateTimePicker1Change(TObje ct *Sender)
{
float md;
unsigned short hour,min,sec,ms;
DecodeTime(DateTimePicker1->Time,hour,min,sec,ms);
md=float(sec)/86400+15078;
Label1->Caption=FloatToStr(md); //работает неправильно!
Label2->Caption=FloatToStr(float(sec)/86400+15078); //работает правильно
}

Что неправильно в первом варианте?

[m-d-k]

Разобрался!
Замена на double помогла!