以太坊公式根据网络哈希率查找挖掘的硬币

Question

我有这个vb.net公式，我试图与网站公式匹配，但我不能得到它显示小时为0.0330硬币和月23.8251硬币。我知道我离开某个地方，有人知道吗？

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim UserHashMh As Decimal = 10000
    Dim difficulty As Decimal = 217585
    Dim BlockTimeSec As Decimal = 15
    Dim BlockReward As Decimal = 3
    Dim netHashGH As Decimal = 0
    Dim blocksPerMin As Decimal = 0
    Dim ethPerMin As Decimal = 0
    Dim userRatio As Decimal = 0

    netHashGH = (difficulty / BlockTimeSec) / 1000000000
    userRatio = (UserHashMh * 1000000) / (netHashGH * 1000000000)
    blocksPerMin = 60.0 / BlockTimeSec
    ethPerMin = blocksPerMin * BlockReward

    Dim min As Decimal = userRatio * ethPerMin
    Dim hour As Decimal = min * 60
    Dim day As Decimal = hour * 24
    Dim week As Decimal = day * 7
    Dim month As Decimal = day * 30

    Debug.Print("hour: " & hour & " | day: " & day & " | week: " & week & " | month: " & month)
End Sub