yumo_yiran 发表于 2007-12-14 16:57:37

系统当前日期如何转化

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

lantianwei 发表于 2007-12-14 17:40:47

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

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

村上舞!舞!舞 发表于 2007-12-17 20:55:18

用格式化输出

Dim str1 as string
Dim str2 as string
str1 =format(Date,"YYMMDD")
str2 = "aaa(" & str1 & ")"
msgbox str2
页: [1]
查看完整版本: 系统当前日期如何转化