VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



Convert Pieces into Dozens. Like converting value of 38 as 3 dzn and 2 pieces.

by Ajay Khullar (4 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 16th August 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)

Convert Pieces into Dozens. Like converting value of 38 as 3 dzn and 2 pieces.

Rate Convert Pieces into Dozens. Like converting value of 38 as 3 dzn and 2 pieces.



c = 0
b = Text1.Text
Do While b >= 12
    b = b - 12
    c = c + 1
Loop
If b > 0 Then
    MsgBox "Result is " + Str(c) + " dzn and " + Str(b) + " pcs"
Else
    MsgBox "Result is " + Str(c) + " dzn"
End If
End Sub


Download this snippet    Add to My Saved Code

Convert Pieces into Dozens. Like converting value of 38 as 3 dzn and 2 pieces. Comments

No comments have been posted about Convert Pieces into Dozens. Like converting value of 38 as 3 dzn and 2 pieces.. Why not be the first to post a comment about Convert Pieces into Dozens. Like converting value of 38 as 3 dzn and 2 pieces..

Post your comment

Subject:
Message:
0/1000 characters