31/01/2020, 09:37
Tabloya Döngü İle Tarih Ekleme
31/01/2020, 09:38
accessman
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"))
);
31/01/2020, 09:42
accessman
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';
31/01/2020, 10:15
accessman
şö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
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
31/01/2020, 17:55
feraz
Select case ilede olabilir
Select case i
Case 1,3,5,7,8,12
End select
Gibi
Select case i
Case 1,3,5,7,8,12
End select
Gibi
01/02/2020, 16:39
berduş
For i=clng(baslangictarihi) to clng(bitistarihi)
Ekleme kodlari
Next i
Ekleme kodlari
Next i