小白理财还没有，有几家在做上市前的准备工作。2011年江苏高科石化上市未果，主要原因还是：润滑油企业对基础油的依赖性较大，而他们对基础油的控制能力又较弱，这是他们的软肋，他们又很难克服，就很难提高市场的核心竞争能力。
excel内置函数是无法完美实现的，至少闰月的情况会有问题。
只能考虑用VBA编程的方式，自定义一个函数。
图一：效果展示图：
效果展示图
图二：步骤示意思图：
步骤示意图
图三：完整代码图：
步骤：
1、如果文件是xlsx格式，须另存为 xlsm格式 即启用宏的工作簿。
2、按Alt+F11打开代码编辑器，
3、点“插入”–“模块”，
4、在左侧栏中双击模块，
5、在右侧的编辑区中粘贴代码，
6、检查代码是否报错变红，
7、关闭代码编辑器。
重要说明：
说明1、从这里复制的代码，行与行之间会被百度额外插入空白行，如果导致代码报错变红，你就把行与行之间的空白行删掉即可。
说明2、此代码也不是万能的，它有日期范围的限制，只能转化 1921年的正月初一 至 2100年的腊月三十 这个范围，对应的公历范围是 1921/2/8 至 2100/2/8
说明3、在表格中使用公式时，可以直接在公式中写明一个日期，也可以引用某单元格中的日期。
例1，转化具体的日期：
=iNlStr(DATE(2020,8,18))
例2，永远转化今天当天的日期：
=iNlStr(TODAY())
例3，从单元格引用日期进行转化：
=iNlStr(A1)
代码如下，供君复制：
Option Explicit
Public tf As Boolean ‘
Public sZhouJ As Variant ‘星期数组
Public sTiGan As Variant ‘十个天干数组
Public sDiZhi As Variant ‘十二地支数组
Public sSXiao As Variant ‘十二生肖数组
Public sNlMon As Variant ‘农历月份数组
Public sNlDay As Variant ‘农历日份数组
Public sNlShu As Variant ‘农历数据数组
Sub 加载数组们()
sZhouJ = Split(“/一/二/三/四/五/六/日”, “/”) ‘星期数组
sTiGan = Split(“甲/乙/丙/丁/戊/己/庚/辛/壬/癸”, “/”) ‘天干数组
sDiZhi = Split(“子/丑/寅/卯/辰/巳/午/未/申/酉/戌/亥”, “/”) ‘地支数组
sSXiao = Split(“鼠/牛/虎/兔/龙/蛇/马/羊/猴/鸡/狗/猪”, “/”) ‘生肖数组
sNlMon = Split(“/正月/二月/三月/四月/五月/六月/七月/八月/九月/十月/冬月/腊月”, “/”) ‘月份数组
sNlDay = Split( _
“/初一/初二/初三/初四/初五/初六/初七/初八/初九/初十” _
& “/十一/十二/十三/十四/十五/十六/十七/十八/十九/二十” _
& “/廿一/廿二/廿三/廿四/廿五/廿六/廿七/廿八/廿九/三十”, “/”) ‘日份数组
sNlShu = Split( _
“002635/333387/001701/001748/267701/000694/002391/133423/001175/396438/” & _
“003402/003749/331177/001453/000694/201326/002350/465197/003221/003402/” & _
“400202/002901/001386/267611/000605/002349/137515/002709/464533/001738/” & _
“002901/330421/001242/002651/199255/001323/529706/003733/001706/398762/” & _
“002741/001206/267438/002647/001318/204070/003477/461653/001386/002413/” & _
“330077/001197/002637/268877/003365/531109/002900/002922/398042/002395/” & _
“001179/267415/002635/661067/001701/001748/398772/002742/002391/330031/” & _
“001175/001611/200010/003749/527717/001452/002742/332397/002350/003222/” & _
“268949/003402/003493/133973/001386/464219/000605/002349/334123/002709/” & _
“002890/267946/002773/592565/001210/002651/395863/001323/002707/265877/” & _
“001706/002773/133557/001206/397998/002638/003366/335142/003411/001450/” & _
“200042/002413/723293/001197/002637/399947/003365/003410/334676/002906/” & _
“001389/133467/001179/464023/002635/002725/333477/001746/002778/199350/” & _
“002359/526639/001175/001611/396618/003749/001714/267628/002734/002350/” & _
“203054/003222/465557/003402/003493/330581/001386/002669/264797/001325/” & _
“529707/002709/002890/399018/002773/001370/267450/002651/001323/202023/” & _
“001683/462419/001706/002773/330165/001206/002647/264782/003366/531750/” & _
“003410/003498/396650/001389/001198/267421/002637/003349/138021”, “/”) ‘农历数据
tf = True ‘打标记,数组已加载
End Sub
Function iNlStr(iDate As Date) As String ‘公历转农历
If Not tf Then Call 加载数组们
Dim i%, t&, k%, m%, n%, ext%, bit&
‘计算从1921-2-8(即1921年的正月初一)至目标日期的总天数
t = iDate – #2/8/1921# + 1
‘计算农历年月日的数值
Do
If Val(sNlShu(m))
n = k
Do
‘获取sNlShu(m)的第n个二进制位的值
bit = Val(sNlShu(m))
For i = 1 To n
bit = bit \ 2
Next
bit = bit Mod 2
‘计算农历天的数值
If t <= 29 + bit Then
ext = 1
Exit Do
End If
t = t – 29 – bit
n = n – 1
Loop Until n
If ext Then Exit Do
m = m + 1
Loop Until False
‘计算农历叁个数值
Dim cy%, cm%, cd%
cy = 1921 + m ‘农历年的数值
cm = k – n + 1 ‘农历月的数值
cd = t ‘农历日的数值
If k = 12 Then
Select CaseVal(sNlShu(m)) \ 65536 + 1 ‘修正cm的数值
Case Is = cm
cm = 1 – cm
Case Is
cm = cm – 1
End Select
End If
‘计算汉化文本
Dim ar(1 To 5) As String
m = ((cy – 4) Mod 60) Mod 10 ‘天干索引值
n = ((cy – 4) Mod 60) Mod 12 ‘地支和生肖索引值
If cm
ar(1) = ar(1) & sNlMon(Abs(cm)) ‘农历月份
ar(2) = sNlDay(cd) ‘农历日份
ar(3) = sTiGan(m) & sDiZhi(n) ‘农历干支
ar(4) = sSXiao(n) ‘农历生肖
ar(5) = sZhouJ(Weekday(iDate, 2)) ‘星期汉字
‘搭配输出结果(提示:数组ar(1 to 5)共5个元素，可根据需要自由搭配输出结果)
iNlStr = ar(3) & “年 生肖” & ar(4) & ” ” & ar(1) & ar(2) & ” 周” & ar(5) ‘输出结果
End Function
以上就是关于国内民营润滑油企业哪几家上市了全部的内容，包括:国内民营润滑油企业哪几家上市了、EXCEL公历转农历公式、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！