根据一个日期字段取值

li_wanli

各位朋友好:
我有一个问题麻烦各位看一下,是否有解决办法
日期      汇率
2013/8/1 6.2511
2013/9/1 6.2437
2013/10/1 6.2875
就是汇率变更日期,当我取一个日期,比如2013/8/15,怎么能取到6.2511这个值
给您添麻烦了,谢谢!

li_wanli

tmtony站长,我一直期待您能帮我解决,可是级别太低不能给您留言

netguestcn

Public Function getRate(ByVal myDate As Date) As Double
    Dim Conn As ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim strSQL As String
    Dim i As Integer

    Set Conn = CurrentProject.Connection
    strSQL = "Select * FROM 汇率表 ORDER BY 日期 DESC"
    rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

    rst.MoveFirst
    For i = 1 To rst.RecordCount
        If rst("日期") <= myDate Then
            getRate = rst("汇率")
            Exit For
        Else
            rst.MoveNext
        End If
    Next i

    rst.Close
    Set rst = Nothing
    Set Conn = Nothing
End Function

li_wanli

很有道理
做这个函数的确是很好的方法,我当时就是没想到用倒序的方法提取,你太有才了看的出来您是专门为我做的
非常感谢

sxgaobo

直接取日期的年月进行关联是否更简单点？

li_wanli

sxgaobo 发表于 2013-10-12 18:49
直接取日期的年月进行关联是否更简单点？

汇率表不是网上的汇率表,有可能根据个人需要每5天更新一次,那你的方法是做不到的