PV 函数和移植 VB6 到 C#

Question

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

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

Answer 1

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

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

Microsoft.VisualBasic.Compatibility则是另一回事，它专供 VB6 升级向导使用， EDIT现在已在 .Net 4 中被标记为过时（我的预测成真），不应用于新的开发。 删除对此的引用会有一些好处，但我个人可能会尝试首先引用.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提供的公式。

Answer 3

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

图书馆

它有现值的PV。 我已经使用过一两次了。 只需将其放入并添加引用即可。

Answer 4

我尝试使用已接受的答案，但无法在 .NET Core 中使用它。 我环顾四周，在 github 上发现了这段代码，它似乎是微软对 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#。 如果我在本文末尾有一个足够通用的实现，我也会发布它。