Access技巧接龙

james_chung

哈哈,学习

tong2004

学习！！！

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

ffgg333

真的不错。谢谢分享。

hoocg

s

andymark

获取access程序自身名称

Function CurrentProjectName() As String
    CurrentProjectName = Dir(CurrentDb.Name)
End Function

van_zeng

学习学习

guzhonghua26

dingding

baije

取得日期是一年中的第几周的函数

Public Function cweek(xx_date As Date)
    Dim newyear As Date
        newyear = Format(Year(xx_date) & "-01-01", "yyyy-mm-dd")
        cweek = Int((xx_date + Weekday(newyear) - newyear - 1) / 7) + 1
End Function