VBA - Složenije datumske funkcije

Kada budete razvijali Office aplikacije, pogotovo vezane za Access i Excel, sigurno će vam zatrebati funkcije za rad sa datumima. Pored ugrađenih datumskih funkcija, a na osnovu njih, možemo izgraditi mnoštvo nama prilagođenih procedura i funkcija za rad sa datumima. Kao primer onog što možete napraviti od postojećih funkcija, predstavićemo vam nekoliko izvedenih funkcija koje će vam pomoći u radu, i možda vam dati ideju za neke složenije procedure.

U prvoj funkciji ćemo videti kako možemo dobiti, recimo datum prvog dana u mesecu u odnosu na tekući ili ulazni datum:

Function PrviUMesecu(UlazniDatum As Date)
Dim D As Integer, M As Integer, G As Integer

    If IsNull(UlazniDatum) Then
        PrviUMesecu = Null
    Else
        D = Day(UlazniDatum)
        M = Month(UlazniDatum)
        G = Year(UlazniDatum)
        PrviUMesecu = DateSerial(G, M, 1)
    End If
End Function

Sledeća funkcija vraća poslednji datum u mesecu, u odnosu na ulazni datum:

Function PoslednjiUMesecu(UlazniDatum As Date)
Dim D As Integer, M As Integer, G As Integer

    If IsNull(UlazniDatum) Then
        PoslednjiUMesecu = Null
    Else
        D = Day(UlazniDatum)
        M = Month(UlazniDatum)
        G = Year(UlazniDatum)
        'pronalazimo pocetni datum sledeceg meseca,
        'a onda vracamo jedan dan
        PoslednjiUMesecu = DateAdd("m", 1, DateSerial(G, M, 1)) - 1
    End If
End Function

A evo kako može da izgleda funkcija koja vraća isti dan u sledećem mesecu (odnosno prethodnom), u odnosu na tekući (ulazni datum):

Function SledeciMesec(UlazniDatum As Date)
    SledeciMesec = DateAdd("m", 1, UlazniDatum)
End Function

Function PrethodniMesec(UlazniDatum As Date)
   PrethodniMesec = DateAdd("m", -1, UlazniDatum)
End Function