수다닷컴

Dim oc, fc1, fc2, sc1, sc2 As Long
oc = Val(Text1.Text)
If oc 1000 Then
MsgBox 1000원이상이여야합니다. - 만약에 1000원이 아니면이 메시지가 뜨면서 text1.text로 커서가 이동한 다음에 변경하지 않으면 계속 메시지박스가 뜨면서 반복되게해주세요
Ifoc Mod 500 0 Then
MsgBox 500원 단위로 써주세요. - 만약에 500원 단위가 아니면이 메시지가 뜨면서 text1.text로 커서가 이동한 다음에 변경하지 않으면 계속 메시지박스가 뜨면서 반복되게해주세요 그리고 이렇게 쓰면 500원 단위로 안써도 진행이되는데 소스가 틀린건가요?
End If
End If
fc1 = oc * 11 + 70000
fc2 = fc1 * 0.8
sc1 = oc * 20 + 70000
sc2 = sc1 * 0.8

- fc2랑 sc2를 계산해서 500원단위로 안떨어지면 500원단위로 올림을해서 예를들어 45433으로되면 45500 568100이면 568500 이런식으로 어떻게 못하나요? ㅠㅠ 초보자랑 아무리 책을 찾아봐도 안나오네요.
Text2.Text = fc2
Text3.Text = sc2

신청하기