首页 > 代码 > 常规代码 > 正文

代码

阅读排行

为整数添加千分位符号函数
2014-01-20 17:08:34   来源:Fcode研讨团队   评论:0 点击:

本函数可为整数输出时添加千分位逗号,例如 2338021 输出为 +2,338,021。非常实用与与金钱相关的地方。^_^

主程序中可直接使用,或以字符串变量接收返回值

Program www_fcode_cn
   Implicit None
   character(len=30)::AddComma2Integer
   write(*,*) AddComma2Integer( 2338021 )
   !// 输出为  +2,338,021
End Program www_fcode_cn  
!============================================================================
 !  为整数添加千分位符号
 !  Num    整数
 !****************************************************************************
function AddComma2Integer( Num )
integer,parameter :: len = 30  !int(8)最大20+6字节
character(len) AddComma2Integer, temp
integer,intent(in) :: Num
integer i, j, k, m, n

 temp=''
AddComma2Integer=''
write(temp,'(spi)') Num  !输出数据添加'+'
temp = adjustl(temp)   !左对齐
m = len_trim(temp)     !字符长度
n = ( m - 2 ) / 3  !千分位符号数量
i = m - 3 * n      !第一个千分位符号之前的字符数量
j = i + 1
k = j
 AddComma2Integer(1:i) = temp(1:i)  !第一个千分位符号之前的字符
do i = 1, n
     AddComma2Integer(j:j+3) = ','//temp(k:k+2)
     j = j + 4
     k = k + 3
end do
 end function

相关热词搜索:整数 千分位

上一篇:公历转农历日期模块
下一篇:文件夹内循环读取文件[仅适用于VF编译器]

分享到: 收藏