dim sData as string
sData = cstr(today.year)
if len(today.Month) = 1 then
sData = CStr(sData) & "0" & CStr(Today.Month)
else
sData = CStr(sData) & CStr(Today.Month)
end if
sData = CStr(sData) & CStr(Today.Day)
dim sData as string
sData = cstr(today.year)
if len(today.Month) = 1 then
sData = CStr(sData) & "0" & CStr(Today.Month)
else
sData = CStr(sData) & CStr(Today.Month)
end if
sData = CStr(sData) & CStr(Today.Day)
Il dubbio non è piacevole, ma la certezza è ridicola. Solo gli imbecilli son sicuri di ciò che dicono.
Permessi di invio
Rispondi quotando