 |
ช่วยแปลง code หน่อยนะครับ อันนี้เป็น code การคำนวนอายุของ vb ครับอยากจะแปลงเป็น php ครับ ท่านที่มีความรู้ vb และ php ช่วยหน่อยนะครับ |
| |
 |
|
|
 |
 |
|
อันนี้เป็น code การคำนวนอายุของ vb ครับอยากจะแปลงเป็น php ครับ ท่านที่มีความรู้ vb และ php ช่วยหน่อยนะครับ
Public Function Age(Startdate As Date, Enddate As Date) As String
Dim Year1 As Integer
Dim Month1 As Integer
Dim Day1 As Integer
Dim Date3 As Date
Dim dYear1 As String
Dim dMonth1 As String
Dim dDay1 As String
Year1 = DateDiff("yyyy", Startdate, Enddate)
Date3 = DateAdd("yyyy", Year1, Startdate)
If Date3 > Enddate Then
Date3 = DateAdd("yyyy", -1, Date3)
Year1 = Year1 - 1
End If
Month1 = DateDiff("m", Date3, Enddate)
Date3 = DateAdd("m", Month1, Date3)
If Date3 > Enddate Then
Date3 = DateAdd("m", -1, Date3)
Month1 = Month1 - 1
End If
Day1 = DateDiff("d", Date3, Enddate)
If Year1 = 0 Then
dYear1 = ""
Else
dYear1 = Year1 & " ปี "
End If
If Month1 = 0 Then
dMonth1 = ""
Else
dMonth1 = Month1 & " เดือน "
End If
If Day1 = 0 Then
dDay1 = ""
Else
dDay1 = Day1 & " วัน"
End If
Age = dYear1 & dMonth1 & dDay1
End Function
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
25 ก.ย. 2550 11:36:32 |
By :
akachai |
View :
1632 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ได้วัน
<?
$mymonth=9;
$mymonth2=10;
$myday=10;
$myday2=15;
$myyear=2003;
$jdDay = gregoriantojd($mymonth,$myday,$myyear);
$jdDay2 = gregoriantojd($mymonth2,$myday2,$myyear);
$mycal = $jdDay2-$jdDay;
echo "<br>jyday : $jdDay";
echo "<br>jyday : $jdDay2";
$mycal = $jdDay2 - $jdDay;
echo "<br>mycal : $mycal" ;
?>
|
| |
|
|
| |
| Date :
25 ก.ย. 2550 12:37:13 |
By :
akachai |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
