VB 6.0 - Дата форматирования

Question

Я создал программу, и я стараюсь сделать ее намного более эффективной. В нем есть текстовые поля, требующие ввода от пользователя. Когда вся необходимая информация находится, отчет создается в другом многострочном текстовом поле. Очень важно, чтобы Дата, показанная в сгенерированном отчете, имеет этот формат «dd/MM/yy». Я уже использовал этот код ниже:

Dim a as String 
a = Format(Textbox1.text, "dd/MM/yy") 

Однако единственное, что делает это в том, что когда кто-то напечатает дату в этом формате «ДД-ММ-уу» он преобразует его в один, который я хочу. Но когда кто-то использует «.» (dd.MM.yy) или даже «» (dd MM yy), он не преобразует его. Есть ли способ, чтобы я мог извлечь персонажей из предполагаемой даты независимо от того, как это написано и преобразовать его в тот, который я хочу?

Answer 1

Щелкните правой кнопкой мыши на панели инструментов, выберите Components... и прокрутите вниз до Microsoft Windows Common Controls-2 6.0 (SP6) (или что-то подобное). Это добавит больше элементов управления в панель инструментов. Элемент управления, который вы хотите использовать, - это управление DTPicker.

Чтобы получить дату в требуемом формате, используйте

Dim a As String 
a = Format(DTPicker1.Value, "dd/MM/yy")