Ondalık sayıyı tam kısmını pay ve payda kısmını ayırarak yazma

[socialfor]

Merhaba, klavyeden girilen ondalık sayıyı, tam katsayısını payını ve paydasını bulması gerekiyor. Örneğin, 3,27 sayısı girilecek. Program Tam Kısmı:3 Pay:27 Payda:100 gibi bir çıktı verecek. Hiç bir eğitim almadım maalesef uzaktan eğitim olduğu için hocalar zorluyorlar böyle, gıda mühendisliği öğrencisiyim.

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

Option Explicit

Sub Test()
    Dim Veri As Variant, Tam_Sayi As Integer, Pay As Variant, Payda As Integer

    Veri = InputBox("Lütfen ondalıklı sayısal değer giriniz.")
    If Veri = "" Then Exit Sub
    If InStr(1, Veri, ",") = 0 Then Exit Sub
    
    Tam_Sayi = Int(Veri)
    Pay = Split(Replace(Veri, ",", "."), ".")(1)
    
    Select Case Len(Pay)
        Case 1: Payda = 10
        Case 2: Payda = 100
        Case 3: Payda = 1000
    End Select
    
    MsgBox "Tam Kısmı; " & Tam_Sayi & Chr(10) & _
           "Pay; " & Val(Pay) & Chr(10) & _
           "Payda; " & Payda
End Sub

 

[socialfor]

Merhaba bunu visual basic 6 ile nasıl yapabilirim ? Birde pay kısmı çıkıyor ama payda kısmı 10,100,1000 olduğunu nasıl anlarız. Örneğin, 3,06 sayısı üç tam yüzde altı diye okunuyor

 

[Korhan Ayhan]

Üstteki mesajımı revize ettim. Tekrar deneyiniz.

 

[socialfor]

Elinize sağlık. Allah razı olsun.