rOn van Middendorp wrote:
cono schreef:
Function MakeFileNameOfDate as string
Dim myDate as Date
myDate = Date
MakeFileNameOfDate = Year(myDate) & Month(myDate) & Day(myDate) &
".sxw"
End Function
Cor,
Werkt als een tierelier, dank je wel. En dan dat gevoel van 'waarom lukt
me dat nou niet...' nou ja, ieder zijn hobby;-)
Bovenstaande functie geeft nu als output 200572, hoe krijg ik de
'voorloopnullen' in de naam? (20050702), let wel, ik ben tevreden, maar
ook een beetje een zeurpiet....
Nee hoor, je had het toch gevraagd? Had er even niet op gelet.
Deze doet het wel:
& groetjes - Cor
Function MakeFileNameOfDate as string
Dim myDate as Date
Dim nMonth%, nDay%
Dim sMonth$, sDay$
myDate = Date
nMonth = Month(myDate)
If nMonth < 10 then
sMonth = "0" & nMonth
Else
sMonth = nMonth
End If
nDay = Day(myDate)
If nDay < 10 then
sDay = "0" & nDay
Else
sDay = nDay
End If
MakeFileNameOfDate = Year(myDate) & sMonth & sDay & ".sxw"
End Function
rOn
--
Cor Nouws
http://www.nouenoff.nl
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
