1. Pascal / Говнокод #5142

    +100

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    dats:=datetostr(DateTimePicker1.Date);
datp:=datetostr(DateTimePicker2.Date);
datsc:=copy(dats,1,2);
datsm:=copy(dats,4,2);
datsg:=copy(dats,7,4);
datpc:=copy(datp,1,2);
datpm:=copy(datp,4,2);
datpg:=copy(datp,7,4);
idatsc:=strtoint(datsc);
idatsm:=strtoint(datsm);
idatsg:=strtoint(datsg);
idatpc:=strtoint(datpc);
idatpm:=strtoint(datpm);
idatpg:=strtoint(datpg);
tdatc:=strtoint(copy(p[i,6],1,2));
tdatm:=strtoint(copy(p[i,6],4,2));
tdatg:=strtoint(copy(p[i,6],7,4)); 
if not ((idatsg>tdatg) or ((idatsg=tdatg) and (idatsm>tdatm)) or ((idatsc>tdatc) and (idatsm>=tdatm)) or (idatpg<tdatg) or ((idatpg=tdatg) and (idatpm<tdatm)) or ((idatpc<tdatc) and (idatpm<=tdatm))) then

    Проверка или дата с массива включена в диапазон дат с DateTimePicker'ов (еще и с ошибкой в условии)
    И вся эта фигня в цикле... Как это увидел, валерьянкой отпаивали меня долго

    Запостил: Nikitiy_II, 04 Января 2011

    Комментарии (4) RSS

    Добавить комментарий