Datum iz teksta?

Datum iz teksta? 19.02.2010. u 11:31 · pre 203 meseca #1

Znam da je problem malo nenormalan, ali molim za pomoć.

Uz poruku je nestruktuirana, ili kako bih je već nazvao, tabela u kojoj se nalazi samo tekst.

Sedmi red uvek glasi kao fraza "Razduzenje za dd.mm.yy",
Meni bi trebalo da datum iz tog stringa nekako uporedim sa današnjim datumom, odnosno napravim potrebni IF izraz za dalje događaje u aplikaciji...

Da pojasnim, tabela iz primera se kreira u nekom starom Clipper programu. Moj je zadatak da njen sadržaj kao izveštaj pošaljem na određeni e-mail, što nije bilo teško, linkovanjem DBF tabele i kreiranjem odgovarajućeg Reporta u Accessu. Ali, sad mi nedostaje provera pre slanja, da li je izveštaj kreiran za pravi datum, jer se u praksi dešava da korisnik zaboravi da odradi sve potrebne korake, pa pošalje mail sa jučerašnjim datumom i sl...

Txt_01.zip7.25k

Re: Datum iz teksta? 19.02.2010. u 11:37 · pre 203 meseca #2

Ako ti je taj string uvek isti, onda izvadi datum iz njega sa MID() i sa DiffDate ga uporedi sa danasnjim...

Potpis

Sedam sutlijasa,
za sedam samuraja,
za sedam tramvaja.

Re: Datum iz teksta? 19.02.2010. u 11:49 · pre 203 meseca #3

String jeste uvek isti, što se tiče broja karaktera, ali se datum nalazi u sedmom redu tabele koja nema PK i tako to...
Vidi primer, pošto je teško rečima objasniti situaciju :)

Re: Datum iz teksta? 19.02.2010. u 12:15 · pre 203 meseca #4

Onda uz pomoc recordseta...ovako...

Code:

    Dim qdf As QueryDef
    Dim rst As Recordset
    Dim dbs As Database
    Dim asd As String

    Set dbs = CurrentDb
    Set qdf = dbs.CreateQueryDef("tmpQ", "SELECT * FROM TXT_01")
    Set qdf = dbs.QueryDefs("tmpQ")
    Set rst = qdf.OpenRecordset(dbOpenDynaset)

    rst.MoveFirst
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    asd = rst!TEKST
    Debug.Print asd

    dbs.QueryDefs.Delete "tmpQ"

I dobijas taj string...

Samo, umesto onih 50 MoveNext, trebalo bi da stavis nekakvu petlju koja ce ga pomeriti neki broj puta...

Potpis

Sedam sutlijasa,
za sedam samuraja,
za sedam tramvaja.

Re: Datum iz teksta? 19.02.2010. u 14:33 · pre 203 meseca #5

Evo probajte i ovo resenje...

Potpis

http://zoraneremija.wix.com/eremijacv

Txt_01 ZE.zip12.91k

Re: Datum iz teksta? 19.02.2010. u 15:00 · pre 203 meseca #6

Nisam stigao da probam rešenje koje je dao 3way, jer mi je trenutno pri ruci samo mde verzija aplikacije, ali ono što je poslao Zoran.Eremija radi, i baš mi se sviđa :) Jednostavno je i efikasno.
Samo sam promenio format datuma zbog različitih regionalnih settingsa, i sve fercera.

Hvala Vam puno obojici!

Forum kao aplikacija na telefonu

Srodne teme