Непальский Дата: Субтитр - 56 Лет - 8 Месяцев - 16 Дней

Question

English Дата до Непала Дата: Добавить - 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