小弟遇到一些问题，还望各位大大帮忙，谢谢！

是这样的，想要编程一个数据，就是：

【停泊的时间 第一个半小时，收费为0.20元
第二个半小时，收费为0.50元】
第三个半小时开始直到接下来的半小时，收费为 0.80元

但问题是，假如用户输入的停泊时间是3小时（6个半小时），
第一个和第二个半小时，还是要根据【】的收费方式计算

谢谢各位大大的帮忙！

dim t as Single,s as Single

t=val(inpubbox("请输入时间"))

t=t*2              '换算成半小时
if t>1 then        '存在第一个半小时
    s=.2           '收费 0.2 元
    t=t-1          '去掉第一个 半小时

    if t>1 then        '去掉第一个半小时后，是否还存在 第二个半小时
      s=s+.5         '继续收费
      t=t-1          '再次去掉
      s=s+ Round(t + 0.499) * .8        '去掉了前面二个 半小时后的收费,后面不足半小时，按半小时算
    else
      s=s + .5        '第二个 半小时 直接收费，没有后续收费了
    end if
else         
  s=.2               '如果不足半小时，直接收费 0.2元
end if
msgbox "总费用： " & s

你这收费很成问题，半小时2毛，一个小时却要5毛，而1个半小时却又是8毛。
合理的停车收费规则是：半小时内不收费，超过半小时以上的按每小时收费1元（不足1小时按一小时计费），每天收费20元，24小时内超过20元按20元收取。

哦！是这样子啊！谢谢这位前辈，我先去研究下了

这点..的确是需要考量到。这方面要如何设置呢？