Code:
              BEGSR

              SELEC
Monat         WHEQ        1
Monat         OREQ         3
Monat         OREQ         5
Monat         OREQ         7
Monat         OREQ         8
Moant         OREQ        10
Monat         OREQ        12
              Z-ADD       31          LetzterTag
Monat         WHEQ         4
Monat         OREQ          6
Monat         OREQ          9
Monat         OREQ         11
              Z-ADD        30         LetzterTag
Monat         WHEQ          2
Jahr          DIV             4         ZwischenResultat
              MVR                       Rest
Rest          IFEQ            0
              Z-ADD         29        LetzterTag
 * Schaltjahr im Februar 29 Tage!!
              ELSE
              Z-ADD         28        LetzterTag
              ENDIF
              ENDSL

              ENDSR
So hab ich das mal ausprogrammiert

Als Input-Parameter habe ich Jahr, Monat und als Output habe ich den LetztenTag