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
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"))
);
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';
şö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
Select case ilede olabilir
Select case i
Case 1,3,5,7,8,12
End select
Gibi
For i=clng(baslangictarihi) to clng(bitistarihi)
Ekleme kodlari
Next i