Excel中的日期转换为Julian日期

时间:2018-03-05 15:40:30

标签: excel excel-vba vba

所以,我试图将一列日期从excel的mm / dd / yyyy转换为Julian格式(只是1到365/366之间的数字),我在下面发布的代码赢了'工作。 然后我尝试将其作为一个函数,仅用于满足"编译错误:预期:结束语句。任何帮助将不胜感激。

=TEXT(A2,"yy")&TEXT((A2-DATEVALUE("1/1/"&TEXT(A2,"yy"))+1),"000")

目的是让这个可以在很长一段时间内在多个电子表格中重现,这就是我尝试将其编码为函数的原因。

为了清晰起见编辑:

Function Julian Transform=TEXT(A2,"yy")&TEXT((A2-DATEVALUE("1/1/"&TEXT(A2,"yy"))+1),"000") End Function 

1 个答案:

答案 0 :(得分:2)

使用

=A2-DATE(YEAR(A2),1,0)

获取一年中的。顺便说一句,这不是朱利安的日期。那是不同的。见https://en.wikipedia.org/wiki/Julian_day