Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Вниз

Даты!!!   Найти похожие ветки 

 
DenKop   (2002-04-12 21:50) [0]

Замучала вот такая задача.
Ищу разность между двумя датами так

function DifDate(Date1,Date2:String):TDateTime;
begin
Result:=StrToDate(Date2)-StrToDate(Date1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(DateToStr(DifDate("01.01.01","01.01.01")));
end;


Но в случае когда обе даты равны выдает следующее: 30.12.99
Когда Date2 больше Date1 на один день получаю: 31.12.99
........................ на один месяц получаю: 30.01.00
........................ на один год получаю: 30.12.00
Короче когда что больше чего-то на один день(год,месяц) или они равны, то получается бред какой-то. Возможно это связано с тем, что летоисчисление в TDateTime начинается с 30.12.1899. По моим соображениям оно должно начинаться с 31.12.1899. Как это дело обойти не нашёл, хотя времени уже убил теуву кучу.
Уважаемые, разъясните мне пожалуйста как обойти эту ситуацию?


 
Anatoly Podgoretsky   (2002-04-12 21:56) [1]

Разность между датами не является датой



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.006 c
1-80968
Rat King
2002-04-08 11:08
2002.04.25
Технология Plug-Insов


6-81010
Hyper-X
2002-01-18 21:22
2002.04.25
помогите!!!!


3-80761
alexandervasjuk
2002-04-03 14:29
2002.04.25
IBDataSet: Редакция в гриде


1-80921
SergeyB
2002-04-04 13:47
2002.04.25
Прозрачный потомок TCustomControl


3-80767
rvs
2002-04-04 12:11
2002.04.25
создание DBF - файла .....





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский