Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.12.2009, 17:00   #1
Angel86rus
Пользователь
 
Аватар для Angel86rus
 
Регистрация: 03.10.2007
Сообщений: 42
По умолчанию Как получить дату по Юлианскому календарю

Подскажите как обычную Дату преобразовать в юлианскую...?
Angel86rus вне форума
Старый 25.12.2009, 17:14   #2
Скандербег
Форумчанин
 
Регистрация: 04.04.2009
Сообщений: 438
По умолчанию

Код:
JUL := IncDate(Date, -13);
Скандербег вне форума
Старый 25.12.2009, 17:34   #3
Angel86rus
Пользователь
 
Аватар для Angel86rus
 
Регистрация: 03.10.2007
Сообщений: 42
По умолчанию

JUL - это что ?
Angel86rus вне форума
Старый 25.12.2009, 17:39   #4
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

это переменная типа DateTime
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума
Старый 25.12.2009, 18:16   #5
Angel86rus
Пользователь
 
Аватар для Angel86rus
 
Регистрация: 03.10.2007
Сообщений: 42
По умолчанию

IncDate(); - 'это функция которую нужно вызвать
function IncDate(ADate: TDateTime; Days, Months, Years: Integer): TDateTime;

и вот что у меня получается
........................
var
jul: TDateTime;
begin
jul:= incDate(Date, -13);
end;
запускаю ругается на E2035 not enough parametrs....?/
Angel86rus вне форума
Старый 25.12.2009, 18:52   #6
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

надо не incDate, a incDay
Код:
var 
jul: TDateTime;
begin
jul:= incDay(Date, -13);
end;
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума
Старый 25.12.2009, 19:04   #7
Angel86rus
Пользователь
 
Аватар для Angel86rus
 
Регистрация: 03.10.2007
Сообщений: 42
По умолчанию

я так понимаю функцию incDay тоже нужно прописывать ???

19:11

Uses DataUntil, прописал , все теперь заработало.
А как теперерь Editt отобразить.??

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

Последний раз редактировалось mihali4; 25.12.2009 в 23:34.
Angel86rus вне форума
Старый 25.12.2009, 21:53   #8
Somebody
Участник клуба
 
Регистрация: 08.10.2007
Сообщений: 1,185
По умолчанию

Надо только учитывать, что на 13 дней разница только между 13 марта 1900 и 13 марта 2100, до этого меньше, после этого больше.
Somebody вне форума
Старый 25.12.2009, 22:13   #9
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

Вот здесь — обратный перевод, в григорианский (работающая программа).

А здесь — дельфи-код двустороннего преобразователя, тоже отлаженный. Может, и пригодится.
Sasha_Smirnov вне форума
Старый 26.12.2009, 09:46   #10
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

Цитата:
А как теперерь Editt отобразить.??
Код:
edit.text:=datetostr(jul);
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как вывести дату из БД? Андрей79 PHP 5 04.10.2011 22:36
Как получить текущую дату из SQL запроса? _ozzy_ SQL, базы данных 2 09.09.2008 21:15
Help! Как изменить дату создания... Bigi Microsoft Office Excel 1 01.05.2008 14:59
Microsoft Office Outlook : Вопросы по поиску, календарю, правилам и другие Liker Софт 0 20.11.2007 14:55
Как вычислить дату? Askat Общие вопросы Delphi 4 21.08.2007 10:27