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

Вниз

Одним сравнением проверить корректность даты..   Найти похожие ветки 

 
ArtemESC ©   (2006-05-07 12:53) [0]

Совсем запутался - целый час парюсь, как это сделать, написал следующее,но явно что-то очень грамоздское(на правильность не проверял) Как это сделать...

   If (Day > 0) and (Month > 0) and (Day < 32) and (Month < 13) and
    (
      (Day < 28) or
      ( (Day > 28) and (Month <> 2)) or
      ( (Day <= 29) and (Month = 2) and (Year div 4 = Year / 4)) or
      ( (Day = 31) and ((Month = 1)) or
      ( (Day = 31) and ((Month = 3)) or
      ( (Day = 31) and ((Month = 5)) or
      ( (Day = 31) and ((Month = 7)) or
      ( (Day = 31) and ((Month = 8)) or
      ( (Day = 31) and ((Month = 10)) or
      ( (Day < 31) and ((Month = 12)) or
      ( (Day < 31) and ((Month = 4)) or
      ( (Day < 31) and ((Month = 6)) or
      ( (Day < 31) and ((Month = 9)) or
      ( (Day < 31) and ((Month = 11))
          ) then


 
Palladin ©   (2006-05-07 12:58) [1]

TryEncodeDate


 
ArtemESC ©   (2006-05-07 12:59) [2]

Palladin ©   (07.05.06 12:58) [1]
Забыл сказать - на BP...


 
Gero ©   (2006-05-07 13:03) [3]

> ArtemESC ©   (07.05.06 12:59)

Функция TryEncodeDate поставляется вместе с исходником.


 
SergP ©   (2006-05-07 13:20) [4]

Все месяцы кроме февраля можно так:


Day <= ((month xor (month shr 3)) or 30)


 
SergP ©   (2006-05-07 13:26) [5]


> (Year div 4 = Year / 4)


1. Не знаю как будет работать сравнение целого числа с вещественным...

2. Определение високосного года неправильное.

Високосным годом называется год если его номер делится на 4 за исключением тех, которые делятся на 100, но не делятся на 400.


 
Marser ©   (2006-05-07 13:55) [6]

Можно использовать уже написанные библиотеки. Автор, проверь почту.


 
ArtemESC ©   (2006-05-07 15:28) [7]

Marser ©   (07.05.06 13:55) [6]
Thanks



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

Форум: "Прочее";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.065 c
2-1147720988
Firefly
2006-05-15 23:23
2006.06.04
web-страницы


15-1147190703
asd
2006-05-09 20:05
2006.06.04
Ошибка [Error] Unit1.pas(40): Undeclared identifier: Connected


15-1147526071
boriskb
2006-05-13 17:14
2006.06.04
Госдума приравняла российских программистов к малому бизнесу,


2-1147717358
Mr tray
2006-05-15 22:22
2006.06.04
lower/uppercase с символами киррилицы


15-1147070109
Nic
2006-05-08 10:35
2006.06.04
Задача со строками





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский