求计算孕周23周时候的月份的VB

因为业务需要，现在急需一个计算孕周23周的月份的VB
要求是
输入孕妇任何一次检查的时候及当时检查是超声估算出胎儿的孕周后，可以得出该胎儿什么时候可以到23周。（一年按365天算，一个月按30天算，一周按7天算。）
比如
一个孕妇，一个超声孕检时间是2015年4月15日，当时得出的超声孕周是12周，输入这些数据后，可以得出在2015年7月1日胎儿孕周达到23周！
谢谢各位大神了，在线等！！