Excel: Formula se function

[merez]

Mπορεί κάποιος να μου γράψει σε vba πως γράφεται το

=2*(TRUNC(B1))-B1

Το Β1 είναι ενδεικτικό, ουσιατικά μια μεταβλητή θέλω και να βγάζει το result h function

[merez]

Για το αρχείο μόνο..τελικά μου δοέλεψε αυτό

 

Function cr(x As Double) As Double

cr = 2 * (Fix(x)) - x

End Function

 

 

στη VBA δεν παίζει η TRUNC