Это может или не может быть возможно, но у меня есть два текстовых поля (textBox20 и Textbox21 ... да, я скоро поменяю их имена), и после того, как я нажму кнопку, третье текстовое поле отображает разницу между обеими датами в формате дней , (Пока все хорошо.) Я хочу иметь возможность вставлять в базу данных или ... в другое текстовое поле и затем отправлять его в ту же базу данных, название дня, которое соответствует каждому из них (textbox20 и textbox21), например, если день: 20.02.2020, в базе данных должно быть указано: четверг, 20.02.2020 или четверг, 20 февраля 2020 года . Если я делаю это в том же окне, я не могу использовать функцию datediff, и это беспорядок ... Я хочу что-то простое перенести в базу данных, чтобы позже я мог найти его и позже отобразить в другом текстовом поле. ... (я делаю небольшую базу данных)
Private Sub TextBox20_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'check date format
With TextBox20
If IsDate(TextBox20.Text) Then 'Format as desired.
TextBox20.Text = Format(TextBox20.Text, "dd/mm/yyyy")
Else
TextBox20.Text = "" 'Clear the TextBox
MsgBox "Please use the following format: DD/MM/YYYY."
Cancel = True
Exit Sub
End If
End With
End Sub
Private Sub TextBox21_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'check date format
With TextBox21
If IsDate(TextBox21.Text) Then 'Format as desired.
TextBox21.Text = Format(TextBox21.Text, "dd/mm/yyyy")
Else
TextBox21.Text = "" 'Clear the TextBox
MsgBox "Please use the following format: DD/MM/YYYY."
Cancel = True
Exit Sub
End If
End With
End Sub
Private Sub cmdCal_Click()
TextBox22.Value = DateDiff("d", (TextBox20.Text), (TextBox21.Text))
End Sub