🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.bazy-danych.msaccess
Article #137114

format daty z kodu kreskowego

#137114
From: Phantom
Date: Sun, 13 Mar 2016 18:08
34 lines
2423 bytes
Witam
dotyczy MsAccess2000-2003

Mam liczbę:
10000210000100000108021610000000004
na podstawie której tworzę kod kreskowy.
od liczby nr 19 do 24 - to liczba: 080216 która jest odpowiednikiem daty: 08 luty 2016.
Stosuję poniższy kod do wyciągnięcia liczby z "liczby długiej:
-------------------------------------------------
Function IDDDodZKodu(ss) As Long
On Error GoTo err_
Dim zz As Long, s2 As String

IDDDodZKodu = 0
If Len(Nz(ss, "")) <> 35 Then Exit Function

s2 = Mid(ss, 19, 6)
zz = CLng(Mid(s2, 1, 6))

IDDDodZKodu = zz

Exit Function
err_:
MsgBox "Blad w IDDDodZKodu. " & Err.Description
End Function
-------------------------------------------------
Funkcja działa dobrze i uzyskuję po jej zastosowaniu liczbę:
080216
Moim problemem jest zamiana tej liczby na datę:
długą lub krótką - 08 luty 2016 r. lub każdą inną którą można zastosować w zapytaniach.

Proszę o pomoc
Pozdrawiam
Tomek
Technical Details
Message-ID: <92bcb11b-498b-470e-bcd4-535042d6d2b3@googlegroups.com>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!wsisiz.edu.pl!plix.pl!newsfeed2.plix.pl!news.nask.pl!news.nask.org.pl!newsfeed.pionier.net.pl!feeder.erje.net!2.us.feeder.erje.net!weretis.net!feeder6.news.weretis.net!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!peer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!y89no7192112qge.0!news-out.google.com!k1ni17537igd.0!nntp.google.com!nt3no1368814igb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers
Complete Article Headers
X-Received: by 10.140.154.1 with SMTP id a1mr15492597qha.14.1457892507427;        Sun, 13 Mar 2016 11:08:27 -0700 (PDT)
X-Received: by 10.50.98.70 with SMTP id eg6mr216085igb.4.1457892507382; Sun, 13 Mar 2016 11:08:27 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!wsisiz.edu.pl!plix.pl!newsfeed2.plix.pl!news.nask.pl!news.nask.org.pl!newsfeed.pionier.net.pl!feeder.erje.net!2.us.feeder.erje.net!weretis.net!feeder6.news.weretis.net!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!peer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!y89no7192112qge.0!news-out.google.com!k1ni17537igd.0!nntp.google.com!nt3no1368814igb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sun, 13 Mar 2016 11:08:26 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=91.218.208.245; posting-account=ktj0zQoAAADJqs80HwZLH7C5CXWNQqRK
NNTP-Posting-Host: 91.218.208.245
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <92bcb11b-498b-470e-bcd4-535042d6d2b3@googlegroups.com>
Subject: format daty z kodu kreskowego
From: Phantom <biuro.tekaoprogramowanie@gmail.com>
Injection-Date: Sun, 13 Mar 2016 18:08:27 +0000
X-Received-Bytes: 2034
X-Received-Body-CRC: 660861801
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit