Počítadlo dní

Anotace: ... jedna a jedna a jedna a jedna je třicet jedna! nebo ne?

Kýbl s nervy zdá se prázdný, 

sním o pobytu ve Františkových  lázních

a zatím se tu lehce zblázním

…s radostí,

ze všech těch blbostí.

Coding "lyics"(sing - if you can) :

CONCATENATE PA_RYEAR pa_perio '01' into start_date.

CASE pa_perto.
WHEN 2.
l_days = 28.
WHEN 1.
l_days = 31.
WHEN 3.
l_days = 31.
WHEN 5.
l_days = 31.
WHEN 7.
l_days = 31.
WHEN 8.
l_days = 31.
WHEN 10.
l_days = 31.
WHEN 12.
l_days = 31.
WHEN 0.
CASE pa_perio.
WHEN 2.
l_days = 28.
WHEN 1.
l_days = 31.
WHEN 3.
l_days = 31.
WHEN 5.
l_days = 31.
WHEN 7.
l_days = 31.
WHEN 8.
l_days = 31.
WHEN 10.
l_days = 31.
WHEN 12.
l_days = 31.
WHEN OTHERS.
l_days = 30.
ENDCASE.
WHEN OTHERS.
l_days = 30.
ENDCASE.

IF pa_perto is INITIAL.
CONCATENATE PA_RYEAR pa_perio l_days into end_date.
ELSE.