Cdate does not help
 

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

Cdate does not help
 

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


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=188891

http://www.thecodecage.com/forumz/chat.php

Cdate does not help
 

On Fri, 19 Mar 2010 02:36:47 -0700 (PDT), jodleren 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