Question

access中怎么进行类型转换和字符串截取

例如我的字段值是这样的 091110 代表09年11月10日（字段类型是文本）我想把091110转换成时间类型的怎么转换？如果把091110截取字符怎么截取？

Answer 1

字符串转换为日期型函数，DateValue（<字符表达式>）。返回为 #0000-00-00#时间日期类型函数。关于字符串截取嘛，有三种，从左、从右、或从中间。Left（<字符表达式>，<数值表达式>）。返回一个值，该值是从字符表达式左侧第一个字符开始，截取的若干个字符，其中9字符个数是数值表达式的值。当字符的表达式是Null时，返回Null值；当数值表达式值为0时，返回一个空的字符串；当数值表达式值大于或等于字符表达式的个数时，返回字符表达式。Right（<字符表达式 >,<数值表达式>） 返回一个值，该值是在字符表达式右侧第一个字符开始，截取的若干个字符。其中，字符个数是数值表达式的值。当字符表达式为NULL时，返回NULL值；当数值表达式值为0时，返回一个空串；当数值表达式值大于等于字符表达式的字符个数时，返回字符表达式。Mid（<字符表达式>,<数值表达式1>,<数值表达式2>） 返回一个值，该值是从字符表达式最左端某个字符开始截取到某个字符为止的若干个字符。其中，数值表达式1的值是开始的字符位置。数值表达式2是终止的字符位置。

Answer 2

很简单
Dim strDate As String
strDate = Me.Text0 //赋值给文本框
strleft = Left(strDate, 2) //去左边2位 年
strmid = Mid(strDate, 3, 2) //去中间2位 月
strright = Right(strDate, 2) //去右边2位 日
ldate = strleft & "-" & strmid & "-" & strright //指定格式重新连接
lastdate = Format(CDate(ldate), "yyyy-mm-dd") //转换成日期格式
MsgBox lastdate //显示日期

按照你的想法改进，以上仅供学习。