Office中国论坛/Access中国论坛

标题: 如何按特殊规则生成一个字段 [打印本页]

作者: asia2158 时间: 2003-3-28 08:35
标题: 如何按特殊规则生成一个字段
各位高手我要生成一个特殊字段如下：110001200303291020060009, 这个字段的前6位110001是一个固定值；中间的8位：20030329，是当前机器日期；接下来的6位：
102006是当前的机器时间，即早上10：20：06，最后4位：0009是顺序码，请问：如果需要生成这样的字段（在ACCESS XP中）应当如何去做？请给出示例代码。
谢谢！！

作者: zhengjialon 时间: 2003-3-28 16:44
"110001" & datepart("yyyy",now()) & DatePart("mm",now()) & DatePart("d",now()) & DatePart("h",now()) & DatePart("n",now()) & DatePart("s",now()) & "另置一个自动编号的字段"

对于不足两位的月份日等可用HuangHai的函数来解决：
Option Compare Database
Option Explicit
'=====================================================
'本例作者：黄海　电子邮件：hhem@163.com QQ:42209810
'欢迎ACCESS的爱好者与我交流
'=====================================================

'函数功能：指定字符串长度，不足位前面补“0”,一般用于数长整型数值，为了达到保证格式整齐时使用。
'参数一（必需）为字符，用来输入要转化的字符串
'参数二（必需）为长整型数字，输入总长度
'-------------------------------------------------------------------------------------

'::::用法::::
't = insertzero (1,4)　　　　　返回"0001"
't = insertzero (10,4)　　　　　返回"0010"

Public Function insertZero(strWord As String, allLong As Integer)
On Error GoTo errDoing

Dim manyZero As String
Dim insertZeroLong As Integer

manyZero = "00000000000000000000"　　　　'(20位)留好足够多的零呀：）
insertZeroLong = allLong - Len(strWord)

If insertZeroLong >= 0 Then
　　insertZero = Left(manyZero, insertZeroLong) & strWord
Else
　　MsgBox "长度应大于字符长度！"
End If

Exit Function
errDoing:
　　MsgBox Err.Number & Err.Description
　　Exit Function
End Function
---------------------------------------------------
或者用下面的方法：
sVar = FORMat(1, "00000") --> sVar="00001"
sVar = FORMat(101, "00000") --> sVar="00101"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)