尼泊尔日期到英语日期：减去 - 56年 - 8个月 - 16天

Question

英语日期到尼泊尔日期：添加 - 56年 - 8个月 - 16天 尼泊尔语日期到英语日期：减去 - 56年 - 8个月 - 16天vb6.0

我想减去日期并添加日期以将日期从英语转换为尼泊尔语和尼泊尔语到英语我使用以下代码，但它只转换年份，因为它是最后一行。

Private Sub Command1_Click()

Text1.Text = Date
Text2.Text = DateAdd("d", 16, Text1.Text)
Text2.Text = DateAdd("m", 8, Text1.Text)
Text2.Text = DateAdd("yyyy", 56, Text1.Text)

End Sub 

Answer 1

正如您所说I want to subtract ...：

Private Sub Command1_Click()
    Text1.Text = Date
    Text2.Text = DateAdd("d", -16, Text1.Text)
    Text2.Text = DateAdd("m", -8, Text2.Text)
    Text2.Text = DateAdd("yyyy", -56, Text2.Text)
End Sub