Форум: "Основная";
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];
Вниз
EncodeDateTime... Найти похожие ветки
← →
NAlexey (2003-03-20 14:13) [0]почему такая конструкция: DateTimeToStr(EncodeDateTime(1111, 11, 11, 11, 11, 11, 0)) возвращает - "12.11.1111 12:48:49". Ничего не пойму...
← →
Reindeer Moss Eater (2003-03-20 14:18) [1]А что такое "EncodeDateTime" ?
← →
MBo (2003-03-20 14:19) [2]EncodeDateTime?????
знаю EncodeDate и EncodeTime ...
← →
NAlexey (2003-03-20 14:24) [3]Ну какая разница, почему тогда
DateTimeToStr(EncodeDate(1111, 11, 11)+EncodeTime(11,11,11,0)) возвращает "12.11.1111 12:48:49"?
← →
REA (2003-03-20 14:29) [4]Delphi syntax:
function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime;
А зачем тебе 1111й год?
← →
NAlexey (2003-03-20 14:33) [5]Пользователь вводить в поле по маске: dd mm yyyy hh nn ss, я разбираю дату, анализирую разбираю на части использую, потом хочу собрать...
← →
REA (2003-03-20 14:37) [6]Ну и в каком месте собака порылась? Разбей на части выражение и локализуй ошибку.
← →
MBo (2003-03-20 14:39) [7]DateTimeToStr(EncodeDate(1111, 11, 11)-EncodeTime(11,11,11,0))
← →
NAlexey (2003-03-20 14:44) [8]Спасибо MBo!
НО - это дельфийский код, особое внимание на выделенную строчку. модуль DateUtils...
function TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond,
AMilliSecond: Word; out AValue: TDateTime): Boolean;
var
LTime: TDateTime;
begin
Result := TryEncodeDate(AYear, AMonth, ADay, AValue);
if Result then
begin
Result := TryEncodeTime(AHour, AMinute, ASecond, AMilliSecond, LTime);
if Result then
AValue := AValue + LTime;!!!!
end;
end;
← →
icWasya (2003-03-20 14:44) [9]EncodeDate(1111, 11, 11) - отрицательное число!!
← →
REA (2003-03-20 14:47) [10]Дата видимо отрицательная уже к этому времени. Вполне логично, что стандартные функции под это не заточены...
← →
NAlexey (2003-03-20 15:03) [11]Тогда не совсем понятно как пользоваться этими ф-циями, путаница какая то...
← →
Smithson (2003-03-20 15:32) [12]Очень просто. Пишешь S := DateToStr(0);
Смотришь, какая дата оказалась в S. Это точка отсчета. Если дата больше, то плюс. Если меньше - то минус.
← →
NAlexey (2003-03-20 17:04) [13]to Smithson
Спасибо, хорошее решение, жаль уже сделал. Пришлось изгалиться.
EncDate := StrToDateTime(Format("%d.%d.%d %d:%d:%d",[Sectionы[nDay], Sections[nMonth], Sections[nYear],Sections[4], Sections[5], Sections[6]]))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.03;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
