محاسبه تاریخ زایمان

[nani4u]

دوستان میخواستم بدونم چطور میشه کدی به اکسس یا اکسل بدم که تاریخ زایمان را برام به صورت الارم صوتی با متنی بده .
مثلا تاریخ امروز را بهش بدم و برنامه هر 30 روز بهم الارم بده و بگه که 8 ماه دیگه وقت زایمان هست و هر 30 روز دوباره الارم بده که 7 ماه مانده و الا آخر .

لطفا کمکم کنید ممنون میشم.

[muscle]

یه جمع کننده واسه روز در نظر بگیر و یه جمع کننده واسه ماه
حالا کد های زیر را برای پخش فایل هشدار نوشته

Module:


Code:


Option Compare Database


Const SND_ASYNC = (1)

Const SND_NODEFAULT = (2)


Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As
String, ByVal uFlags As Long) As Long


Public Sub API_PlaySound(pWmaFile As String)


Dim LResult As Long


'Make a Windows API call to play a wav file

LResult = sndplaysound(pWmaFile, SND_NODEFAULT + SND_ASYNC)


End Sub

And


Code:

API_PlaySound "Path\FileName.wav"

[vahidmasoudi1391]

سلام
نمونه زیر را نگاه کنید
موفق باشید

[nani4u]

دوست عزیزم muscle (http://barnamenevis.org/member.php?80095-muscle) میشه بگید چطور یه جمع کننده برای روز بنویسم . اگه نمونه کدش دارین بدید ممنونم

[nani4u]

سلام
نمونه زیر را نگاه کنید
موفق باشید


میشه نسخه 64 بیتی اینو بدید . ویندوز 64 بیتی هست و خطا میده . میگه باید 32 بیتی باشه