format daty z kodu kreskowego

Thread View: pl.comp.bazy-danych.msaccess

5 messages

[T] Back to Threads [V] Tree View [G] Group Articles

5 total messages Started by Phantom Sun, 13 Mar 2016 18:08

#137114

Author: 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

Re: format daty z kodu kreskowego

#137115

Author: MaciejF
Date: Mon, 14 Mar 2016 09:07

9 lines
1486 bytes

Może tak:

datDataZK = CDate("20" & Mid(zz, 5, 2) & "-" & Mid(zz,3,2) & "-" & Left(zz,2))


Trochę prostacko ale uzyskujesz swój format.

/
MaciejF

Re: format daty z kodu kreskowego

#137116

Author: MaciejF
Date: Mon, 14 Mar 2016 09:15

10 lines
1482 bytes

Jeszcze jedno,
Proponuję jednak nie konwertować ciągu tekstowego s2 na liczbę.
Niech będzie zz = Mid(s2, 1, 6)

080206 z pewnością nie jest liczbą i tu może być problem.

Pozdrawiam
/
MaciejF

Re: format daty z kodu kreskowego

#137117

Author: MaciejF
Date: Mon, 14 Mar 2016 10:22

4 lines
1391 bytes

Możesz użyć bezpośrednio s2
datDataZK = CDate("20" & Mid(s2, 5, 2) & "-" & Mid(s2,3,2) & "-" & Left(s2,2))

MF

Re: format daty z kodu kreskowego

#137118

Author: Phantom
Date: Mon, 14 Mar 2016 14:55

1 lines
1393 bytes

Działa - dzięki wielkie!

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads