Public Function F단가(도서코드, 정가)
If Len(도서코드) = 7 Then
F단가 = Round(정가 / Mid(도서코드, 3, 3), 0)
Else
F단가 = Round(정가 / Mid(도서코드, 3, 3), 0)
End If
End Function
이거잖아요 if문은 잘나와요 답
근데
Public Function F단가(도서코드, 정가)
Select Case Len(도서코드) = 7
Case Is = 7
F단가 = Round(정가 / Mid(도서코드, 3, 3), 0)
Case Else
F단가 = Round(정가 / Mid(도서코드, 3, 2), 0)
End Select
End Function
Public Function F단가(도서코드, 정가)
Select Case Len(도서코드)
Case Is = 7
F단가 = Round(정가 / Mid(도서코드, 3, 3), 0)
Case Else
F단가 = Round(정가 / Mid(도서코드, 3, 2), 0)
End Select
End Function
으로
Public Function F단가(도서코드, 정가)
Select Case Len(도서코드) = 7
Case Is = 7
F단가 = Round(정가 / Mid(도서코드, 3, 3), 0)
Case Else
F단가 = Round(정가 / Mid(도서코드, 3, 2), 0)
End Select
End Function
빨갛게 표시 된 부분을 삭제하세요.
좋은 하루 되세요.
-
*2012-01-18 09:49:12
Public Function F단가(도서코드, 정가)
Select Case Len(도서코드)
Case Is = 7
F단가 = Round(정가 / Mid(도서코드, 3, 3), 0)
Case Else
F단가 = Round(정가 / Mid(도서코드, 3, 2), 0)
End Select
End Function으로
"
Public Function F단가(도서코드, 정가)
Select Case Len(도서코드) = 7
Case Is = 7
F단가 = Round(정가 / Mid(도서코드, 3, 3), 0)
Case Else
F단가 = Round(정가 / Mid(도서코드, 3, 2), 0)
End Select
End Function빨갛게 표시 된 부분을 삭제하세요.
좋은 하루 되세요.