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

On Fri, 19 Mar 2010 02:36:47 -0700 (PDT), jodleren <(E-Mail Removed)> wrote:

>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