iyi günler
hasta tablosunda
DogumTarihi alanında
bugun doğanları bulmak için ne yazmalıyız
@benbendedeilem
Son Düzenleme: 25/04/2012, 13:53, Düzenleyen: accessman.
SELECT hasta.DogumTarihi, Left([DogumTarihi],5) AS bugun FROM hasta WHERE (((Left([DogumTarihi],5))=Left(Date(),5)));
Public Function SYd(DogumTarihi As Date) As Date
Dim ay As Byte, gun As Byte
ay = Month(DogumTarihi)
gun = Day(DogumTarihi)
SYd = DateSerial(Year(Date), ay, gun) 'Bu yılkini buldu.
If SYd < Date Then 'Bu yıl geçtiyse gelecek yıla sarktı.
SYd = DateSerial(Year(Date) + 1, ay, gun)
End If
End Function
SELECT hasta.DogumTarihi FROM hasta WHERE (((Format([DogumTarihi],"dd/mm"))=Format(Date(),"dd/mm")));
SELECT [ad] & " " & [soyad] & " Doğum gününüz kutlu olsun" AS mesaj FROM bugun_dogan INNER JOIN hasta ON bugun_dogan.KimlikNo = hasta.KimlikNo;