查看完整版本: 系统当前日期如何转化

系统当前日期如何转化

小弟现在遇到一个问题，需要在一个字符串后面加注一段备注信息，此段备注信息格式为(******)即，在字符串后面加上当前年份后2位，当前月份数（二位数表示），当前日期（两位数），即假如现在的字符串是aaa，系统当前日期为2007－12－14，则完成操作以后输入编程了aaa(071214)，请教怎样实现？

string&"("right(year(now),2)&month(now)&day(now)&")"
试下,应该是这样写

[[i] 本帖最后由 lantianwei 于 2007-12-18 10:22 编辑 [/i]]

用格式化输出

Dim str1 as string
Dim str2 as string
str1 =  format(Date,"YYMMDD")
str2 = "aaa(" & str1 & ")"
msgbox str2