|
 |
| |
รบกวนช่วยแปลง code จาก php เป็น vb.net ให้ด้วยนะคะ (ขอบคุณมากนะคะ) เนื่องจากเพิ่งจะเคยเขียน vb ครั้งแรกค่ะ |
| |
 |
|
|
 |
 |
|
<?php
/* $diffHour และ $diffMinute คือตัวแปรที่ใช้เก็บจำนวนชั่วโมงและจำนวนนาทีที่
แตกต่างกันระหว่างเครื่องไคลเอนต์กับเครื่องเซิร์ฟเวอร์ ตามลำดับ เช่นถ้าเวลาของ
เครื่องไคลเอ็นต์เร็วกว่าเวลาของเครื่องเซิร์ฟเวอร์ 11 ชั่วโมง 15 นาที ก็ให้กำหนด
$diffHour เป็น 11 และกำหนด $diffMinute เป็น 15 ในที่นี้ผู้เขียนถือว่า
เครื่องเซิร์ฟเวอร์กับเครื่องไคลเอ็นต์มีเวลาตรงกัน */
$diffHour = 0;
$diffMinute = 0;
if ($dfMonth == "") {
/* ถ้าไม่มีการระบุให้แสดงปฏิทินของเดือนใดเดือนหนึ่ง เราจะแสดงปฏิทินของเดือน
ปัจจุบันตามเวลาในเครื่องไคลเอ็นต์ โดยใช้ฟังก์ชั่น getdate() สร้างวันที่/เวลา
ปัจจุบันของเครื่องไคลเอ็นต์เก็บไว้ในตัวแปร $calTime ซึ่งฟังก์ชั่นนี้จะคืนค่ากลับมา
เป็นอาร์เรย์ */
$calTime = getdate(date(mktime(date("H") + $diffHour,
date("i") + $diffMinute)));
$today = $calTime["mday"]; //วันที่
$month = $calTime["mon"]; //เดือน
$year = $calTime["year"]; //ปี
}
else {
/* กรณีที่ระบุให้แสดงปฏิทินของเดือน/ปีหนึ่งๆนั้น จะมีการส่งตัวแปร $today,
$dfMonth และ $dfYear ผ่านมาทาง query string ด้วย */
if ($dfMonth == 0) {
/* ถ้าตัวแปร $dfMonth เป็น 0 เราจะแสดงปฏิทินของเดือนธันวาคมของปีที่น้อย
กว่าปีที่กำลังแสดงอยู่ */
$dfMonth = 12;
$dfYear = $dfYear - 1;
}
elseif ($dfMonth == 13) {
/* ถ้าตัวแปร $dfMonth เป็น 13 เราจะแสดงปฏิทินของเดือนมกราคมของปีที่มาก
กว่าปีที่กำลังแสดงอยู่ */
$dfMonth = 1;
$dfYear = $dfYear + 1;
}
//สร้างวัน/เวลาของเดือนและปีที่ผู้ใช้ระบุ เก็บไว้ในตัวแปร $calTime
$calTime = getdate(date(mktime((date("H") + $diffHour),
(date("i") + $diffMinute), 0, $dfMonth, $today, $dfYear)));
$today = $calTime["mday"]; //วันที่
$month = $calTime["mon"]; //เดือน
$year = $calTime["year"]; //ปี
}
/* เรียกฟังก์ชั่น LastDay() ซึ่งเป็นฟังก์ชั่นที่เราสร้างขึ้นมาเอง เพื่อหา "จำนวนวัน"
ของเดือนและปีที่จะแสดงปฏิทิน โดยเก็บไว้ในตัวแปร $Lday */
$Lday = LastDay($month, $year);
//เก็บ timestamp ของวันที่ 1 ของเดือนที่จะแสดงปฏิทิน ไว้ในตัวแปร $FTime
$FTime = getdate(date(mktime(0, 0, 0, $month, 1, $year)));
//เก็บ "วันในสัปดาห์" (จันทร์, อังคาร ฯลฯ) ของวันที่ 1 ของเดือนไว้ในตัวแปร $wday
$wday = $FTime["wday"];
//สร้างตัวแปรชนิดอาร์เรย์เก็บชื่อเดือนภาษาไทย
$thmonthname = array("มกราคม", "กุมภาพันธ์", "มีนาคม", "เมษายน",
"พฤษภาคม", "มิถุนายน", "กรกฎาคม", "สิงหาคม", "กันยายน", "ตุลาคม",
"พฤศจิกายน", "ธันวาคม");
/* ฟังก์ชั่น LastDay() ใช้สำหรับหาวันที่สุดท้ายของเดือน/ปีที่ระบุ
หรือกล่าวอีกนัยหนึ่งคือหาว่าเดือน/ปีที่ระบุนั้นมีกี่วัน */
function LastDay($m, $y) {
for ($i=29; $i<=32; $i++) {
if (checkdate($m, $i, $y) == 0) {
return $i - 1;
}
}
}
?>
</span></FONT>
<table width="130" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#F2F2F2">
<tr class="norm">
<td width="31" align="center"><a href="<?php echo $PHP_SELF; ?>
?today=<?php echo $today; ?>
&dfMonth=<?php echo ($month - 1) ?>
&dfYear=<? echo $year; ?>"><font face="MS Sans Serif"><span style="font-size:1pt;"><<</span></font></a></td>
<td align="center" colspan="5" bgcolor="#EEEEEE"><FONT face="MS Sans Serif"><span style="font-size:1pt;"><?php echo $thmonthname[$month - 1]; ?> <?php echo ($year + 543); ?></span></FONT></td>
<td width="14" align="center"><a href="<?php echo $PHP_SELF; ?>
?today=<?php echo $today; ?>
&dfMonth=<?php echo ($month + 1); ?>
&dfYear=<?php echo $year; ?>"><font face="MS Sans Serif"><span style="font-size:1pt;">>></span></font></a></td>
</tr>
<tr>
<td width="31" align="center" class="sunday"><FONT face="MS Sans Serif"><span style="font-size:1pt;">อา</span></FONT></td>
<td width="31" align="center" class="norm"><FONT face="MS Sans Serif"><span style="font-size:1pt;">จ</span></FONT></td>
<td width="6" align="center" class="norm"><FONT face="MS Sans Serif"><span style="font-size:1pt;">อ</span></FONT></td>
<td width="8" align="center" class="norm"><FONT face="MS Sans Serif"><span style="font-size:1pt;">พ</span></FONT></td>
<td width="15" align="center" class="norm"><FONT face="MS Sans Serif"><span style="font-size:1pt;">พฤ</span></FONT></td>
<td width="8" align="center" class="norm"><FONT face="MS Sans Serif"><span style="font-size:1pt;">ศ</span></FONT></td>
<td width="14" align="center" class="norm"><FONT face="MS Sans Serif"><span style="font-size:1pt;">ส</span></FONT></td>
</tr>
<?php
$iday = 1;
//แสดงแถวแรกของปฏิทิน
for ($i=0; $i<=6; $i++) {
if ($i < $wday) { //แสดงเซลล์ว่างก่อนวันที่ 1 ของเดือน
if ($i == 0) { //กรณีที่เป็นวันอาทิตย์
echo "<td width=24 align=center class=sunday> </td>";
}
else { //กรณีที่เป็นวันอื่นๆที่ไม่ใช่วันอาทิตย์
echo "<td width=24 align=center class=norm> </td>";
}
}
else { //แสดงวันที่ในแถวแรกของปฏิทิน
if ($i == 0 && ($iday != $today)) {
//กรณีที่เป็นวันอาทิตย์ และไม่ใช่วันปัจจุบัน
echo "<td width=24 align=center class=sunday>$iday</td>";
}
elseif ($iday == $today) { //กรณีที่เป็นวันปัจจุบัน
echo "<td width=24 align=center class=today>$iday</td>";
}
else {
echo "<td width=24 align=center class=norm>$iday</td>";
}
$iday++;
}
}
//แสดงแถวที่เหลือของปฏิทิน (หลังจากแสดงแถวแรกไปแล้ว จะเหลืออย่างมาก 5 แถว)
for ($j=0; $j<=4; $j++) {
if ($iday <= $Lday) {
echo "<tr>";
for ($i=0; $i<=6; $i++) {
if ($iday <= $Lday) {
if ($i == 0 && ($iday != $today)) {
echo "<td width=24 align=center class=sunday>$iday</td>";
}
elseif ($i == 0 && ($iday == $today)) {
echo "<td width=24 align=center class=button>$iday</td>";
}
elseif ($iday == $today) {
echo "<td width=24 align=center class=button>$iday</td>";
}
else {
echo "<td width=24 align=center class=03>$iday</td>";
}
$iday++;
}
else {
echo "<td width=24 align=center class=03> </td>";
}
}
echo "</tr>";
}
else {
break;
}
}
?>
<tr class="norm">
<td align="center" colspan="7"><a href="<?php echo $PHP_SELF; ?>"><font face="MS Sans Serif"><span style="font-size:1pt;">วันที่ปัจจุบัน</span></font></a></td>
</tr>
</table>
Tag : .NET, VB.NET
|
|
|
 |
 |
 |
 |
| Date :
2010-12-16 11:55:31 |
By :
Girl |
View :
1339 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
เนื่องจากไม่ชอบ php ไม่เขียน vb และไม่ยอมใส่ tag ให้ดูง่ายๆ ก็เลยไม่ตอบ
|
| |
|
|
| |
| Date :
2010-12-16 14:41:44 |
By :
ตังค์แมน |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 03
|
