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 !
Access97,VBA-Datum
Pozdravljen a12
Če sem prav razumel:
Lp
Č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