PSКод:var
std,z : systemtimedate; //syslibtime
st64 : systime64; //...
get : curtimeex; //...
var retain //ретайн желательно если критична из-за вероятность передергивания питания за сутки
вот_и_первое_число : r_trig;
------------
std := z;
get(systemtime := st64, timedate:=std);
вот_и_первое_число(clk := std.day = 1);
if вот_и_первое_число.q then
//..................
end_if
Движок форума чудит, блин