AccessTr.neT

Bul · 31/01/2020, 09:37

Hayırlı cumalar
"INSERT INTO " kullanarak
for next gibi bir döngü ile 2020 yılının tüm günlerini tabloya nasıl ekleyebilirim
yani başlangıç tarihi ile bitiş tarihi arasında döngü yapabilir miyim

Bul · 31/01/2020, 09:38

mesela şöyle şeyler var bunları nasıl Vba accessde kullanabilirim

Kod:

static IEnumerable<DateTime> AllDatesBetween(DateTime start, DateTime end)

{

    for(var day = start.Date; day <= end; day = day.AddDays(1))

        yield return day;

}

Kod:

var calculatedDates = 

    new List<string>

    (

        AllDatesBetween

        (

            DateTime.Parse("2009-07-27"),

            DateTime.Parse("2009-07-29")

        ).Select(d => d.ToString("yyyy-MM-dd"))

    );

Bul · 31/01/2020, 09:42

Kod:

CREATE TABLE num (i int);

INSERT INTO num (i) VALUES (0), (1), (2), (3), (4), (5), (6), (7), (8), (9);



select adddate('2009-01-01', numlist.id) as `date` from

(SELECT n1.i + n10.i*10 + n100.i*100 AS id

   FROM num n1 cross join num as n10 cross join num as n100) as numlist

where adddate('2009-01-01', numlist.id) <= '2009-01-13';

Bul · 31/01/2020, 10:15

şöyle çözdüm ama acemi işi oldu daha güzel nasıl olabilir

For i = 1 To 12
If (i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12) Then aysonu = 31
If (i = 4 Or i = 6 Or i = 9 Or i = 11) Then aysonu = 30
If (i = 2 And CInt(y) \ 4 = CInt(y) / 4) Then aysonu = 29
If (i = 2 And CInt(y) \ 4 <> CInt(y) / 4) Then aysonu = 28

For ii = 1 To aysonu
dbs.Execute "INSERT INTO " & "year" & y & "" _
& "(tarih, mod, vardiya) VALUES " _
& "('" & ii & "." & i & ".20" & y & "', '-1', '.');"
Next ii
Next i

Bul · 31/01/2020, 17:55

Select case ilede olabilir

Select case i

Case 1,3,5,7,8,12

End select

Gibi

Bul · 01/02/2020, 16:39

For i=clng(baslangictarihi) to clng(bitistarihi)
Ekleme kodlari
Next i

AccessTr.neT

Tabloya Döngü İle Tarih Ekleme

Tabloya Döngü İle Tarih Ekleme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri