2012-10-12 2 views
1
Dim dt1 As Date 
dt1 = Date 
MsgBox dt1 ' works - 12.10.2012 
Day(dt1) = 1 ' error: object required 

내가 필요합니다 1.10.2012
그래서 어떤 날짜에 대해서도 해당 특정 날짜의 첫 번째 날로 dt1을 설정해야합니다.날짜를 설정하는 방법은 무엇입니까?

+0

newDate = DateSerial (년 (DT1), 월 (DT1) , 1) – user3357963

답변

4

당신은 날짜를 재구성하는 dateserial 사용할 수

예를 들어

newDate = DateSerial(Year(dt1), Month(dt1), 1) 
+0

우수. 고맙습니다. – Alegro

2

당신은 또한 일 공제 할 수있는 직접

dt1 = dt1 - Day(dt1) + 1 
+0

고마워, 알렉스. 나는 시도 할 것이다. – Alegro

관련 문제