小问题，，，，要分请进来！！(100分)

D

delphi-fans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #1

问题1：
请问如何把日期（2002年3月23日）变为（2002.3）。
问题2：
请问如何算出1996年10月2日到2002年3月23日间隔多少年，是直接减去吗？

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #2

formatdatatime(yy-mm,youdate)
(1996年10月2日-2002年3月23日)/365

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #3

日期行其实算是浮点的吧，所以可以直接-，那楼上的好象减反了吧
http://www.delphibbs.com/delphibbs/dispq.asp?lid=987611

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #4

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
S := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM', Now + 0.125);
showmessage(s);
end;

 

Z

zohzjf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #5

formatdatatime('yyyy"."mm',youdate);
round((youdate1-youdate2)/365)

 

火

火龙真人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #6

如果有SQL SERVER就更方便了
直接就有这类函数返回两个时间的间隔可选时分秒
都行

 

J

jxlber

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #7

showmessage(copy('2002年3月23日',1,4) +'.'+copy('2002年3月23日',7,1))

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #8

把楼上的写成一个函数,在程序中就可以随意调用了.
http://www.delphibbs.com/delphibbs/dispq.asp?lid=408962日期相减.

 

孤

孤雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #9

该接受答案了吧
formatdatetime('yyyy"."mm',youdate);
上面的一位朋友写成formatdatatime('yyyy"."mm',youdate);

 

D

delphi-fans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #10

第一个问题：
我是在dbedit控件里输入入厂时间的，请问要怎样按固定的格式(如：2002.3)输入。
第二个问题：
这是个算工龄的程式
用当前的时间减去一个月再减去入厂的时间
大家看我写得是否可行
table1gn.Value := (date()-30-table1tgsj.Value)/365

 

A

akaiwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #11

对于第一个问题：你可以选中在DatSet控件中的相关字段，然后有EditFormat或EditMask
属性，自己设置一下就行了
第二个问题：我觉得应该可行，你自己试试应该就可以看到结果的啊！

 

D

delphi-fans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #12

楼上的：
第二个问题会报错：
[Error] gz_yg.pas(100): Incompatible types: 'Integer' and 'Extended'

 

D

delphi-fans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #13

多人接受答案了。