Cdate does not help

[jodleren]

Hi

I have a date, in format dd.mm.yyyy and cdate crashes when
transforming the data in to a date type - I want to subtract 15 days
from it'
Excel 2007 help sucks, it does not give anything - I want to use my 3
strings (d m and y) to create a date variable, then subtract 15. Like
in Delphi, "EncodeDate(y,m,d)"
Also the help does not give anything bright on setting the date
(format) again, so.... my ugly and non working sllution:

dStartDate = CDate(sBeginDate) - 15
sStartDate = GetFormattedNumber(Day(dStartDate), 2) & "." &
GetFormattedNumber(Month(dStartDate), 2) & "." &
GetFormattedNumber(Year(dStartDate), 4)

Any suggestions?

Sonnich

 

[joel]

dStartDate = CDate(sBeginDate) - 15
startDate = Format(dStartDate, "DD.MM.YYYY")

 

[Ron Rosenfeld]

Hi

I have a date, in format dd.mm.yyyy and cdate crashes when
transforming the data in to a date type - I want to subtract 15 days
from it'
Excel 2007 help sucks, it does not give anything - I want to use my 3
strings (d m and y) to create a date variable, then subtract 15. Like
in Delphi, "EncodeDate(y,m,d)"
Also the help does not give anything bright on setting the date
(format) again, so.... my ugly and non working sllution:

dStartDate = CDate(sBeginDate) - 15
sStartDate = GetFormattedNumber(Day(dStartDate), 2) & "." &
GetFormattedNumber(Month(dStartDate), 2) & "." &
GetFormattedNumber(Year(dStartDate), 4)

Any suggestions?

Sonnich

If I understand you correctly, perhaps:

========================
Option Explicit
Sub TestDate()
Dim d As Long, m As Long, y As Long
Dim dStartDate As Date

d = 13: m = 1: y = 2010

dStartDate = DateSerial(y, m, d)

Debug.Print dStartDate, dStartDate - 15
Debug.Print Format(dStartDate, "dd.mm.yyyy"), _
Format(dStartDate - 15, "dd.mm.yyyy")

End Sub
====================================

--ron