Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
18.11.2004. Izvlacenje meseca iz datuma
24.11.2004. datasheet i poslednji podatak
26.02.2005. SITUACIJA: "nextFrame" u zavisnosti od ..
02.04.2011. Problem sa Excelom...
28.12.2005. Kako da u formi imam tabelu tekuceg meseca
11.08.2006. [Excel] uporedjivanje
28.11.2006. automatsko izračunavanje
04.03.2007. VB.NET i Excel 2000 izvestaji problem
25.04.2007. Provera stanja tekuceg racuna i uplata na isti...

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

EXCEL-prvi i poslednji dan tekuceg meseca

[es] :: Office :: Excel :: EXCEL-prvi i poslednji dan tekuceg meseca

[ Pregleda: 1962 | Odgovora: 5 ] > FB > Twit

Autor

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*

+9 Profil

EXCEL-prvi i poslednji dan tekuceg meseca

^{26.05.2010. u 22:16 - pre 169 meseci}

Ovih dana mi bez pomoci foruma nista ne polazi za rukom. Nikako da "pogodim" makro za dodelu svojstva textbox-u (dtpicker-u) za:
1. prvi dan tekuceg meseca, tekuce godine (za ovaj mesec je - 01.05.2010)
2. poslednji dan tekuce meseca, tekuce godine ( - 31.05.2010)
U clipperu to izgleda ovako : ctod( '01.'+month(date())+'.'+year(date()) ). Hvala unapred

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: EXCEL-prvi i poslednji dan tekuceg meseca

^{26.05.2010. u 22:49 - pre 169 meseci}

evo ti kod koji bi to resio

dan = 1
mesec = Month(Now)
godina = Year(Now)
a = DateSerial(godina, mesec, dan)
a = FormatDateTime(a, vbShortDate)
DTP1.Value = a

dan = 1
mesec = Month(Now)
godina = Year(Now)
Select Case mesec
Case 1, 3, 5, 7, 8, 10, 12
dan = 31
Case 4, 6, 9, 11
dan = 30
Case 2
If godina Mod 4 = 0 Then
dan = 29
Else
dan = 28
End If
End Select

b = DateSerial(godina, mesec, dan)
b = FormatDateTime(b, vbShortDate)
DTP2.Value = b

samo prepravi DTP1 i DTP2 onako kako su kod tebe definisani i trebalo bi da radi
pozzz

[email protected]=

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*

+9 Profil

Re: EXCEL-prvi i poslednji dan tekuceg meseca

^{26.05.2010. u 23:15 - pre 169 meseci}

Prilagodjeno i - radi, bas kako treba. Hvala. Ja sam ocekivao da postoji neki "predefinisan" format za ovo,nesto kao sto sam naveo za clipper. Mozda i postoji, ali i ovo je o.k. Stavio sam macro u "Activate" forme i funkcionise. Pozdrav.

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: EXCEL-prvi i poslednji dan tekuceg meseca

^{27.05.2010. u 00:37 - pre 169 meseci}

mozda postoji, ali ja sam ga resio na ovaj nacin, ma vazno da radi :P

[email protected]=

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.170.*

Sajt: www.gowi.rs

+109 Profil

Re: EXCEL-prvi i poslednji dan tekuceg meseca

^{27.05.2010. u 08:33 - pre 169 meseci}

Ovo što je FOX napvravio i jeste vrlo slično kliperskom kodu koji si naveo, samo je napisano u više redova (i nekom je možda je preglednije ?). Za početni dan tekućeg meseca može se svesti na:

Code:
Me.DT1.Value = DateSerial(Year(Date), Month(Date), 1)

Za poslednji dan tekuce meseca, umesto Case strukture, lakše je da uzmeš početni datum sledećeg meseca i od njega oduzmeš jedan.

Code:
Me.DT2.Value = DateSerial(Year(Date), Month(Date) + 1, 1) - 1

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi