Использование Math.Round с Единица измерения

Question

Я пытаюсь использовать Math.Round в функции округлить денежную сумму следующим образом:

let calculateTaxablePayToDate previousPayToDate taxablePayThisMonth = 
    taxablePayThisMonth 
    |> fun (x:decimal) -> Math.Round(x) 
    |> fun x -> x + previousPayToDate 

Типы, которые я передаю в оба типа decimal<GBP> , Когда я пытаюсь и запустить их через функцию, хотя я получаю:

Это выражение, как ожидается, иметь тип
decimal, но здесь имеет тип
int<GBP>

Как я в состоянии использовать Math.Round на цифра, в которой прилагается Единица измерения?

Answer 1

Math.Round ожидает необработанное значение, а не значение меры. Вы можете обернуть его в функции общего в тип измерения:

open System 
open Microsoft.FSharp.Core.LanguagePrimitives 

let roundMeasure<[<Measure>]'u>(x: decimal<'u>): decimal<'u> = Math.Round(decimal x) |> DecimalWithMeasure 

, то вы должны быть в состоянии сделать:

let calculateTaxablePayToDate previousPayToDate taxablePayThisMonth = 
     taxablePayThisMonth |> roundMeasure |> fun x -> x + previousPayToDate 

или

let calculateTaxablePayToDate previousPayToDate taxablePayThisMonth = 
    previousPayToDate + (roundMeasure taxablePayThisMonth)