In vbscript:

Dim ul_giorno, valdata, datacompleta

datacompleta = Date()
valdata = CDate("01/" & CStr(Month(datacompleta)) & "/" & CStr(Year(datacompleta)))
ul_giorno = Day(DateAdd("d", -1, DateAdd("m", 1, valdata)))