원 단위 절사

Function get_cut_int_price(price)
 If price <> "0 " and price <> "" Then
  print_price = cStr(price) '문자로 변환

  print_price = Mid(print_price, 1, Len(print_price) - 1) & "0" '원단위 절사

  print_price = cDbl(print_price) '숫자로 변환
 End If

 get_cut_int_price = print_price

End Function