使用VBA更改日期格式

Question

我想用VBA更改单元格的日期格式，但我对此一无所知。让我们以下面的示例为例，A列是输入，B列是输出，因为它必须在Thai Calendar中。

我的目标是将工作表Sheet1的A列中的值提取到许多具有转换后的日期的工作表中。

Answer 1

在这里，您可以将数据从单元格“ A1”复制到“ B1”并将日期类型转换为泰文。

Dim mydate As Date 'create date variable

    mydate = Range("A1").Value 'copy date value from Cell A1
    Range("B1").Value = mydate 'paste date value into cell B1
    Range("B1").NumberFormat = "[$-th-TH,107]d mmmm yyyy;@" 'convert copied format to Thai

希望这能回答您的问题。

Answer 2

对不起，我的评论很少。 日期更改不是代码问题。 从西方日期更改为buddate到西方日期增加了543年 作为Excel使用日期的数字。 1等于1900-01-01 2等于1900-01-02 43752等于2019-10-14

您需要在西方日期加上543年 放在b1单元格上。

= A1 * 1 + 543 * 365 +舍入（543 / 4,0）

提醒leap年每隔4年出现一次，以便您可以调整+ rounddowns（）部分以更正日期