已知年份如何得出该年的第一天和最后一天？已知月份，如何得出该月份的第一天和最后一天！ (50分)

J

jmsczb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #1

1、已知年份如何得出该年的第一天和最后一天
2、已知月份，如何得出该月份的第一天和最后一天！
3、trunc(strtodate('12/31/'+year)- strtodate('01/01/'+year))//得天数差
，year为整形，
我现在要在中文和英文2个系统下都可以用的。比如中文"2001-01-01"可以，
但英文却不可以要变成"01/01/2001",靠，我不知道该怎么能在两个系统下都
可以用的格式？

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #2

what??

 

Z

ZZHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #3

用EncodeDate完成：
Year已知：
该年的第一天：EncodeDate(Year,1,1);最后一天:EncodeDate(Year+1,1,1)-1
Month已知:
该月份的第一天EncodeDate(Year,Month,1);
最后一天Last:
Year:=Year+((Month+1) div 12);
Month:=(Month+1) mod 12;
Last:=EncodeDate(Year,Month,1)-1;

 

2

203010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #4

1999年的第一天EncodeDate(1999, 1, 1)
1999年的最后一天EncodeDate(2000, 1, 1) - 1
1999年5月的第一天EncodeDate(1999, 5, 1)
1999年5月的最后一天EncodeDate(1999, 6, 1) - 1

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #5

这种时间函数或者控件一大把！

 

Z

ZZHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #6

更正：
Month:=Month+(Month+1) mod 12;

 

J

jmsczb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #7

请各位帮忙！谢谢了

 

J

jmsczb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #8

[blue][b4]3、trunc(strtodate('12/31/'+year)- strtodate('01/01/'+year))
//得天数差，year为整形，
我现在要在中文和英文2个系统下都可以用的。比如中文"2001-01-01"可以，
但英文却不可以要变成"01/01/2001",靠，我不知道该怎么能在两个系统下都
可以用的格式？
[/b4] ][/blue]
谢谢各位

 

Z

ZZHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #9

FormatDateTime

 

J

jmsczb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #10

谢谢