Access97,VBA-Datum

Pomoč pri izdelavi makrov
Odgovori
a12
Prispevkov: 8
Pridružen: Sr Okt 12, 2005 5:57 pm

Access97,VBA-Datum

Odgovor Napisal/-a a12 »

Pozdravljeni !
Kako naj rešim oz. ugotovim kateri datum je zadnji v mesecu.Npr.:

Dim Xdatum as date
Xdatum=format(Date,"mmmm")

Xdatum mi pove da je npr Marec, sedaj bi pa rad ugotovil zadnji datum tega meseca, ki naj bi bil 31.03.2006,
ali pa če je datum npr. 15.04.2006 je Xdatum=April in bi rad dobil da je zadnji dan 30.04.2006 itd.

lp in upam da se bo našla rešitev !
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

Pozdravljen a12

Če sem prav razumel:

Koda: Izberi vse

Sub Zadnji_dan()
'
  Dim danasnji_datum, mesec, danasnji_mesec As Date
    danasnji_datum = Date
    mesec = Format(Date, "m")
    danasnji_mesec = Format(Date, "m")

    MsgBox "Danasnji datum je: " & danasnji_datum
    
    Do Until mesec <> danasnji_mesec
     mesec = Format(danasnji_datum, "m")
     danasnji_datum = danasnji_datum + 1
    Loop
    
    MsgBox "Zadnji datum tega meseca je: " & danasnji_datum - 2

End Sub
Lp
Odgovori