Lot sayısı nasıl bulunur ?

[mrt]

Selamlar;

Lot sayısına denk gelen tarihi veya tarih girdiğimde hangi lot olduğunu nasıl bulabilirim ?

Örnek

Lot ( x= yıl xxx = yılın gün sayısı 6; 2006 091; 91. gün 1 nisan )

Lot Tarih
6091 01.04.2006

7239 27.08.2007

Tarih Lot
30.09.2007 7273

20.03.2007 7079

 

[Mahmut Kök]

Sub Tarih_lot1()
'LOT kavramı hakkında herhangi bir bilgim olmadığını belirtmek isterim.
'Bir kusurum varsa kusuruma bakmayın.
t2 = InputBox("TAM TARİH YAZINIZ.", "tarihi 01.04.2007 şeklinde giriniz.")
t1 = Strings.Right(t2, 4)
tt = "01.01." & t1
lot1 = Application.WorksheetFunction.Days360(CDate(tt), CDate(t2))
MsgBox lot1

End Sub



Sub Lot_Tarih()
t2 = InputBox("LOT GİRİNİZ", "Lotu 6091 şeklinde 4 haneli giriniz.")
t1 = Strings.Right(t2, 3)
t3 = Strings.Left(t2, 1)
tt3 = "01.01.200" & t3
tlot = CDate(tt3) + CDate(t1)
MsgBox tlot
End Sub

 

[veyselemre]

Açıklamalarınıza göre aşağıdaki şekilde KTF tanımlanabilir.

Function lotbUL(deger)
Yil = Left(deger, 1)
gunsay = Right(deger, 3)
lotbUL = CDate(DateSerial(Yil, 1, gunsay))
End Function

 

[mrt]

Emeğinize sağlık;

Selamlar,

F sutununda batch bilgileri olan, 2609 satır kayıt var.

Bu bilgileri tarihe dönüştürmek için nasıl makro yazarım.

Sizin yapmış olduğunuz çalışmada tek tek veri girmek gerekiyor

 

[abdi]

Function lotbUL(deger)
Yil = Left(deger, 1)
gunsay = Right(deger, 3)
lotbUL = CDate(DateSerial(Yil, 1, gunsay))
End Function


Sub değerbul()
Dim i As Integer

For i = 1 To 2609
Cells(i, 7).Value = Format(lotbUL(Cells(i, 6)), "dd.mm.yyyy")
Next
End Sub

Almak istediğiniz değerlerin g sutunu olduğu varsayılmıştır. (g sütunua değerleri yazar.

 

[xxcell]

fonksiyon olarak;

=TARİH(SOLDAN(A1;1)+2000;1;SAĞDAN(A1;3))