Oracle中十进制与十六进制转换程序

CREATE OR REPLACE PROCEDURE dec2hex (in_num IN NUMBER, out_hex OUT VARCHAR2) IS TYPE vc2tab_

CREATE OR REPLACE PROCEDURE dec2hex (in_num IN NUMBER, out_hex OUT VARCHAR2) IS TYPE vc2tab_ty

对于一般的整型数字，16进制与10进制 间的转化可以用CLNG（），HEX（）函数解决，但遇上天文数字，这些函数就无能为力了。下面是笔者写的几个函数，演示了天文数字计算中的一些技巧。 Dim la

Public Function D_To_B(ByVal Dec As Long) As String Do D_To_B = Dec Mod 2 & D_To_B

Public Function D_To_B(ByVal Dec As Long) As String Do D_To_B = Dec Mod 2 & D_To_B

-huitiansou '字符串转换成十六进制 Public Function StrToHex(ByVal strS As String) As String Dim abytS() As

-huitiansou '字符串转换成十六进制 Public Function StrToHex(ByVal strS As String) As String Dim abytS() As

1.日期转换函数 add_months(d,n) n 为月的倍数 :例如 d=20041116 add_months(to_date(d,'yyyymmdd',1) 结果

行列转换实例 表ttt有三个字段 seq--序列 jcxm --检查项目 zhi--值 数据分别如下： seqjcxm zhi -------

笔者单位使用的是Oracle 7.3数据库与HP－UNIX系统。由于Oracle数据格式与微机通用的格式不同，不能直接调用Oracle的数据，Oracle提供的前台开发工具Developer 20