Jak korzystać z funkcji datevalue w vba (z przykładem)

Możesz użyć funkcji DateValue w VBA, aby zwrócić wartość daty z danego ciągu.

Oto typowy sposób wykorzystania tej funkcji w praktyce:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

To konkretne makro wyodrębni wartość daty z dat i godzin w zakresie A2:A7 i zwróci tę wartość daty w odpowiednim zakresie B2:B7 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak używać funkcji DateValue w VBA

Załóżmy, że w programie Excel mamy następującą kolumnę daty/godziny:

Załóżmy, że chcemy wyodrębnić datę z każdej daty i godziny w kolumnie A i wyświetlić ją w kolumnie B.

W tym celu możemy utworzyć następujące makro:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna B wyświetla wartość daty dla każdej daty i godziny w kolumnie A.

Na przykład:

• Funkcja DateValue zwraca 01.01.2023 z 01.01.2023 10:15:34
• Funkcja DateValue zwraca 01.03.2023 z 01.03.2023 12:34:18
• Funkcja DateValue zwraca 01.05.2023 z 01.05.2023 8:23:00

I tak dalej.

Uwaga : Pełną dokumentację funkcji DateValue w VBA można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: jak porównywać daty
VBA: Jak uzyskać nazwę miesiąca z daty
VBA: Liczba większa niż data