Saat Ile Rakamı çarpma

m_demir · 29-03-2020, 21:34

Merhaba arkadaşlar
Saati Rakamla nasıl Çarpa bilirim.

Örneğin:

01:30*10,30=13,39 Gibi

Bu konuda yardımlarınıza ihtiyacım var.

onur_can · 29-03-2020, 22:14

Saat ve dakikayı ayrı değişkenlere alıp sonra bunları birleştirdikten sonra çarpabilirsiniz.

Visual Basic
Dim s As Integer
Dim d As Integer
Dim e As Integer
 
s = Hour(Me.txtSaat.Value)
d = Minute(Me.txtSaat.Value)
e = s & "." & d
 
Me.txtSonuc = (e * Me.txtSayi) / 100

m_demir · **Kayıt Tarihi:** 22.12.2017

Çok Teşekkürler Hocam Ellerinize sağlık.

Hocam Saat Farkında Dakika varsa doğru hesaplıyor. Dakika yoksa yanlış hesaplıyor.

Hocam eğer oluyorsa iki saat arasındaki farkı SaatToplami Metin kutusunda gösteriyorum. Saat Farkını SaatToplami Metin kutusunda bulduktan sonra SaatToplami Metin metin kutusundaki saati Rakam Formatına çeviren bir kod ekleseniz de olur.

Örneğin:
Saat 01:10
Rakam 10,30
Sonuç 11,33 Sonuç doğru

Saat 01:00
Rakam 10,30
Sonuç 1,33 Saatte dakika olmadığı için Sonuç yanlış

Visual Basic
Private Sub Metin228_GotFocus()
Dim s As Integer
Dim d As Integer
Dim e As Integer
 
s = Hour(Me.SaatToplami.Value)
d = Minute(Me.SaatToplami.Value)
e = s & "." & d
 
Me.Metin204 = (e * Me.Metin228) / 100
End Sub

onur_can · 30-03-2020, 10:23

sn m-demir kodu biraz genişlettim, ayraç ise nokta yerine virgül olacak.
Şu anda test edebilirsiniz.

Visual Basic
Dim s As Integer
Dim d As Integer
Dim e As Double
 
s = Hour(Me.txtSaat.Value)
d = Minute(Me.txtSaat.Value)
 
If d = 0 Then
e = s
Else
e = s & "," & d
End If
 
If s = 0 Then
e = d
Else
e = s & "," & d
End If
 
If s = 0 And d = 0 Then
Me.txtSonuc = 0
End If
 
Me.txtSonuc = (e * Me.txtSayi)

m_demir · **Kayıt Tarihi:** 22.12.2017

Çok teşekkürler hocam ellerinize sağlık.

Hocam Metin kutusunda Saat ve dakika varsa doğru hesaplıyor. Tam saat varsa gine doğru hesaplıyor.
Saat yoksa tek dakika varsa yanlış hesaplıyor.

Örneğin: 00;10*10,00=100,00 olarak hesaplıyor.

Hocam iki nokta üst üste yi virgüle çeviren format var mı. Varsa Saati sayıya çevirip haledebiliriz. Saygılar.

onur_can · 30-03-2020, 21:14

Şöyle değiştirisek doğru sonucu elde ederiz.
Eğer saat 00 ise ve dakikada 0 dan farklı bir sayı olduğunu varsayarsak, bu durumda sadece
dakikanın önüne virgül atarsak düzelmiş olur. Bu halde aşağıdaki if bloğu şöyle düzenlenebilir.

Visual Basic
If s = 0 Then
e = "," & d
Else
e = s & "," & d
End If

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[SORGU] Access Sorguda Toplam Saat Formatı	MERAK	3	270	07-12-2025, 16:15 Son Mesaj: dsezgin
	[FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma	yahyamacit	5	557	14-03-2024, 11:07 Son Mesaj: yahyamacit
	12 Saatlik (am-pm) Metin Olarak Girilmiş Saat Verisini 24 Saatlik Olarak Gösterme Hk.	adnnfrm	2	538	05-10-2023, 03:16 Son Mesaj: adnnfrm
	Text Kutusundaki Rakamı Alt Formda Bulan Hesap Sutunun Tüm Satırlarına Nasıl Eklenir	bilservisci	7	917	29-08-2023, 22:19 Son Mesaj: bilservisci
	Ekleme Sorgusunda Ay/yıl Metin Değeri Tarih/saat Alanına Doğru Aktarma Hk.	adnnfrm	2	547	14-08-2023, 00:12 Son Mesaj: adnnfrm
	Formda Saat Widget	BeyTor	18	1.323	28-01-2023, 00:02 Son Mesaj: Zeki Gürsoy
	Saat-dakika Değerini Iki Karakter Olarak Almak	husem	3	477	27-05-2022, 08:45 Son Mesaj: husem
	2 Saat Arası Hesaplama	hedefkaya	6	2.042	13-12-2020, 21:16 Son Mesaj: footprinting

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL