自定义函数 JSA_A_FORMATDATETIME 格式化日期时间

function JSA_A_FORMATDATETIME(date,format_text){

//函数定义地点：JSA中。

//函数使用地点：A(工作表中、JSA代码中)。

//函数说明：将日期时间转换为按指定日期时间格式表示的字符串。

//参数说明：date：可以是表示日期时间的字符串、自世界时1970-01-01 00:00:00(即中国时1970-01-01 08:00:00)以来的毫秒数、单元格、Date对象。Format_text：为“单元格格式”对话框中“数字”选项卡上“分类”框中的文本形式的日期时间格式。增加了季度格式代码q，返回几季度(1-4)。

var d = new Date(date);

var quarter = Math.floor((d.getMonth() + 3) / 3);

var format_text_2 = format_text.replace(/q+/g,quarter);

var str = WorksheetFunction.Text(d.toLocaleString(),format_text_2);

return str;

}

插入函数对话框、函数参数对话框：

加载宏文件function Workbook_Open(){}中添加以下代码。

Application.MacroOptions("JSA_A_FORMATDATETIME","将日期时间转换为按指定日期时间格式表示的字符串。\n函数定义地点：JSA中。\n函数使用地点：A(工作表中、JSA代码中)。",undefined,undefined,undefined,undefined,14,undefined,undefined,undefined,['可以是表示日期时间的字符串、自世界时1970-01-01 00:00:00(即中国时1970-01-01 08:00:00)以来的毫秒数、单元格、Date对象。','为“单元格格式”对话框中“数字”选项卡上“分类”框中的文本形式的日期时间格式。增加了季度格式代码q，返回几季度(1-4)。']);