PV 函数以及将 VB6 移植到 C#

Question

我正在致力于将一些经典的 VB6 代码移植到 C#，并且偶然发现了 PV 函数的用法。

我感觉错误包括对 Microsoft.VisualBasic 程序集的引用。这是常见的做法，还是我应该探索更多选择。我想到的下一个想法是探索 Reflector 中的 PV 功能。

Answer 1

C# 和 VB.NET 中 Microsoft.VisualBasic 的使用已在 这个问题。 Microsoft.VisualBasic 命名空间完全受支持，只要 .Net 存在，它就会存在。没有理由避免它。

编辑：这说明在打字时，这个问题的其他答案是函数的不正确重新实现，以及来自代码的单人乐队不受支持的库画廊。来吧伙计们，微软要从 VB 中删除财务功能需要真正的重大事件 。

对于 Microsoft.VisualBasic.Compatibility 来说，这是一个不同的故事，它专门供 VB6 升级向导使用，编辑 现已在 .Net 4 中标记为过时< /em>（我的预测成真了），并且不应该用于新的开发。删除对此的引用会有一些优势，但就我个人而言，我可能会尝试首先引用 .Net 3.5 来实现完全工作的端口。

Answer 2

在 C# 中复制非常简单，

    public static double PV(double Rate, int nPer, double Pmt, double FV, bool Type)
    {
        double ann = Math.Pow(1 + Rate, nPer);
        return -(FV + Pmt * (1 + (Type ? Rate : 0)) * ((ann - 1) / Rate)) / ann;
    }

只需重新排列 Microsoft 提供的公式< /a>.

Answer 3

您可以使用这个库来复制 f# 中的 excel 函数

Library

它的 PV 是现值。我用过一两次。只需将其放入并添加参考即可。

Answer 4

我尝试使用已接受的答案，但无法让它在 .NET Core 中工作。我环顾四周，在 github 上发现了这段代码，它似乎是 Microsoft 的 PV 实现：

https://github.com/microsoft/referencesource/blob/master/Microsoft.VisualBasic/runtime/msvbalib/Financial.vb#L662

    Public Function PV(ByVal Rate As Double, ByVal NPer As Double, ByVal Pmt As Double, Optional ByVal FV As Double = 0, Optional ByVal Due As DueDate = DueDate.EndOfPeriod) As Double

        Dim dTemp As Double
        Dim dTemp2 As Double
        Dim dTemp3 As Double

        If Rate = 0.0# Then
            Return (-FV - Pmt * NPer)
        Else
            If Due <> 0 Then
                dTemp = 1.0# + Rate
            Else
                dTemp = 1.0#
            End If
            dTemp3 = 1.0# + Rate

            '       WARSI Using the exponent operator for pow(..) in C code of PV. Still got
            '       to make sure that they (pow and ^) are same for all conditions
            dTemp2 = dTemp3 ^ NPer

            'Do divides before multiplies to avoid OverFlowExceptions
            Return (-(FV + Pmt * dTemp * ((dTemp2 - 1.0#) / Rate)) / dTemp2)
        End If

    End Function

您仍然会需要将其转译为 C#。如果我在本文末尾有一个足够通用的实现，我也会发布它。