Зимняя шутка

[Alex04]

Наткнулся на шутку коллеги в коде Navision.
"А найдем последнюю дату месяца" - и:

D2 := DMY2DATE(1,DATE2DMY(TODAY,2)+1,DATE2DMY(TODAY,3)) - 1;

[Sancho]

и такие конструкции встречаются...

If a = TRUE THEN
b := FALSE
ELSE
b := TRUE;

[prefreitor]

Стишок - рекурсия

DogManagement:
SendMailMessage(var Pop - Record (Type Pop)), var DogMgt - Codeunit(DogManagement);

IF Pop.DogExist AND Pop.PopLoveDog AND Pop.DogEatingMeat THEN
  IF DogMgt.KillDog(Pop) THEN BEGIN
    DogMgt.BuryDog(Pop);
    DogMgt.SendMailMessage(Pop);
END;

[Milk]

А вот какой кусок кода для нахождения первого дня текущего месяца я увидел как-то у клиента, ведущего доработки своими силами:

Datv:=CALCDATE('<CM-1M+1D>')                       ;
IF DATE2DMY(Datv,1)=1 THEN Datv:=CALCDATE('<CM-1M>')    ;
DnachMes:=CALCDATE('<-'+FORMAT(DATE2DMY(Datv,1)-1)+'D>',Datv);   // ПЕРВЫЙ ДЕНЬ МЕСЯЦА

[prefreitor]

Что за феминизм? А где же ОН!

[Fly]

На хабре недавно появился пост по поводу одного интересного языка программирования (если его таковым можно назвать). Делюсь с вами