新手，求问VB6的编程问题 - 编程论坛

#2

风吹过b2013-06-14 08:35

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

#3

lowxiong2013-06-14 11:41

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

#4

逐视世间2013-06-14 21:56

回复 2楼风吹过b

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

#5

逐视世间2013-06-14 21:57

回复 3楼 lowxiong

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