Satanas napsal(a): Kakal osel na privat, kakal dokonce i protektroeat / En null SUM, Null Abs Div Will Clone Periodicity
Shared Function IAbs%(ByVal value%)
Dim av% = Math.Abs(value)
If av > 1 Then
Return av
Else
If value < 1 Then
Return av - 1
Else
Return value
End If
End If
End Function Co mi to sem cpeš za hatmatilku? :) |