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

Możesz użyć funkcji DateSerial w VBA, aby zwrócić datę dla określonego dnia, miesiąca i roku.

Oto typowy sposób wykorzystania tej funkcji w praktyce:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

To konkretne makro zwróci wartości dat z zakresu D2:D13 przy użyciu wartości lat w kolumnie C, wartości miesięcy w kolumnie B i wartości dni w kolumnie A.

Poniższy przykład pokazuje jak w praktyce wykorzystać funkcję DateSerial .

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

Załóżmy, że mamy w Excelu następujące kolumny, które wyświetlają dzień, miesiąc i rok dla różnych dat:

Załóżmy, że chcemy wyświetlić wartości dat w kolumnie D, używając wartości dnia, miesiąca i roku w każdym wierszu.

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

Kolumna D wyświetla wartość daty wynikającą z wykorzystania wartości dnia, miesiąca i roku odpowiednio z kolumn A, B i C.

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

Dodatkowe zasoby

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

Jak porównać daty w VBA
Jak przekonwertować datę na numer tygodnia w VBA
Jak obliczyć dni między dwiema datami w VBA