converting dates (year and month)

Dear All, Is there a more concise way to go from date to newdate below? Thanks.

Code:

* Example generated by -dataex-. For more info, type help dataex
clear
input str6 date float newdate
"202101" 732
"202102" 733
end
format %tm newdate