Access技巧接龙

fan0217

计算年龄

Function Age(vDate1 As Date, vdate2 As Date) As Integer
    If Month(vdate2) < Month(vDate1) Or (Month(vdate2) = _
                Month(Bdate) And Day(vdate2) < Day(vDate1)) Then
            Age = Year(vdate2) - Year(vDate1) - 1
    Else
            Age = Year(vdate2) - Year(vDate1)
    End If
End Function

fan0217

发送文本到剪贴板的函数

Function SendToScrap(strSendText As String) As Boolean
'===============================================================================
'-函数名称:         SendToScrap
'-功能描述:         发送文本到剪贴板
'-输入参数说明:     必选：strSendText As String 发送的文本
'-返回参数说明:     发送成功：True  发送失败：False
'-使用语法示例:     SendToScrap("你好！")
'-参考:
'-使用注意:         需要引用Microsoft Forms2.0 Object Library (%system32%\FM20.DLL)
'-兼容性:
'-作者:             fan0217 fan0217@163.com
'-更新日期：        2006-02-24
'===============================================================================
On Error GoTo Err_SendToScrap
Dim tmpData As New DataObject
    tmpData.SetText strSendText
    tmpData.PutInClipboard
   
    SendToScrap = True

Exit_SendToScrap:
    Exit Function

Err_SendToScrap:
    SendToScrap = False
    MsgBox Err.Description
    Resume Exit_SendToScrap
      
End Function