08-09-22, 04:20 PM
جرب هذا الكود :
وعدله بما يناسب شغلك..
كود :
Dim n As Double = 999.8
Dim A As Integer = Int(n)
Dim S As Integer = (n - A) * 100
MsgBox(n & vbNewLine & A & vbNewLine & S)وعدله بما يناسب شغلك..
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
