Kako napravit format za zadano polje!

Odgovori Nova tema

2 odgovora
3.643 pregleda

Kako napravit format za zadano polje! 24.01.2005. u 18:02 · pre 265 meseci #1

Imam jedno pitanje kako napravit ovakav format.
Imam jedno polje u bazi tipa text s 4 karaktera.Koristim ga kod obračuna plaća za broj radnih sati.
Problem je u sljedećem.Napravio sam proceduru da mi odredi broj radnih sati za mjesec i upiše u to polje ali obrazac me traži točno zadani kriterij.
Procedura mi za 2 mjesec vraća broj 160(toliko ima sati)i to upiše u polje.
Recimo ako taj mjesec ima 160 sati u to polje treba biti upisano 1600 a ako se recimo isplaćuje plaća za pola mjeseca 80 sati onda u polju treba biti 0800.
Kako da napravim zadani format za to polje!
Dali pomoću naredbe «format»???
Please help!
Romano!

Potpis

romano

Re: Kako napravit format za zadano polje! 25.01.2005. u 18:52 · pre 264 meseca #2

Probaj funkciju slicnu ovoj:

Code:

Function FormatPolje( intSati as integer) as string
'Namena: konvertuje 2/3 cifreni broj u 4 cifreni string,
'sa nulama na pocetku i kraju, kako vec treba
dim strOutput as String

'Dodajemo nulu na kraj, 160 postaje 1600, 80 postaje 800
strOutput = Cstr(intSati) & "0"

'Da bi 800 postalo 0800 treba dodati nulu napred.
'Za 1600 ne treba dodati nista. Stoga:
IF LEN(strOutput)<4 THEN
strOutput="0" & strOutput
ENDIF

FormatPolje=strOutput

end function

:-)

Re: Kako napravit format za zadano polje! 25.01.2005. u 22:54 · pre 264 meseca #3

Duz = Len(Format$(BrSati))
Duz = 4 - Duz
For I = 1 To Duz
Nule = Nule & "0"
Next I
Broj = Nule & Format$(BrSati)

Potpis

zxz

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme