See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
Private Sub Command0_Click() Dim dbs As Database Dim rstXIRR As DAO.Recordset Dim i As Integer Dim nPayments As Integer Dim objExcel As Excel.Application Dim p() As Double Dim d() As Date Set dbs = CurrentDb Set rstXIRR = dbs.OpenRecordset("tblTransactions", dbOpenDynaset) nPayments = DCount("PayDate", "tblTransactions") ReDim p(nPayments) ReDim d(nPayments) i = 0 With rstXIRR While Not .EOF p(i) = !Payments d(i) = !PayDate i = i + 1 .MoveNext Wend End With Set objExcel = New Excel.Application objExcel.RegisterXLL objExcel.Application.LibraryPath & "\ANALYSIS\ANALYS32.XLL" MsgBox objExcel.Run("XIrr", p, d) ' Result: 0.374858599901199 objExcel.Quit Set objExcel = Nothing End Sub
|Can you create a VBA macro that checks if folder exists and if not creates one||9||44|
|Access 2016 - Drill Down Reporting Question||5||9|
|rank minimum order||9||19|
|Custom auto number||6||29|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!