Tarih farkı
Tarih
11/03/2014 23:22
Konu Sahibi
mersilen
Yorumlar
3
Okunma
1566
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mersilen
Üye
Kullanici Avatari
Üye
2
1
05/10/2011
0
Ankara
Ofis 2003
24/07/2015,11:11
Çözüldü 
Sponsor Reklam
Merhabalar
Büyük bir veri grubunu excelde çevirmeye çalışıyorum ama beceremedim, özellikle tarih farkı konusunda sorunlar yaşıyorum
Excel dosyamı Access üzerinde açıp tarih farkı almak istedim onuda beceremedim
iki sütun arasındaki tarih farkını nasıl alabiliriz
Access kullanmaya yabancı birisi olarak soruyorum !!


Access ve Excel dosyası halinde yeniden ekledim
Kullandığım Excel kodu da

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Anne_doğum_sat()
Set s1 = Worksheets("doğum"): Set s2 = Worksheets("tsh 2007"): Set s3 = Worksheets("sayfa1")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

With s2.Range("C21:C208000")
For i = 12 To s1.[A11].End(xlDown).Row: değer = s1.Cells(i, "A"):
If değer = 0 Then GoTo Atla
    Set c = .Find(değer, LookIn:=xlValues)
    If Not c Is Nothing Then
  
        firstaddress = c.Address
        Do
'----------------------------------------------------------
If s1.Cells(i, "A") = s2.Cells(c.Row, "C") Then
Set it = s2.Cells(c.Row, "A"):  Set st = s1.Cells(i, "H")
ilk = Format(it.Value, "dd.MM.yy hh:mm"): son = Format(st.Value, "dd.MM.yy hh:mm")
fark = son - ilk
s2.Cells(i, "AH").Value = fark
End If
'----------------------------------------------------------

Set c = .FindNext(c)
            d = c.Address '''
        Loop While Not c Is Nothing And c.Address <> firstaddress
    'Else: GoTo çık:
    'End If
    End If
Atla:
Next i
End With
çık:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub




Ek Dosyalar
.rar   TSH 5-2.rar (Dosya Boyutu: 39,98 KB / İndirme Sayısı: 5)
Cevapla

cttm98
Aktif Üye
Kullanici Avatari
Aktif Üye
K.... J....
212
2
24/04/2012
155
İstanbul
Ofis 2007
18/05/2016,18:49
Çözüldü 
Merhaba,
ekteki dosyaya xlsx dosyasını da eklerseniz daha iyi olur...
Herkes aynı şeyi düşünüyorsa, hiç kimse yeterince düşünmüyor demektir
Cevapla

mersilen
Üye
Kullanici Avatari
Üye
2
1
05/10/2011
0
Ankara
Ofis 2003
24/07/2015,11:11
Çözüldü 
Sponsor Reklam
Üstteki mesajdaki dosyayı güncelledim
Cevapla

cttm98
Aktif Üye
Kullanici Avatari
Aktif Üye
K.... J....
212
2
24/04/2012
155
İstanbul
Ofis 2007
18/05/2016,18:49
Çözüldü 
Dosya ekte incelerseniz...


Ek Dosyalar
.rar   TSH 5-2cttm98.rar (Dosya Boyutu: 46,88 KB / İndirme Sayısı: 7)
Herkes aynı şeyi düşünüyorsa, hiç kimse yeterince düşünmüyor demektir
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  access iki tarih arası verileri datetimepicker vasıtasıyla çağırma usescrt 9 179 15/01/2017, 12:43 usescrt
  İki Tarih Arası Rapor Hatası m_demir 14 297 24/12/2016, 23:03 m_demir
  İki Tarih Arası Hk. Serkan Çevik 2 130 24/12/2016, 20:24 Serkan Çevik
  İki Tarih Arası Rapor Almak m_demir 20 600 23/12/2016, 12:11 m_demir
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 464 03/12/2016, 00:13 m_demir


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya