oracle日期类型如何查询,oracle日期类型数据查询解决例子_oracle

create table worklog_A(

man_bar            CHAR(8) NOT NULL,

man_name           VARCHAR2(22) NOT NULL,

man_dep            VARCHAR2(40) NOT NULL,

log_time           Date NOT NULL

status             VARCHAR2(40)

);

CREATE unique INDEX worklog_A_INDEX

ON workman(man_bar,man_name);

comment on table worklog_A is

'登到日记表';

sql:='select man_bar as "考勤条码",man_name as "姓名",log_time as "登记时间",status as "状态",man_dep as "所属部门" ';

sql:=sql+' from worklog_A where man_bar='+''''+s11+''''

+' and (to_char(trunc(log_time,'+'''dd'''+')'+','+'''yyyy-mm-dd'''+') between '

+ ''''+GetDateStr(dat1.Date)+''''+' and '+''''+GetDateStr(dat2.Date)+'''' ;

sql:=sql+') order by log_time desc';

RunSQL(ADO_pall,sql,0);

function Tfrmain.GetDateStr(dat: TdateTime): string;

var

Year, Month, Day:Word;

begin

DecodeDate(dat,Year,Month,Day);

if(month>=10) then

result:= IntToStr(Year) + '-'+IntToStr(Month)

else

result:= IntToStr(Year)+ '-' +'0'+ IntToStr(Month) ;

if(day>=10) then

result:=result+ '-'+IntToStr(Day)

else

result:=result+ '-'+'0'+IntToStr(Day);

end;

sql1:='insert into worklog_A values(';

sql1:=sql1+''''+s1+''''+','+''''+s2+''''+','+''''+s3+''''+',';

sql1:=sql1+'sysdate'+','+''''+KK+''''+')';

RunSQL(ADO_kqlog,sql1,1);

StatusBar1.SimpleText:='今天总计：'+inttostr(ADO_tm.RecordCount+1)+'  考勤' ;

欢迎大家阅读《oracle日期类型数据查询解决例子_oracle》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码

微信 赏一包辣条吧~

支付宝 赏一听可乐吧~