一个很简单的问题，急等 孕周计算的方法(100分)

有以下的计算孕周的表格，怎样在程序中逻辑计算呢，请各位帮忙：
23—9周 46—18周 68—27周 89—36周
210—10周 413—19周 615—28周 816—37周
217—11周 420—20周 622—29周 823—38周
224—12周 427—21周 629—30周 830—39周
31—13周 53—22周 75—31周 97—40周
38—14周 510—23周 712—32周 914—41周
315—15周 517—24周 719—33周 921—42周
322—16周 524—25周 726—34周
329—17周 61—26周 82—35

如图示：如果是2个月3天就是9周，如果是5个月10天就是23周，也就是前面的一个数字是几个月，后面的数字是多少天；

是不是要这样的结果啊(DELPHI实现的):
procedure TForm1.Button1Click(Sender: TObject);
var
Condition :string; //
WEEK :string;
begin
Condition:=trim(inttostr(StrToIntDef(trim(edit1.Text),0)));//窗体上控件的值传给变量
WEEk:=inttostr((strtoint(copy(Condition,1,1))*30+strtoint(copy(Condition,2,length(Condition)-1))) div 7)+'周'; //仅限于前一位是月份的
showmessage(week);
end;
//如输入420 则显示20周

我是要算出两个日期差，然后要看是多少周，这个表只是个基本的，比如，如果算出的日期差是4个月26天，也要算做是20周

多人接受答案了。