Tarih farkı
Tarih
11/03/2014 23:22
Konu Sahibi
mersilen
Yorumlar
3
Okunma
1538
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ü 
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ü 
Ü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
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 281 03/12/2016, 00:13 m_demir
  İki Tarih Arası Rapor oluşturma Erhan Altay 9 646 10/10/2016, 11:08 atoz112
  Buton ile tabloya tarih eklemek mehmet8x 2 180 08/10/2016, 18:17 mehmet8x
  Tarih ve saatten otomatik sayı üretme cagatay1234 6 230 11/09/2016, 10:19 atoz112
  İki tarih arası sorgu IceMan7 3 292 28/07/2016, 13:07 atoz112


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