아 제발좀 도와주세요 ㅠㅠ
초롱꽃
2023.04.01
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
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2752057 | 비주얼베이직도 오토핫키처럼 | 연블랙 | 2026-10-20 |
| 2752032 | 폴더 안에 있는 파일 전체 삭제기 만드는... ㅜㅠ | 징징몬 | 2026-10-20 |
| 2752001 | 웹호스팅연결 | 핀아 | 2026-10-20 |
| 2751918 | 라벨 질문 | 천사 | 2026-10-19 |
| 2751889 | 오른쪽 하단에 옵션 넣는것들이 없어짐... | 키클 | 2026-10-19 |
| 2751858 | dll 인젝터 만드는데 오류가 뜨네요.. 수정할 곳이 어디인가요? (1) | 내담 | 2026-10-18 |
| 2751740 | 커맨드 버튼 질문 | 개럭시 | 2026-10-17 |
| 2751716 | 정말궁금하네요 이름변경법.. (1) | 모든 | 2026-10-17 |
| 2751656 | 비베 고수님 도와주세요 (1) | 민아 | 2026-10-17 |
| 2751554 | 버튼누를시.. (3) | 오미자 | 2026-10-16 |
| 2751529 | 사진파일 속성 캐오기. (4) | 회전력 | 2026-10-15 |
| 2751446 | 주소이동 만드는것 질문요 | 고독 | 2026-10-15 |
| 2751413 | 컴퓨터종료 모든 OS에서 되는소스 | 펴라 | 2026-10-14 |
| 2751383 | 아이콘 없는 exe파일에 아이콘넣는방법 뭔가요?? (1) | 볼수록매력 | 2026-10-14 |
| 2751329 | 타이머와 command버튼으로 shap움직이기 관련 질문이요!! | 비사벌 | 2026-10-14 |
| 2751302 | FreeLibraryAndExitThread API 활용법좀... (2) | 횃불 | 2026-10-13 |
| 2751274 | 어떤값을 어떻게 대입해야되는지좀 알려주세요 | 낮선검객 | 2026-10-13 |
| 2751245 | 트레이 아이콘으로 바꾸기 어떻게 하나요..? | 꿈빛 | 2026-10-13 |
| 2751189 | 비베 인증확인후 주소... (4) | 큰힘 | 2026-10-12 |
| 2751160 | Pid 구하는법좀... (1) | 루라 | 2026-10-12 |