doğum günüyle ilgili script

Question

ahmet: 1 ocak

mehmet: 1 şubat

ayşe: 1 mart

fatma: 1 nisan

doğum günüyse.

o günlerde dosya açılırken ekranda bugün ahmetin doğum günü uyarısı versin istiyorum. yalnız kişilerin doğum günü pazara geldiği takdirde cumartesi günü uyarı vermeli yarın doğum günü gibi.

nasıl bir script yazmalıyım ?

Answer 1

Set Variable ile mesaj isimli bir değişkene şu şekilde doğrum günü mesajı atanabilir.

Let ( 

   aygun =  Right ( "0" & Month(Get(CurrentDate)) ; 2 ) & Right ( "0" & Day(Get(CurrentDate)) ; 2 ) & ;

   Case ( 

                aygun = "0101" ; "Bugün Ahmet'in doğum günü" ;

                aygun = "0201" ; "Bugün Ayşe'nin doğum günü" ;

               ....

   )

)

 

Sonra da değişkende değer varsa Show Custom Dialog ile $mesaj değişkeni ekrana basılabilir.

 

 

Günceleme: Pazar gününü Cumartesiden uyarması için şu şekilde revize yeterli. Cumartesi günleri pazar gününe de bakıyor.

Let (

[

   aygun =  Right ( "0" & Month(Get(CurrentDate)) ; 2 ) & Right ( "0" & Day(Get(CurrentDate)) ; 2 )  ;

   aygun2 = If ( dayofweek (Get(CurrentDate)) = 7;

            Right ( "0" & Month(Get(CurrentDate)+1) ; 2 ) & Right ( "0" & Day(Get(CurrentDate)+1) ; 2 ) )

] ;

   Case ( 

                aygun = "0101" or aygun2 = "0101"; "Bugün Ahmet'in doğum günü" ;

                aygun = "0201" or aygun2 = "0201"; "Bugün Ayşe'nin doğum günü" ;

               ....

   )

)

 

 

Comments

Tam yazıyordum, benden önce davrandın :)

---

pazar'ı dikkate alıyor mu bu script?

---

tarihe dikkate alıyor. pazar günü açarsanız mesajı gösterir...

---

pazar günü kapalı o sebepten bir gün evvel uyarı yaptırmaya çalışıyorum:)

---

sorunun o kısmını farketmemişim. bir güncelleme yaptım.

---

hocam kodda hiç "yarın" geçmiyor. bir eksiklik var sanki yine ya da ben anlamadım:)

---

aygun2 değişkeni Get(CurrentDate)+1'i baz alıyor

---

demek istediğim show mesajda yarın x'in doğum günü gibi bir ibare göremedim.

---

doğru, küçük bir revize işlemiyle olur.

aygun = "0101" or aygun2 = "0101"; "Bugün Ahmet'in doğum günü" yerine

aygun = "0101" ; "Bugün Ahmet'in doğum günü";
aygun2 = "0101" ; "Yarın Ahmet'in doğum günü";

yazmak yeterli.